Anonymous user
Shell one-liner: Difference between revisions
→{{header|FORTRAN}}
Line 161:
$ gawk 'BEGIN{print"write(6,\"(2(g12.3,x))\")(i/10.0,besj1(i/10.0), i=0,1000)\nend";exit(0)}'|gfortran -x f95 - && gnuplot -p -e 'plot "<./a.out" t "Bessel function of 1st kind" w l'
</lang>
Sorry, I don't know how to upload my jpeg file for the Image tag. Let's use the dumb display instead.
<pre>
0.6 +*------------+-------------+------------+-------------+------------++
+** + + Bessel function of 1st kind ****** +
0.5 +** ++
|** |
0.4 +** ++
* * |
0.3 *+* * ++
* * ** * |
0.2 *+* *** ** ** ++
0.1 *+* * * ** ** *** ** ** * ** * ++
* ** * * *** ** * * *** ** *** ** ** *** ** ** *** ** ** |
0 *+ * * * * * * * * * * * *** * * * * *** * * *** *** * * *** ***+
| * * * * *** * * * * *** * * * * *** *** * * **** *** *** *** *|
-0.1 ++ * * * * ** *** *** ** ** *** ** ** ** ** ** ** ** **
| *** *** ** ** ** ** * * |
-0.2 ++ ** ** ** ++
| ** * |
-0.3 ++ ** ++
+ ** + + + + +
-0.4 ++------------+-------------+------------+-------------+------------++
0 20 40 60 80 100
</pre>
=={{header|Gema}}==
| |||