Changeset 951db29 in git

Timestamp:

Feb 3, 2012, 3:16:59 PM (12 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

ae030dd67600f8c616b99c188fc8b847e488a2a8

Parents:

7938a0f011b7631108f90c25ded16172b942b7b1

Message:

fix: approximate floats are difficult to test: rewrote test

Location:

Tst/Manual

Files:

• wurzel.res.gz.uu (modified) (1 diff)
• wurzel.stat (modified) (1 diff)
• wurzel.tst (modified) (1 diff)

Tst/Manual/wurzel.res.gz.uu

@@ -1 +1 @@
 begin 640 wurzel.res.gz
-M'XL("#Z*<TX``W=U<GIE;"YR97,`19#-2@-1#(7W?8I+<=%"J<FY-W\49R%N
-M"N+"NI<1BPPM13I3*CZ]M[7631(2\IV3K%X>ED\I)6[2X_(^C8=^F&^[M_$B
-MU>JUVW7#9+H8G7)JFG0\[+_7V_EN?9SW0SN,5I=M7+;;3=]NVE_`=9B;M.]V
-M'^DYW26:?<W>/_]GY8\Y,444AE.P$Q-557858V)$(+)R9@-3!DA,F$3!"B,W
-M=H$)LN<HH:X9YI8+F4%1G(0*<T0I7OGN05J!1<]@%;9;<)9PHQI1#1`Y<@B!
-MC90U1,!<E*I8$2"+:A742JP-5C('P&$0<])"(D1`*,BU&A?3Z\'2G!][^MZA
-/G_!T<3/Z`1V?CBR#`0``
+M'XL(",WK*T\``W=U<GIE;"YR97,`79'+;L(P$$7W?,45ZH*V:>(\(*$H7E3=
+M(-$N0G[`20Q8.+;E!)7VZVLH!-3MS#TS<^QU^;[\!!!2K)9O&+-]Q_;,EZ(:
+M+T;K2S.BL$)M42`'\8Y>8VZ]F*+A&Y3YU\'^<#E)9]$\":.,S,.,A(0\WJ()
+M11"@A.B@E?P&4V#&6'T4+>N%5IZ;9+AJ3JNT0AP%LZ02_<!/_1//5(-^QR%:
+M(WG+57]FH3=0\H.9E5;;8D!F9Z3>\7I_AO[V^:BUM;SN%>^Z:^UU@%+_HEOD
+MEC/IA.6=<$:A#FW%K7-VAYM)X95WDG.*<C'*_#2>\F>27NLAH?C_-"_EDXL2
+4GQ#BHF2(NK]X&/T"GB+:09D!````
 `
 end

Tst/Manual/wurzel.stat

@@ -1 @@
-1 >> tst_memory_0 :: 1316104113:3132- exportiert :3-1-3:ix86-Linux:mamawutz:234652
-1 >> tst_memory_1 :: 1316104113:3132- exportiert :3-1-3:ix86-Linux:mamawutz:669968
-1 >> tst_memory_2 :: 1316104113:3132- exportiert :3-1-3:ix86-Linux:mamawutz:739172
-1 >> tst_timer_1 :: 1316104113:3132- exportiert :3-1-3:ix86-Linux:mamawutz:28

Tst/Manual/wurzel.tst

@@ -1 @@
-LIB "tst.lib"; tst_init();
 LIB "aksaka.lib";
 ring R = 0,x,dp;
-wurzel(7629412809180100);
-tst_status(1);$
+def T=wurzel(7629412809180100);
+// T is only an approximation, depending on 32/64bit
+// and the implementation of nlMapLongR
+// check the approx. correctness approx.:
+ring RR=real,x,lp;
+number T=imap(R,T);
+T;
+7629412809180100-T*T;
+$