t_id
693
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=49 Percentage= 98.00
Result type | Cat. | Count | Percentage | First date | Last Date |
Failed to run | 1 | 2.0 | 2024/09/26 19:39:00 188 | 2024/09/26 19:39:00 188 | |
riscv64 | 1 | 100.0 | 2024/09/26 19:39:00 188 | 2024/09/26 19:39:00 188 | |
linux | 1 | 100.0 | 2024/09/26 19:39:00 188 | 2024/09/26 19:39:00 188 | |
3.3.1 | 1 | 100.0 | 2024/09/26 19:39:00 188 | 2024/09/26 19:39:00 188 | |
Successfully run | 49 | 98.0 | 2024/09/26 18:42:00 90 | 2024/09/26 23:02:00 44 | |
i386 | 4 | 8.2 | 2024/09/26 19:54:00 70 | 2024/09/26 22:38:00 79 | |
powerpc | 14 | 28.6 | 2024/09/26 19:41:00 35 | 2024/09/26 23:02:00 44 | |
powerpc64 | 17 | 34.7 | 2024/09/26 18:42:00 90 | 2024/09/26 22:29:00 103 | |
wasm32 | 7 | 14.3 | 2024/09/26 19:31:00 339 | 2024/09/26 22:50:00 299 | |
riscv64 | 7 | 14.3 | 2024/09/26 19:14:00 123 | 2024/09/26 19:59:00 123 | |
linux | 38 | 77.6 | 2024/09/26 18:42:00 90 | 2024/09/26 23:02:00 44 | |
go32v2 | 4 | 8.2 | 2024/09/26 19:54:00 70 | 2024/09/26 22:38:00 79 | |
wasi | 7 | 14.3 | 2024/09/26 19:31:00 339 | 2024/09/26 22:50:00 299 | |
3.3.1 | 33 | 67.3 | 2024/09/26 18:42:00 90 | 2024/09/26 22:50:00 299 | |
3.2.3 | 16 | 32.7 | 2024/09/26 21:17:00 71 | 2024/09/26 23:02:00 44 |
{$ifdef FPC} Uses Math; {$else not FPC} function degtorad(deg : extended) : extended; begin degtorad:=deg*(pi/180.0); end; function radtodeg(rad : extended) : extended; begin radtodeg:=rad*(180.0/pi); end; function ArcSin(x : extended) : extended; begin if abs(x)=1.0 then arcsin:=Pi/2 else arcsin:=ArcTan(x/sqrt(1-x*x)); end; function ArcTan2(x,y : extended) : extended; begin ArcTan2:=ArcTan(x/y); end; {$endif not FPC} Var I : Integer; RI,RRI,R0 : extended; Begin For I := -179 To 179 Do Begin RI:=I; WriteLn( RadToDeg(ArcSin(Sin(DegToRad(RI)))):3:18); End; For I := -89 To 89 Do Begin RI:=I; RRI:=RadToDeg(ArcSin( Sin(DegToRad(RI)))); WriteLn(RI:3:18,' ',RRI:3:18); If RI<>RRI then begin Writeln('Not exact ',RRI-RI:3:18); if I<>0 then begin Writeln('Percentage error = ',Abs(RRI -RI) *100 / I:3:18); if abs((RRI -RI) *100 / I)>0.0001 then Begin Writeln('Error too big '); Halt(1); end; end; end; End; RI:=3; RRI:=1; R0:=1; Writeln( ArcTan2(ArcTan2(1,1),R0):3:18 , ' should be 0.66577375...'); if ArcTan2(ArcTan2(1,1),R0)<>ArcTan(ArcTan(1)/R0) then begin Writeln('There is still a bug in ArcTan2 !'); Halt(1); end; End.