program verniel; { This software has been designed and is CopyLefted by Han de Bruijn: (===) @-O^O-@ #/_\# ### Least Squares best fit to a Hyperbola y = B/(x-A) of the Year/Light-speed data from relevant tables in * The Atomic Constants, Light, and Time * http://www.setterfield.org/report/report.html } uses Math, tabellen, bereken, Algemeen; procedure Gewichten(var w : lijst); var k,L : integer; begin L := Length(w); for k := 0 to L-1 do begin w[k] := 1; end; end; procedure Format; const delta : double = 1; { 1 2 3 4 5 6 7 8 9 0 1 2 3 } reeks : array[1..13] of integer = (1,2,4,5,6,7,8,10,12,13,14,27,29); var licht,jaar,w : lijst; keer : integer; A : double; uit : TextFile; kop,rood,door : string; begin AssignFile(uit,'table.htm'); Rewrite(uit); Writeln(uit,''); Writeln(uit,''); Writeln(uit,'
'); kop := ' '; Writeln(uit,kop); Writeln(uit,' '); Writeln(uit,' '); Writeln(uit,' '); Writeln(uit, ' '); Writeln(uit, ' '); Writeln(uit, ' '); Writeln(uit,' '); Writeln(uit,' '); for keer := 1 to 13 do begin SetLength(jaar,0); SetLength(licht,0); Gegevens(keer,jaar,licht); SetLength(w,Length(jaar)); Gewichten(w); Writeln(uit,' '); Writeln(uit,' '); method1(jaar,licht,A); rood := ''; door := ''; if A < 0 then rood := ''; if A < 0 then door := ''; Writeln(uit,' '); method2(jaar,licht,A); rood := ''; door := ''; if A < 0 then rood := ''; if A < 0 then door := ''; Writeln(uit,' '); method3(jaar,licht,A); rood := ''; door := ''; if A < 0 then rood := ''; if A < 0 then door := ''; Writeln(uit,' '); Writeln(uit,' '); Writeln(uit,' '); end; Writeln(uit,' '); Writeln(uit,'
tablemethod 1method 2method 3graph
',keer,'.txt'+rood,A:10:0,door+''+rood,A:10:0,door+''+rood,A:10:0,door+''+Letterlijk(keer)+'.jpg
'); Writeln(uit,''); Writeln(uit,''); CloseFile(uit); end; begin Format; end.