%echo off
output window
output file log.hfm
procedure exit
? "------------------"
set &su1:=&su1/&n
set &su2:=sqrt((&su2-&n*sqr(&su1))/(&n-1))
? &n:1:0," ",&su1:1:2,"(",&su2:1:2,")"
output
? &n:1:0," ",&su1:1:2,"(",&su2:1:2,")"
return
define ifeld : 611,609,608,607,606,605,604,603,602,601,600,599;
,598,597,596,595,594,593,592,591,590,589,588,587,586
define rstack: 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
var &a,&i,&c1,&c2,&su1,&su2,&n
set &n:=0
set &su1:=0
set &su2:=0
set &i:=1
1:getentry ifeld,&i,&a
set &error:=0
l hfs&asc
l hfs&af1/fit/nocheck
data /bez105/F'1.5/F1.5
pop rstack
getentry rstack,2,&c1
getentry rstack,3,&c2
if (&error=0)
? &a:1:0," ",&c1:1:1,"(",&c2:1:1,")"
set &n:=&n+1
set &su1:=&su1+&c1
set &su2:=&su2+sqr(&c1)
else
output
? " Fehler beim Einlesen einer Messung aufgetreten [bel. Taste]"
wait
endif
set &i:=&i+1
goto 1
|
Projekt HFSFit
