Help for this page

Select Code to Download


  1. or download this
      use strict; use warnings; 
  $|=1; 
...
print "nv1\n"; my $nv1 = 1e-2                 ;Dump($nv1); print "nv1:
+$nv1 ".($nv1+0)."\n"; Dump($nv1); 
print "dv2\n"; my $dv2 = dualvar( 1e-2, "hi" );Dump($dv2); print "dv2:
+$dv2 ".($dv2+0)."\n"; Dump($dv2);
  2. or download this
    nv1
SV = NV(0xa7c024) at 0xa3e614
...
  PV = 0xa45c5c "hi"\0
  CUR = 2
  LEN = 10