__ 1 __
__ 2 __ # j=1; #rep np # r(j)=rnd(0)-0.5; j=j+1; #end |  #pr data/rnd\I-3 nf;.dat\E #io [op=wd; mo=1; n=np; fir=r(1); file=\Tp\E]  #ma [op=mss; b=1; nx=np; ny=1;]  # S=r(1+np)/np; n=np-1; &=kg;  #case 1 #d 7 A 1 np 1 0  n 247 1100 #pr pic/rnd\I-3 nf;|RND S=\G S;\E #e [n=1;] _scom  #end |
__ 3 __ #f [op=copy; n=1; file=var/000.txt;]  var/00.txt\E  #rob [mo=1; le=200;]  #f [file=var/00.txt;]  var/001.txt\E  #rob [mo=1; le=200;]  # b=b-a+1; nX=a; kX=c; mX=d; #rep b  #m [op=win;] \I5 nX;\E  # iX=0; &=((nX-kX)*(mX-nX))<0; #case 0 # &=nX; #e _1idn 2mca # iX=1; #end | # &=iX; #case 0 # &=nX; #e _1idn 1mca #end | # nX=nX+1; #end   #f [op=copy; n=1; file=var/00.txt;]  var/000.txt\E #rob [mo=1; le=200;]  
__ 4 __ # J=101; J1=J+n; s(3)=1; #pr data/in\I-3 n1;.dat\E #io [op=rd; fir=r(J); n=n; file=\Tp\E mo=1; le=600;] #pr data/in\I-3 n2;.dat\E  #io [fir=r(J1); file=\Tp\E]  # C=-1; #ma [op=vmc; b=J1; le=n;]  #ma [op=vva; b=J; trx=n;]   # C=n3; #ma [op=vmc;] # j=J; s(3)=1; #rep n  #pr \I5 r(j);\E  # j=j+1; #end   #io [op=wt; fir=t(1); n=s(3)-1; file=data/differ.txt;]
__ 5 __ # nc=n*2; n2=n/2; J=99; J1=J+nc; j1=J1+n2; j=J+n2-ns; #pr data/wf\I-3 np;.dat\E  #io [op=rd; le=0; fir=r(J); n=nc; mo=3; file=\Tp\E]  #ma [op=mtr; b=J; nx=2; ny=n;]  #pas n2 r(j) r(j1)  #pas n2 r(j+n) r(j1+n)  # j=J+ns; j1=J1; np=np+1; #pr data/wf\I-3 np;.dat\E  #io [op=rd; le=0; fir=r(J); n=nc; mo=3; file=\Tp\E]  #ma [op=mtr; b=J; nx=2; ny=n;]  #pas n2 r(j) r(j1)  #pas n2 r(j+n) r(j1+n)   #ma [op=mtr; b=J1; nx=n; ny=2;] #pr data/wfa.dat\E  #io [op=wd; fir=r(J1); n=nc; mo=3; file=\Tp\E] 
__ 6 __ # J=99; s(3)=1; #pr obj/obj\I-3 k;.dat\E  #f [op=size; file=\Tp\E]  # n=s(1)/4; &=n<1; ! ~#case 1 #io [op=rd; mo=1; fir=r(J); n=n; le=0;] #d 7 A J n 1 1 n 247 1100  #pr obj/obj\I-3 k;|obj\I-3 k;.dat\E  #e [n=1;] _scom  #end | 
__ 7 __ # &=k; !~#case 4 # n=1365; R=0.15; !~  # m=(n-1)/11; d=0.5/m; r(1)=0; j=1; x=0; x1=d*m/2; R2=R*R; !~  #rep m  # x=x+d; j=j+1; a=x-x1; b=R2-a*a; &=(b*1e9)<1; r(j)=0; #case 1 # r(j)=2*sqr(b); #end | #end   ~  # j=j+1; #rep 10 #pas m r(2) r(j)  # j=j+m; #end   #io [op=wd; mo=1; file=obj/obj004.dat; fir=r(1); n=n;] ~#end | ~#case 5  # n=1365; R2=1; !~  # m=(n-1)/11; d=4/m; r(1)=0; j=1; x=0; x1=d*m/2; !~  #rep m  # x=x+d; j=j+1; a=x-x1; b=R2-a*a; &=(b*1e9)<1; r(j)=0; #case 1 # r(j)=1; #end | #end  ~  # j=j+1; #rep 10 #pas m r(2) r(j)  # j=j+m; #end   #io [op=wd; mo=1; file=obj/obj005.dat; fir=r(1); n=n;] ~#end | ~#case 6  # n=61300; d=0.01; K=1; S=150; !~  # n2=n/2; A2=n2*d; J=99; J1=J+n2; J2=J1+n2; C=d/2; D=d; #ma [op=via; b=J1; le=n2;]  ~  # C=1000/n; #ma [op=vmc;]  #ma [op=vvm; trx=0;]  #pas n2 r(J1) r(J2)  # C=-1; #ma [op=vin; b=J2;]  #ma [op=vmc;]  ~  #ma [op=vva; b=J1; trx=n2;]   #pas n2 r(J1) r(J)  #ma [op=mii; b=J; nx=n2; ny=1; mo=1;]  # &=K; !~  #case 1 # n2=65536; n1=(n2-n)/2; #pas n r(J) r(J+n1) # C=0; #ma [op=vic; b=J; le=n1;]  #ma [b=J+n+n1;] ~    #d 3 r(1) S 0 0  #ma [op=mcg; b=J; sav=J; nx=n2; ny=1; n=1; file=here; form=here;]   #pas n r(J+n1) r(J)  ~  #end |   #io [op=wd; fir=r(J); n=n; mo=1; file=obj/obj006.dat;]   ~#end |  ~#case 7  # n=2048; K=1; S=60; n2=n/2; x=-n2+0.5; J=99; j=J; #d 6 r(1) 100 -600 200 0 150 600 ! ~#rep n  # i=1; f=0; #rep 3 # R=r(i); X=x-r(i+1); g=(R*R-X*X)>0; f=f+sqr(g); i=i+2; #end  # r(j)=f; j=j+1; x=x+1; #end   ~# C=0.005; #ma [op=vmc; b=J; le=n;]  # &=K; !~#case 1 #d 3 r(1) S 0 0  #ma [op=mcg; b=J; sav=J; nx=n; ny=1; n=1; file=here; form=here;]   #end |~#io [op=wd; fir=r(J); n=n; mo=1; file=obj/obj007.dat;]  ~#end |  ~#case 9  # n=1024; N=12; n2=n*2; J=n+1; j=J; k=1; d=1/n; R=1/sqr(N); m0=0; C=1; D=-1; !~  #rep N  # L=R*sqr(k); m1=int(L/d+0.5); m=m1-m0; C=C+D; #ma [op=vic; b=j; le=m;] # j=j+m; k=k+1; D=-D; m0=m1; #end   ~  #pas n r(J) r(1)  #ma [op=mii; b=1; nx=n; ny=1; mo=1;]  #io [op=wd; fir=r(1); n=n2; file=obj/obj009.dat;]  ~#d 7 A 1 n2 1 -1 1 247 1100 #pr obj009|obj009\E ##1 ! ~#end | ~#case 10 #  L=15.194; t=201.3; tB=23.652; tB=tB*3.141593/180; T=tan(tB); B=3.141593/(L*T); X=t*T; X2=X*X; d=0.1; x=d/2; k=0; a=bj0(B*X); ! ~  # C=0; D=1; r(1)=C; j=1; x=x+d; &=0; ! ~  #case 0  # &=(X-x)<0; ! ~    #case 0  # o=B*sqr(X2-x*x); b=bj0(o); &=(a*b)>0; #case 0  # k=k+1; C=C+D; D=-D;  #end |  # j=j+1; r(j)=C; a=b; x=x+d;  #end |  # &=sgn(11-k)<0; !~  #end   # n=j; n2=n*2; #pas n r(1) r(1+n)  #ma [op=mii; b=1; nx=n; ny=1; mo=1;]  #io [op=wd; fir=r(1); n=n2; file=obj010.dat;]  ~  # X=n2*d*cos(tB);  #d 7 A 1 n2 1 -1 1 247 1100 #pr obj010|obj010, \I5 n2;\G X;\E #e [b=KY; le=670; n=1;] _text ! ~#end | ~#case 22  # n=1024; N=13; n2=n*2; J=n+1; j=J; k=1; d=1/n; R=1/sqr(N); m0=0; C=0; D=1; !~  #rep N  # L=R*sqr(k); m1=int(L/d+0.5); m=m1-m0; C=C+D; #ma [op=vic; b=j; le=m;] # j=j+m; k=k+1; D=-D; m0=m1; #end   ~  #pas n r(J) r(1)  #ma [op=mii; b=1; nx=n; ny=1; mo=1;]  #io [op=wd; fir=r(1); n=n2; file=obj/obj022.dat;]  ~#d 7 A 1 n2 1 -1 1 247 1100 #pr obj/obj022|obj022\E ##1 ! ~#end | ~
__ 8 __ # &=&w; j=11; u=2*n; #io [op=rd; mo=3; fir=r(j); n=2*u; file=data/wfa.dat; le=0;] # d1=2*d0*sin(RD*tb); !  ~#case 1  #ma [op=mtr; b=j; nx=2; ny=n;] #ma [b=j+u;]  # x2=d*n/2; x1=-x2; x4=d1*(N0+N1)/2; x3=-x4+sd; x4=x4+sd; m=N0+N1+1; v=2*m; ! ~  #d 7 r(1) j x1 x2 n x3 x4 m  #rep 4 #e [n=9;] _scom # r(1)=r(1)+n; #end  # k=n; l=m; #rep 3 #pas m r(j+k) r(j+l) # k=k+n; l=l+m; #end   ~  #ma [op=mtr; b=j; nx=m; ny=2;] #ma [b=j+v;] #io [op=wd; mo=3; fir=r(j); n=2*v; file=data/waves.dat;] ~  #d 4 r(ZZ-21) j v 1 -1 #pr pic\E #e [n=18;] _scom  #d 2 AZ j v #e [n=8;] _scom #d 3 r(ZZ-10) -j -v 1 #pr pic\E #e [n=26;] _scom !~#end | ~#case 2  # j1=j+4*n; m=N1+1; w=2*m; #pr data/t\I-3 V; tr.dat\E  #io [op=rd; mo=3; fir=r(j1); n=2*w; file=\Tp\E; le=0;] ~  #ma [op=mtr; b=j1; nx=2; ny=m;]  #ma [b=j1+w;]  # x2=d1*N1/2; x1=-x4; k=int(N1*d1/d+0.5); x4=x2-d/2; x3=x1+d/2; v=2*k; &=(k-m)>0<1; ! ~  #case 0 #d 7 r(1) j1 x1 x2 m x3 x4 k #rep 4 #e [n=9;] _scom # r(1)=r(1)+m; #end  #pas k r(j1+m) r(j1+k) #pas k r(j1+w) r(j1+v) #pas k r(j1+w+m) r(j1+v+k) #end | ~  #case 1 #pas m r(j1+m) r(j1+k) #pas m r(j1+w) r(j1+v) #pas m r(j1+w+m) r(j1+v+k)  #d 7 r(1) j1 x1 x2 m x3 x4 k  #rep 4 #e [n=9;] _scom # r(1)=r(1)+k; #end  #end |  ~  #ma [op=mtr; b=j1; nx=k; ny=2;] #ma [b=j1+v;] # w=2*int((n-k+1)/2+sd/d); #pas v r(j1) r(j+u+w) #pas v r(j1+v) r(j+w) #io [op=wd; mo=3; fir=r(j); n=2*u; file=data/wfa.dat;] ~#end | ~
__ 9 __  # &=&w; n2=N0+1; J=51; j=J; w=w/2; n1=n2*2;! ~#case 2  # n3=n2-1; k=0; a=n3*n3/4; #rep n2 # b=w*sqr(k*(n3-k)/a); r(j)=-b; r(j+1)=b; j=j+2; k=k+1; #end  #end | ~#case 1  #rep n2 # r(j)=-w; r(j+1)=w; j=j+2; #end  #end | ~#io [op=wd; mo=1; file=data/rbam.dat; fir=r(J); n=n1;]  # j=J+n1; C=-1e9;  #ma [op=vic; b=j; le=n2;] # C=-C; #ma [b=j+n2;]  ~#ma [op=mtr; b=j; nx=n2; ny=2;]  #io [op=wd; mo=1; file=data/rbcr.dat; fir=r(j); n=n1;]  #rob [mo=1; le=100;] ~#ma [op=mtr; b=J; nx=2; ny=n2;] #pr pic/rbam|rbam\E  #d 7 A J n2 2 1 n2 247 100  #e [n=1;] _scom !  ~#ma [op=mtr; b=J+n1; nx=2; ny=n2;]  #pr pic/rbcr|rbcr\E  #d 7 A j n2 2 1 n2 247 100  #e [n=1;] _scom ! ~
__ 10 __   ~    ~
__ 11 __ # s(3)=1; J=99; J1=J+n; n2=n/2; C=0; #ma [op=vic; b=J; le=n2;] # C=1; #ma [b=J+n2;] #d 3 r(1) s1 0 0 #ma [op=mcg; b=J; sav=J; nx=n; ny=1; n=1; file=here; form=here;] # C=1;  #ma [op=vic; b=J1;] # C=0; #ma [b=J1+n2;] #d 3 r(1) s2 0 0 #ma [op=mcg; b=J1; sav=J1;] #pr obj/obj\I-3 no;.dat\E #io [op=wd; mo=1; file=\Tp\E fir=r(J); n=2*n;]
__ 12 __ # s(3)=1; #pr m\I-3 nf;.dat\E  # a=1; b=s(5); #pr m\I-3 nm;.dat\E  # c=s(4); d=s(5); !~#d 8 r(1) 0 1 0 1 0 1 0 1 #ma [op=mmi; n=1; nx=n1; ny=n2; wid=n3; hei=n3; file=\Ta b\E form=\Tc d\E em=0;] 
__ 13 __ # s(3)=1; #pr data/wfa.dat\E #f [op=size; file=\Tp\E]  # n=s(1)/32; j=11; m=1; a=-1; b=1; #io [op=rd; mo=3; fir=r(j); n=4*n; le=0;]  ~#ma [op=mtr; b=j; nx=2; ny=n;]  #ma [b=j+2*n;]  # N=n; k=int(n*s); J=j+int((n-k)/2); n=k; #pr pic/wfaTRe\E #e _h001 # J=J+N; ! ~#pr pic/wfaTIm\E #e _h001 # J=J+N;  #pr pic/wfaRRe\E #e _h001 # J=J+N;  #pr pic/wfaRIm\E #e _h001 # K=J; k=2*N; j=J-n-k; #pas n r(J-N-k) r(j)  ~#ma [op=mtr; b=j; nx=n; ny=2;]  #d 2 AZ j n #e [n=8;] _scom  # J=j; #pr pic/wfaTIn\E  #e _h001 # J=K; j=J-n; #pas n r(J-N) r(j)  ~#ma [op=mtr; b=j; nx=n; ny=2;]  #d 2 AZ j n #e [n=8;] _scom  # J=j; #pr pic/wfaRIn\E  #e _h001 
__ 14 __ 
__ 15 __ 
__ 16 __ 
