100129185827.d1.pl
open(FHNDL,">./100129185827.d1");
require 'emath.pl';
$a=1; $b=1; $c=1; $d=2; $aa=6; $bb=3; $cc=-3; $dd=1; $aaa=1; $bbb=-2; $ccc=1; $ddd=0; $delta=$a*$bb*$ccc+$b*$cc*$aaa+$c*$aa*$bbb-$a*$cc*$bbb -$b*$aa*$ccc-$c*$bb*$aaa; if (abs($delta)<0.0001){ printf FHNDL ""; }else{ $x=($d*$bb*$ccc+$b*$cc*$ddd+$c*$dd*$bbb-$d*$cc*$bbb -$b*$dd*$ccc-$c*$bb*$ddd); $y=($a*$dd*$ccc+$d*$cc*$aaa+$c*$aa*$ddd-$a*$cc*$ddd -$d*$aa*$ccc-$c*$dd*$aaa); $z=($a*$bb*$ddd+$b*$dd*$aaa+$d*$aa*$bbb-$a*$dd*$bbb -$b*$aa*$ddd-$d*$bb*$aaa); $xg=Igcm($x,$delta); $x=$x/$xg;$xx=$delta/$xg; $yg=Igcm($y,$delta); $y=$y/$yg;$yy=$delta/$yg; $zg=Igcm($z,$delta); $z=$z/$zg;$zz=$delta/$zg; if ($xx<0){$xx*=-1;$x*=-1}; if ($yy<0){$yy*=-1;$y*=-1}; if ($zz<0){$zz*=-1;$z*=-1}; printf FHNDL "(%s/%s,%s/%s,%s/%s)",$x,$xx,$y,$yy,$z,$zz; } 
close(FHNDL);

100129185827.d1
は０バイト（空）です。

▼関連発言
│
└◆8581:\IsEqi [石原　守] 01/29 19:44
　└◆8582:Re:\IsEqi [tDB] 01/29 20:04
　　└◆8583:Re[2]:\IsEqi [石原　守] 01/29 20:07
　　　└◆8584:Re[3]:\IsEqi [tDB] 01/29 20:30
　　　　└◆8585:Re[4]:\IsEqi [石原　守] 01/29 20:41
　　　　　└◆8586:Re[5]:\IsEqi [tDB] 01/29 20:53
　　　　　　└◆8587:Re[6]:\IsEqi [石原　守] 01/29 20:55
　　　　　　　└◆8588:Re[7]:\IsEqi [tDB] 01/29 22:56
　　　　　　　　└◆8589:Re[8]:\IsEqi [石原　守] 01/30 05:18<-last