t_id
1448
t_adddate
2005/01/13
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
443835858 | 934994 | False | False | Failed to run |
Record count: 1
1.7364817766693036E-001, 3.4202014332566877E-001, 5.0000000000000000E-001, 6.4278760968653936E-001, 7.6604444311897801E-001, 8.6602540378443871E-001, 9.3969262078590843E-001, 9.8480775301220813E-001, 1.0000000000000000E+000, 9.8480775301220813E-001, 9.3969262078590843E-001, 8.6602540378443860E-001, 7.6604444311897812E-001, 6.4278760968653947E-001, 4.9999999999999994E-001, 3.4202014332566844E-001, 1.7364817766693025E-001, 1.2246467991473532E-016,-1.7364817766693047E-001,-3.4202014332566866E-001, -5.0000000000000011E-001,-6.4278760968653925E-001,-7.6604444311897835E-001,-8.6602540378443882E-001, -9.3969262078590821E-001,-9.8480775301220813E-001,-1.0000000000000000E+000,-9.8480775301220813E-001, -9.3969262078590832E-001,-8.6602540378443860E-001,-7.6604444311897812E-001,-6.4278760968653892E-001, -4.9999999999999967E-001,-3.4202014332566855E-001,-1.7364817766693039E-001,-2.4492935982947064E-016, Testing SIN Testing COS Testing TAN Testing ARCTAN... Error for ArcTan(80) was: 8.0000000000000014E+001 should be: 8.0000000000000000E+001
program test03; uses {$IFDEF CPU86} CMem, {$ENDIF} SysUtils,Math; const dim = 36; MaxFloat = 1.1000000000000000E+4932; // from dcc sinus : array[1..dim] of double = ( 1.7364817766693035E-0001, 3.4202014332566873E-0001, 5.0000000000000000E-0001, 6.4278760968653933E-0001, 7.6604444311897804E-0001, 8.6602540378443865E-0001, 9.3969262078590838E-0001, 9.8480775301220806E-0001, 1.0000000000000000E+0000, 9.8480775301220806E-0001, 9.3969262078590838E-0001, 8.6602540378443865E-0001, 7.6604444311897804E-0001, 6.4278760968653933E-0001, 5.0000000000000000E-0001, 3.4202014332566873E-0001, 1.7364817766693035E-0001,-5.4210108624275222E-0020,-1.7364817766693035E-0001,-3.4202014332566873E-0001, -5.0000000000000000E-0001,-6.4278760968653933E-0001,-7.6604444311897804E-0001,-8.6602540378443865E-0001, -9.3969262078590838E-0001,-9.8480775301220806E-0001,-1.0000000000000000E+0000,-9.8480775301220806E-0001, -9.3969262078590838E-0001,-8.6602540378443865E-0001,-7.6604444311897804E-0001,-6.4278760968653933E-0001, -5.0000000000000000E-0001,-3.4202014332566873E-0001,-1.7364817766693035E-0001, 1.0842021724855044E-0019 ); var i : integer; Delta,Ref,Value : Double; begin for i:=1 to dim do begin // Generate constant array above output write(sin(i*10/180.0*pi),','); if i mod 4 = 0 then writeln; end; writeln('Testing SIN'); for i:=1 to dim do begin Ref:=sinus[i]; Value:=sin(i*10/180.0*pi); Delta := Value - Ref; if Abs(Delta) > 1E-15 then begin writeln(' Error for Sin(',i*10,') was:',Value,' should be:',Ref) ; halt(1); end; end; writeln('Testing COS'); for i:=1 to dim do begin Ref := sin(pi/2-i*10/180*pi); Value := cos(i*10/180*pi); Delta := Value - Ref; if Abs(Delta) > 1E-15 then begin writeln(' Error for Cos(',i*10,') was:',Value,' should be:',Ref) ; halt(1); end; end; writeln('Testing TAN'); for i:=1 to dim do begin if i=9 then Ref := MaxFloat else if i=27 then Ref := -Maxfloat else Ref:=sin(i*10/180*pi)/cos(i*10/180*pi); Value := tan(i*10/180*pi); Delta := Value - Ref; if Abs(Delta) > 1E-15 then begin writeln(' Error for Tan(',i*10,') was:',Value,' should be:',Ref) ; halt(1); end; end; writeln('Testing ARCTAN...'); for i:=1 to 8 do begin Ref := i*10; Value := arctan(tan(i*10/180*pi))/pi*180; Delta := Value - Ref; if Abs(Delta) > 1E-14 then begin writeln(' Error for ArcTan(',i*10,') was:',Value,' should be:',Ref); halt(1); end; end; for i:=-1 downto -8 do begin Ref := i*10; Value := arctan(tan(i*10/180*pi))/pi*180; Delta := Value - Ref; if Abs(Delta) > 1E-14 then begin writeln(' Error for ArcTan(',i*10,') was:',Value,' should be:',Ref); halt(1); end; end; writeln('Tan +/- 90 deg test:'); writeln('tan(89.999):',tan(89.999/180*pi)); writeln('tan(90.000):',tan(90.000/180*pi)); writeln('tan(-89.999):',tan(-89.999/180*pi)); writeln('tan(-90.000):',tan(-90.000/180*pi)); writeln('ArcTan2 kwadrants:'); writeln('Kwadrant 1 ( 1, 1):',arctan2( 1, 1)/pi*180:5:1,' deg'); writeln('Kwadrant 2 (-1, 1):',arctan2( 1,-1)/pi*180:5:1,' deg'); writeln('Kwadrant 3 (-1,-1):',arctan2(-1,-1)/pi*180:5:1,' deg'); writeln('Kwadrant 4 ( 1,-1):',arctan2(-1, 1)/pi*180:5:1,' deg'); writeln('ArcTan2 special cases:'); writeln('Kwadrant X ( 0, 0):',arctan2( 0, 0)/pi*180:5:1,' deg'); writeln('Kwadrant 1 ( 1, 0):',arctan2( 0, 1)/pi*180:5:1,' deg'); writeln('Kwadrant 2 ( 0, 1):',arctan2( 1, 0)/pi*180:5:1,' deg'); writeln('Kwadrant 3 (-1, 0):',arctan2( 0,-1)/pi*180:5:1,' deg'); writeln('Kwadrant 4 ( 0,-1):',arctan2(-1, 0)/pi*180:5:1,' deg'); end.