主题：编写射线

m5:=ma(c,5);
m30:=ma(c,30);
a:=CROSS(m5,m30);
b:=cross(m30,m5);
cc:=valuewhen(a,close);
ccc:=valuewhen(b,close);
nn:=barslast(a);
nnn:=barslast(b);
if nn>nnn and cc<ccc then begin
n1:=backset(islastbar,nn);
n2:=backset(islastbar,nnn);
drawline(n1=0 and refx(n1,1)=1,close,n2=0 and refx(n2,1)=1,close,1),coloryellow,linethick2;
drawline(n1=0 and refx(n1,1)=1,close,n2=0 and refx(n2,1)=1,cc+(ccc-cc)*0.618,1),colorwhite,linedot;
drawline(n1=0 and refx(n1,1)=1,close,n2=0 and refx(n2,1)=1,cc+(ccc-cc)*0.5,1),colorwhite,linedot;
drawline(n1=0 and refx(n1,1)=1,close,n2=0 and refx(n2,1)=1,cc+(ccc-cc)*0.381,1),colorwhite,linedot;
drawline(n1=0 and refx(n1,1)=1,close,n2=0 and refx(n2,1)=1,cc+(ccc-cc)*0.136,1),colorwhite,linedot;
end

if nn>nnn and cc>ccc then begin
n1:=backset(islastbar,nn);
n2:=backset(islastbar,nnn);
drawline(n1=0 and refx(n1,1)=1,close,n2=0 and refx(n2,1)=1,close,1),coloryellow,linethick2;
drawline(n1=0 and refx(n1,1)=1,close,n2=0 and refx(n2,1)=1,ccc+(cc-ccc)*0.618,1),colorwhite,linedot;
drawline(n1=0 and refx(n1,1)=1,close,n2=0 and refx(n2,1)=1,ccc+(cc-ccc)*0.5,1),colorwhite,linedot;
drawline(n1=0 and refx(n1,1)=1,close,n2=0 and refx(n2,1)=1,ccc+(cc-ccc)*0.381,1),colorwhite,linedot;
drawline(n1=0 and refx(n1,1)=1,close,n2=0 and refx(n2,1)=1,ccc+(cc-ccc)*0.136,1),colorwhite,linedot;
end

if nnn>nn and ccc>cc then begin
n1:=backset(islastbar,nn);
n2:=backset(islastbar,nnn);
drawline(n2=0 and refx(n2,1)=1,close,n1=0 and refx(n1,1)=1,close,1),coloryellow,linethick2;
drawline(n2=0 and refx(n2,1)=1,close,n1=0 and refx(n1,1)=1,cc+(ccc-cc)*0.618,1),colorwhite,linedot;
drawline(n2=0 and refx(n2,1)=1,close,n1=0 and refx(n1,1)=1,cc+(ccc-cc)*0.5,1),colorwhite,linedot;
drawline(n2=0 and refx(n2,1)=1,close,n1=0 and refx(n1,1)=1,cc+(ccc-cc)*0.381,1),colorwhite,linedot;
drawline(n2=0 and refx(n2,1)=1,close,n1=0 and refx(n1,1)=1,cc+(ccc-cc)*0.136,1),colorwhite,linedot;
end

if nnn>nn and ccc<cc then begin
n1:=backset(islastbar,nn);
n2:=backset(islastbar,nnn);
drawline(n2=0 and refx(n2,1)=1,close,n1=0 and refx(n1,1)=1,close,1),coloryellow,linethick2;
drawline(n2=0 and refx(n2,1)=1,close,n1=0 and refx(n1,1)=1,ccc+(cc-ccc)*0.618,1),colorwhite,linedot;
drawline(n2=0 and refx(n2,1)=1,close,n1=0 and refx(n1,1)=1,ccc+(cc-ccc)*0.5,1),colorwhite,linedot;
drawline(n2=0 and refx(n2,1)=1,close,n1=0 and refx(n1,1)=1,ccc+(cc-ccc)*0.381,1),colorwhite,linedot;
drawline(n2=0 and refx(n2,1)=1,close,n1=0 and refx(n1,1)=1,ccc+(cc-ccc)*0.236,1),colorwhite,linedot;
end