Facharbeit Physik - Arnold-Gymnasium Neustadt bei Coburg: Home

# L o g i n
$ s s h −>l o g i n ( ” r o o t ” , $ap p a s s w d ) ;
# K e r n e l m i t t e i l e n , d a s s Messung e r f o l g t
$ s s h −>cmd ( $ m e a s u r e i n i t ) ;
# Messungen d u r c h f u e h r e n
f o r (my $ i = 1 ; $ i cmd ( $command ) ;
chomp ( $command out ) ;
i f ( $command exit ) {
p r i n t ”ERROR r e s e n d i n g P a c k a g e s \n” ;
$ i −−;
}
e l s e {
system ” echo \” $command out \” > $ f i l e \ $ i ” ;
}
}
# K e r n e l m i t t e i l e n , d a s s Messung b e e n d e t i s t
$ s s h −>cmd ( $ m e a s u r e c l e a n ) ;
# E r g e b n i s s e zu EINER D a t e i zusammenfuegen
system ” c a t $ f i l e \ ∗ > $ f i l e ” ;
system ”rm $ f i l e \ ∗” ;
6.5 Auswertung
Das folgende Perl–Script berechnet aus der Datei , die die
Messdaten enthält (vgl. 6.4) die relative Häufigkeits–Verteilung der Messung
und schreibt sie in .dat. Zusätzlich wird der Erwartungswert
berechnet. Der Datenbereich, der für diese Berechnung verwendet werden soll,
kann durch weitere Parameter und
übergeben werden.
#! / u s r / b i n / p e r l
################################################################################
# f i l e : t r i v i a d a t a #
# #
# d e s c r i p t i o n : P e r l −S c r i p t zum A n a l y s i e r e n d e r Daten #
# #
# a u t h o r : A l e x a n d e r B l e i t n e r #
# #
# c o p y r i g h t : 2010 by A l e x a n d e r B l e i t n e r #
# #
# l i c e n s e : GPL #
# I t i s f r e e s o f t w a r e . You can r e d i s t r i b u t e i t and / o r modify i t #
# under t h e terms o f t h e GNU G e n e r a l P u b l i c L i c e n s e a s p u b l i s h e d #
# by t h e F r e e S o f t w a r e Foundation , e i t h e r v e r s i o n 3 o f t h e #
# l i c e n s e , o r ( a t your own o p i n i o n ) any l a t e r v e r s i o n . #
# #
# T h i s code i s d i s t r i b u t e d i n t h e hope t h a t i t w i l l be u s e f u l , #
# but WITHOUT ANY WARRANTY, w i t h o u t even t h e i m p l i e d w a r r a n t y o f #
# MERCHANTABILITY o f FITNESS FOR A PARTICULAR PURPOSE. See t h e #
# GNU G e n e r a l P u b l i c L i c e n s e f o r more d e t a i l s . #
# #
# You s h o u l d have r e c e i v e d a copy o f t h e GNU G e n e r a l P u b l i c #
# L i c e n s e a l o n g w i t h t h i s f i l e . I f not , s e e #
# . #
# #
################################################################################
my ( $r0 , $r1 , $b , @t , @d , @v , $e , $ i , $o ) ;
# Daten e i n l e s e n
open (DATA, ”< $ARGV [ 0 ] ” ) ;
f o r e a c h () {
26