{VERSION 6 0 "IBM INTEL LINUX" "6.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 
0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 }
{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 
0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Output" 0 11 1 
{CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 
0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "reset;" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#%&resetG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 43 "fd := fopen(\"dati.echo-emulazione\", WRITE);" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>%#fdG\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 63 "r:=0;amp1:=0.127;amp2:=0.00318;dist:=25;fprintf(fd,\"%d\\n\",1
02):" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"rG\"\"!" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#>%%amp1G$\"$F\"!\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "
6#>%%amp2G$\"$=$!\"&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%distG\"#D" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 154 "for i from 1 to 91 do y:
=24/91*i:x:=dist+y:t:=2*sqrt(x^2+y^2)/330:s:= amp1*2.33/(sqrt(x^2+y^2)
):r:=evalf(r+s):fprintf(fd,\"%g %g\\n\",evalf(t),evalf(s)); od:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "evalf(1-r);" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#$\"+0bq+G!#5" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 173 "for i from 1 to 9 do y:=24/9*i:x:=dist+6.1+17.9/9*i:
t:=2*sqrt(x^2+y^2)/330:s:= amp2*(122.7-11.8*(i-1))/(sqrt(x^2+y^2+36)):
r:=r+s:fprintf(fd,\"%g %g\\n\",evalf(t),evalf(s)); od:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "evalf(1-r);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#$\"+p1tjA!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
122 "y:=24+3:x:=dist+24+2.6:t:=2*sqrt(x^2+y^2)/330:s:= amp2* 99/(sqrt(
x^2+y^2)):r:=r+s:fprintf(fd,\"%g %g\\n\",evalf(t),evalf(s)):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "evalf(1-r);" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#$\"+ZBn4A!#5" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 37 "fprintf(fd,\"%g %g\\n\",0.0,evalf(1-r)):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "fclose(fd);" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "11 0 0" 0 }{VIEWOPTS 1 1 0 1 1 
1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }