Parametry dipola petlowego

Czestotliwosc:      [MHz] dLugosc ramienia:  [λ] kat rozwarcia:   [stopni]

"; $fp = tmpfile(); $line = sprintf("%f %f %f %f %f %f 0.00001\r\n ",-0.01,0,0,0.01,0,0);#1 fwrite($fp,$line); $line = sprintf("%f %f %f %f %f %f 0.00001\r\n ",0.01,0,0,$Len*sin($alfa)+0.01,$Len*cos($alfa),0);#2 fwrite($fp,$line); $line = sprintf("%f %f %f %f %f %f 0.00001\r\n ",-0.01,0,0,-$Len*sin($alfa)-0.01,$Len*cos($alfa),0);#3 fwrite($fp,$line); $line = sprintf("%f %f %f %f %f %f 0.00001\r\n ",$Len*sin($alfa)+0.01,$Len*cos($alfa),0,0.01,2*$Len*cos($alfa),0);#4 fwrite($fp,$line); $line = sprintf("%f %f %f %f %f %f 0.00001\r\n ",-$Len*sin($alfa)-0.01,$Len*cos($alfa),0,-0.01,2*$Len*cos($alfa),0);#5 fwrite($fp,$line); $line = sprintf("%f %f %f %f %f %f 0.00001\r\n ",-0.01,2*$Len*cos($alfa),0,0.01,2*$Len*cos($alfa),0);#6 fwrite($fp,$line); rewind($fp); while (!feof ($fp)) { $line = fgets ($fp, 1024); $line = strtr($line, ".", ","); echo "$line"; } fclose($fp); } $Freq = $_POST["Freq"]; $Dd = $_POST["Len"]; $dm = $_POST["alfa"]; DipolPetlowy($Freq,$Dd,$dm); ?>