【图】求助 : 三线开花 原码 .谢谢!

{三线开花}
input:n(5);
DRAWGBK(CLOSE>0, COLORRGB(60,15,35) ,COLORRGB(50,50,90),1);
bb:=ref(date,BARSCOUNT(c)-1);
SS:=if(bb>1000000,bb+1000000,bb);
DRAWTEXT(sysparam(2)=BARPOS,c,'          上市'),COLORRED,ALIGN5;
drawnumber(sysparam(2)=barpos,l,SS,0),shift5,align5,COLORYELLOW;
DRAWTEXT(sysparam(2)=BARPOS,c,'证券代码:'+STKLABEL),ALIGN4,COLORGREEN;
STICKLINE(C>O OR (C=O AND C>REF(C,1)),H,L,0.1,0),COLORRED;
STICKLINE(C>O OR (C=O AND C>REF(C,1)),O,C,7,1),COLORRED;
STICKLINE(C<O OR (C=O AND C<=REF(C,1)),H,L,0.1,0),COLORCYAN;
STICKLINE(C<O OR (C=O AND C<=REF(C,1)),O,C,7,0),COLORCYAN;
线1:(MA(CLOSE,5)+MA(CLOSE,10)+MA(CLOSE,25))/3,SHIFT5,COLORGREEN;
线2:(MA(CLOSE,5)+MA(CLOSE,10)+MA(CLOSE,20)+MA(CLOSE,30)+MA(CLOSE,60)+MA(CLOSE,120))/6,SHIFT5,COLORGREEN;
线3:(MA(CLOSE,20)+MA(CLOSE,60)+MA(CLOSE,120))/3,SHIFT5,COLORGREEN,linethick2;
线4:=(MA(CLOSE,13)+MA(CLOSE,34)+MA(CLOSE,55))/3,SHIFT5;
Stickline(线1>线4,线1,线4,0.1,1),ColorFF0080;
Stickline(线1<线4,线1,线4,0.1,1),COLORGREEN;
DRAWICON(CROSS(线1,线4),线1,1);
PARTLINE(线1>线2,线3),COLORRED,linethick2;
PARTLINE(线1>线2,线1),COLORRED;
PARTLINE(线2>线3,线2),COLORRED;
STICKLINE(C>=O,H,L,0,0),COLORYELLOW;
STICKLINE(C>=O,C,O,8,0),COLORYELLOW;
STICKLINE(C<=O,C,O,8,0),COLORCYAN;
STICKLINE(C<=O,H,L,0,0),COLORCYAN;
VarA:=EMA(C,4);
VarB:=REF(VarA,5/2+1);
VarC:=(EMA(C,60)+EMA(C,90))/2;
STICKLINE(C>VarB AND C>=VarC,O,C,8,0),COLORYELLOW;

敏感:(3*(O+H+L+C))/12.05,SHIFT5,COLORWHITE,LINETHICK2;
实战:EMA(CLOSE,4),SHIFT5,COLORRED,LINETHICK2;

EC:=EMA(CLOSE,7);
支撑:EMA(EC,2),SHIFT5,COLORGREEN;
HH:=HHV(H,120);
LL:=LLV(L,120);
压力:(HH-LL)*0.618+LL,SHIFT5,COLORYELLOW;
高:HHV(MA((LOW+HIGH+CLOSE+OPEN)/4.02,3),30),SHIFT5,COLOR9966FF,LINETHICK1;
低:LL,SHIFT5,COLORAAEE00,LINETHICK1;

EL1:=EMA(LOW,6);
EL2:=EMA(EMA(LOW,34)*1,02)-0.16;
DRAWICON(CROSS(EL1,EL2),EL1,10);

V1:=REF(C,1);
V2:=SMA(MAX(C-V1,0),6,1)/SMA(ABS(C-V1),6,1)*100;
DRAWICON(IF(CROSS(81,V2),1,0),h*1.01,11);
Var1:=SYSPARAM(3)-SYSPARAM(2)+1;
Var2:=SYSPARAM(3)-BARPOS;
Var3:=HHV(HIGH,Var1);
Var4:=LLV(LOW,VaR1);
Var5:=REFX(Var3,Var2);              //主图最高价
Var5:IF(SYSPARAM(3)<>SYSPARAM(1),SYSPARAM(6),Var5),COLOR0000FF;
Var6:REFX(Var4,Var2),COLOR0000FF;  //主图最低价
黄191: (Var5-Var6)*0.191+Var6,COLOR0000FF,POINTDOT;
黄382: (Var5-Var6)*0.382+Var6,COLOR0000FF,POINTDOT;
黄500: (Var5-Var6)*0.500+Var6,COLOR0000FF;
黄618: (Var5-Var6)*0.618+Var6,COLOR0000FF,POINTDOT;
黄809: (Var5-Var6)*0.809+Var6,COLOR0000FF,POINTDOT;
DRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.0381+Var6,'最低价('+NUMTOSTR(Var6,2)+')'),COLOR00FF00;
DRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.191+Var6,'黄金0.191('+NUMTOSTR(黄191,2)+')'),COLOR00FF00;
DRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.382+Var6,'黄金0.382('+NUMTOSTR(黄382,2)+')'),COLOR00FF00;
DRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.500+Var6,'黄金分割中轴('+NUMTOSTR(黄500,2)+')'),COLOR00FF00;
DRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.618+Var6,'黄金0.618('+NUMTOSTR(黄618,2)+')'),COLOR00FF00;
DRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.809+Var6,'黄金0.809('+NUMTOSTR(黄809,2)+')'),COLOR00FF00;
DRAWTEXT(SYSPARAM(2)=BARPOS,(Var5-Var6)*0.981+Var6,'最高价('+NUMTOSTR(Var5,2)+')'),COLOR00FF00;
ZF:=(c/ref(c,4)-1)*100;
s:='z:'+NUMTOSTR(ZF[SYSPARAM(1)],2);
DRAWTEXT(BARPOS=SYSPARAM(1),h,s) ALIGN4;