|
|
|
";
/*
printf("0 %f %f 0 %f %f %f\r\n ",-$Lgeom / 1000,-$Dd / 2000,$Lgeom / 1000,-$Dd / 2000,$dm / 1000); printf("0 %f %f 0 %f %f %f\r\n ",-$Lgeom / 1000,$Dd / 2000,$Lgeom / 1000,$Dd / 2000,$dm / 1000); */ $fp = tmpfile(); $line = sprintf("0 %f %f 0 %f %f %f\r\n ",-$Lgeom / 1000,-$Dd / 2000,$Lgeom / 1000,-$Dd / 2000,$dm / 1000); fwrite($fp,$line); $line = sprintf("0 %f %f 0 %f %f %f\r\n ",-$Lgeom / 1000,$Dd / 2000,$Lgeom / 1000,$Dd / 2000,$dm / 1000); fwrite($fp,$line); Polkole($fp, $Lgeom, 0, 0, $Dd / 2 , $dm); Polkole($fp, -$Lgeom, 0, 3.1415926528, $Dd / 2, $dm); rewind($fp); while (!feof ($fp)) { $line = fgets ($fp, 1024); $line = strtr($line, ".", ","); echo "$line"; } fclose($fp); } Function Polkole($fp, $Xo, $Yo, $Fio, $R, $dm) { $X = 20; for ($i = 0;$i< $X;$i++) /*{ printf(" 0 %f %f 0 ", ($R * Sin($Fio) + $Xo) / 1000 ,($R * Cos($Fio) + $Yo) / 1000); $Fio += 3.14159226528 / $X; printf("%f %f %f\r\n ",($R * Sin($Fio) + $Xo) / 1000 ,($R * Cos($Fio) + $Yo) / 1000 ,$dm/1000); } */ { $line = sprintf(" 0 %f %f 0 ", ($R * Sin($Fio) + $Xo) / 1000 ,($R * Cos($Fio) + $Yo) / 1000); $Fio += 3.14159226528 / $X; fwrite($fp,$line); $line = sprintf("%f %f %f\r\n ",($R * Sin($Fio) + $Xo) / 1000 ,($R * Cos($Fio) + $Yo) / 1000 ,$dm/1000); fwrite($fp,$line); } } $Freq = $_POST["Freq"]; $Dd = $_POST["Dd"]; $dm = $_POST["dm"]; /* $_POST $Freq = $HTTP_POST_VARS["Freq"]; $Dd = $HTTP_POST_VARS["Dd"]; $dm = $HTTP_POST_VARS["dm"]; */ DipolPetlowy($Freq,$Dd,$dm); ?> |