东方求败第3代系列12----东方紫晶----万里长征

股价90:="DF";
BY1:="BYX";
BY:BY1,LINETHICK2,COLORYELLOW;
DF1:="DFA";
Y1:DF1,COLORRED;
DF3:="DFC";
{Y3:DF3,COLORRED;}
DF6:="DFF";
Y6:DF6,COLORRED;
DF12:="DFAB";
Y12:DF12,LINETHICK2,COLORFF00FF;
DF24:="DFBD";
Y24:DF24,LINETHICK1,COLORRED;
DF36:="DFCF";
Y36:DF36,LINETHICK1,COLORRED;
DF48:="DFDH";
{Y48:DF48,COLORRED;}
DF60:="DFFO";
Y60:DF60,COLORRED;
DF72:="DFGB";
{Y72:DF72,COLORRED;}
增幅90:=XMA(XMA(XMA(股价90,3),3),3)-REF(XMA(XMA(XMA(股价90,3),3),3),1);
X390:=XMA(股价90,3);
J390:=(XMA(股价90,3)*3+0.5*股价90-0.5*REF(股价90,1)+增幅90)/3;
Y390:=IFF(CURRBARSCOUNT=1,J390,X390);
股价91:=Y390;
增幅91:=XMA(XMA(XMA(股价91,3),3),3)-REF(XMA(XMA(XMA(股价91,3),3),3),1);
X391:=XMA(股价91,3);
J391:=(XMA(股价91,3)*3+0.5*股价91-0.5*REF(股价91,1)+增幅91)/3;
Y391:=IFF(CURRBARSCOUNT=1,J391,X391);
股价92:=Y391;
增幅92:=XMA(XMA(XMA(股价92,3),3),3)-REF(XMA(XMA(XMA(股价92,3),3),3),1);
X392:=XMA(股价92,3);
J392:=(XMA(股价92,3)*3+0.5*股价92-0.5*REF(股价92,1)+增幅92)/3;
Y392:=IFF(CURRBARSCOUNT=1,J392,X392);
股价93:=Y392;
增幅93:=XMA(XMA(XMA(股价93,3),3),3)-REF(XMA(XMA(XMA(股价93,3),3),3),1);
X393:=XMA(股价93,3);
J393:=(XMA(股价93,3)*3+0.5*股价93-0.5*REF(股价93,1)+增幅93)/3;
Y393:=IFF(CURRBARSCOUNT=1,J393,X393);
股价94:=Y393;
增幅94:=XMA(XMA(XMA(股价94,3),3),3)-REF(XMA(XMA(XMA(股价94,3),3),3),1);
X394:=XMA(股价94,3);
J394:=(XMA(股价94,3)*3+0.5*股价94-0.5*REF(股价94,1)+增幅94)/3;
Y394:=IFF(CURRBARSCOUNT=1,J394,X394);
股价95:=Y394;
增幅95:=XMA(XMA(XMA(股价95,3),3),3)-REF(XMA(XMA(XMA(股价95,3),3),3),1);
X395:=XMA(股价95,3);
J395:=(XMA(股价95,3)*3+0.5*股价95-0.5*REF(股价95,1)+增幅95)/3;
Y395:=IFF(CURRBARSCOUNT=1,J395,X395);
股价96:=Y395;
增幅96:=XMA(XMA(XMA(股价96,3),3),3)-REF(XMA(XMA(XMA(股价96,3),3),3),1);
X396:=XMA(股价96,3);
J396:=(XMA(股价96,3)*3+0.5*股价96-0.5*REF(股价96,1)+增幅96)/3;
Y396:IFF(CURRBARSCOUNT=1,J396,X396),LINETHICK3,COLORRED;
险1:Y396*1.1,COLORLIRED;
险2:Y396*1.125,COLORLIRED;
险3:Y396*1.15,COLORLIRED;
良1:Y396*0.9,COLORLIBLUE;
良2:Y396*0.875,COLORLIBLUE;
良3:Y396*0.85,COLORLIBLUE;
变色BY:IF(BY<=REF(BY,1),BY,DRAWNULL),LINETHICK2,COLORGREEN;
变色1:IF(Y1<=REF(Y1,1),Y1,DRAWNULL),COLORGREEN;
{变色3:IF(Y3<=REF(Y3,1),Y3,DRAWNULL),COLORGREEN;}
变色6:IF(Y6<=REF(Y6,1),Y6,DRAWNULL),COLORGREEN;
变色12:IF(Y12<=REF(Y12,1),Y12,DRAWNULL),LINETHICK2,COLORFFFF00;
变色24:IF(Y24<=REF(Y24,1),Y24,DRAWNULL),LINETHICK1,COLORGREEN;
变色36:IF(Y36<=REF(Y36,1),Y36,DRAWNULL),COLORGREEN;
{变色48:IF(Y48<=REF(Y48,1),Y48,DRAWNULL),COLORGREEN;}
变色60:IF(Y60<=REF(Y60,1),Y60,DRAWNULL),COLORGREEN;
{变色72:IF(Y72<=REF(Y72,1),Y72,DRAWNULL),COLORGREEN;}
变色:IF(Y396<REF(Y396,1),Y396,DRAWNULL),LINETHICK3,COLORBLUE;
{WSR1:=(CLOSE-MA(CLOSE,5))/MA(CLOSE,5)*100;}
{WSR2:=CROSS(WSR1,5);}
{WSR3:=CROSS(8,WSR1);}
{WSR4:=CROSS(WSR1,-5);}
{WSR5:=CROSS(WSR1,-8);}
{WSR6:=WSR3;}
{WSR7:=WSR4 OR WSR5;}
{WSR8:=WSR7 AND FILTER(WSR7,5);}
{WSR10:DRAWICON(WSR8,L-0.01,1);}
{WSR9:=WSR6 AND FILTER(WSR6,5);}
{WSR11:DRAWICON(WSR9,H+0.01,2);}
WSR1:=(CLOSE-MA(CLOSE,5))/MA(CLOSE,5)*100;
WSR2:=CROSS(WSR1,5);
WSR3:=CROSS(8,WSR1);
WSR4:=CROSS(WSR1,-5);
WSR5:=CROSS(WSR1,-8);
WSR6:=WSR3;
WSR7:=WSR4 OR WSR5;
WSR8:=WSR7 AND FILTER(WSR7,5);
WSR10:DRAWICON(WSR8,L-0.01,1);
WSR9:=WSR6 AND FILTER(WSR6,5);
WSR11:DRAWICON(WSR9,H+0.01,2);
WSR12:=O<良3;
DRAWICON(WSR12 AND FILTER(WSR12,12),L-0.03,9);
W1:=C>REF(C,1) AND MACD<REF(MACD,1) AND MACD>0 AND V<REF(V,1);
W2:=C>REF(C,1) AND MACD<0 AND MACD<REF(MACD,1) AND V<REF(V,1);
XG:=W1 OR W2;
VAR1:=AMOUNT/VOL/7;
VAR2:=(3*HIGH+LOW+OPEN+2*CLOSE)/7;
VAR3:=SUM(AMOUNT,10)/VAR1/7;
VAR4:=DMA(VAR2,VOL/VAR3);
VAR5:=(CLOSE-VAR4)/VAR4*100,COLORLIMAGENTA;
XG1:=CROSS(VAR5,MA(VAR5,2)) AND VAR5<0 AND C<(HHV(H,5)*0.88) AND REF(O>C,1) AND REF(O>C,2);
XG3:=XG AND XG1 AND L<良1;
WSR13:=O>良3 AND L<良1 OR XG3;
DRAWICON(WSR13 AND FILTER(WSR13,10),L-0.03,5);
WSR14:=H>险3;DRAWICON(WSR14 AND FILTER(WSR14,15),H+0.03,6);
WSR15:=H<险3 AND H>险2;DRAWICON(WSR15 AND FILTER(WSR15,5),H+0.03,4);
WSR16:=(INDEXC-MA(INDEXC,3))/MA(INDEXC,3);
WSR17:=(INDEXC-MA(INDEXC,8))/MA(INDEXC,8);
WSR18:=(INDEXC-MA(INDEXC,18))/MA(INDEXC,18);
WSR19:=(WSR16 + WSR17 + WSR18)/3;
WSR20:=(C-MA(C,3))/MA(C,3);
WSR21:=(C-MA(C,8))/MA(C,8);
WSR22:=(C-MA(C,18))/MA(C,18);
WSR23:=(WSR20 + WSR21 + WSR22)/3;
WSR24:=(WSR19>REF(WSR19,1) AND CROSS(WSR23,WSR19))*50;
WSR25:=(INDEXC-MA(INDEXC,6))/MA(INDEXC,6);
WSR26:=(INDEXC-MA(INDEXC,12))/MA(INDEXC,12);
WSR27:=(INDEXC-MA(INDEXC,24))/MA(INDEXC,24);
WSR28:=(WSR25 + WSR26 + WSR27)/3;
WSR29:=(C-MA(C,6))/MA(C,6);
WSR30:=(C-MA(C,12))/MA(C,12);
WSR31:=(C-MA(C,24))/MA(C,24);
WSR32:=(WSR29 + WSR30 + WSR31)/3;
WSR33:=(WSR28>REF(WSR28,1) AND CROSS(WSR32,WSR28))*20;
WSR34:=(INDEXC-MA(INDEXC,13))/MA(INDEXC,13);
WSR35:=(INDEXC-MA(INDEXC,34))/MA(INDEXC,34);
WSR36:=(INDEXC-MA(INDEXC,55))/MA(INDEXC,55);
WSR37:=(WSR34 + WSR35 + WSR36)/3;
WSR38:=(C-MA(C,13))/MA(C,13);
WSR39:=(C-MA(C,34))/MA(C,34);
WSR40:=(C-MA(C,55))/MA(C,55);
WSR41:=(WSR38 + WSR39 + WSR40)/3;
WSR42:=(WSR37>REF(WSR37,1) AND CROSS(WSR41,WSR37));
WSR43:=(INDEXC-MA(INDEXC,13))/MA(INDEXC,13);
WSR44:=(INDEXC-MA(INDEXC,34))/MA(INDEXC,34);
WSR45:=(INDEXC-MA(INDEXC,55))/MA(INDEXC,55);
WSR46:=(WSR43 + WSR44 + WSR45)/3;
WSR47:=(C-MA(C,30))/MA(C,30);
WSR48:=(C-MA(C,60))/MA(C,60);
WSR49:=(C-MA(C,90))/MA(C,90);
WSR50:=(WSR47 + WSR48 + WSR49)/3;
WSR51:=(WSR46>REF(WSR46,1) AND CROSS(WSR50,WSR46));
WSR52:=(INDEXC-MA(INDEXC,34))/MA(INDEXC,34);
WSR53:=(INDEXC-MA(INDEXC,55))/MA(INDEXC,55);
WSR54:=(INDEXC-MA(INDEXC,89))/MA(INDEXC,89);
WSR55:=(WSR52 + WSR53 + WSR54)/3;
WSR56:=(C-MA(C,60))/MA(C,60);
WSR57:=(C-MA(C,120))/MA(C,120);
WSR58:=(C-MA(C,220))/MA(C,220);
WSR59:=(WSR56 + WSR57 + WSR58)/3;
WSR60:=(WSR59>REF(WSR59,1) AND CROSS(WSR59,WSR55));
WSR61:=WSR24 OR WSR33 OR WSR42 OR WSR51 OR WSR60;
DRAWICON(WSR61 AND H<Y396 AND FILTER(WSR61,5),良3,7);
DRAWTEXT(WSR61 AND H<Y396 AND FILTER(WSR61,5),良3,'良机');