紫涨绿卖

A01:=DYNAINFO(7);
 A03:=BARSCOUNT(CLOSE);
 A04:=(SMA((CLOSE / HHV(HIGH,120)),3,1) * 100);
 A05:=IF((A03 > 20),A04,0);
 A06:=IF((LOW > A01),0,IF((HIGH < A01),1,(((A01 - LOW) + 0.009) / ((HIGH - LOW) + 0.009))));
 A07:=DMA(A06,(VOL / CAPITAL)) * 60;
 A09:=IF((((A07 > 0) AND (A07 > REF(A07,1))) AND (A05 <= 88)),A07,0);
 VAR1:=3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1);
 VAR2:=EMA(VAR1,8);
 VAR3:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA(SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1),3,1);
趋势:=EMA(VAR3,3)-10;
 {FILLRGN(趋势,80,趋势>80);}
 DRAWICON(CROSS(趋势,0),0,1);
 {FILLRGN(0,A09,(A09 > 0 AND (趋势<20 OR 趋势>REF(趋势,1)AND 趋势<50))),COLORFFFF00;}
机构建仓区:0,LINETHICK0,COLORFFFF00;
 VAR4:=(趋势-REF(趋势,1))/REF(趋势,1)*100;
 {STICKLINE(趋势<=13,0,20,5,0),COLORCC9900;
 DRAWTEXT(FILTER(趋势<=13,15),30,'准备现金'),COLORCC9900;
 STICKLINE(趋势<=13 AND VAR4>13,0,50,5,0),COLOR0099FF;}
 VAR5:=FILTER((趋势<=13 AND VAR4>13),10);
 DRAWTEXT(VAR5,60,'买入'),COLOR0099FF;
 STICKLINE(趋势>=90 AND VAR4,0,30,5,0),COLORGRAY;
 VAR6:=FILTER((趋势>=90 AND VAR4),10);
 DRAWTEXT(VAR6,40,'清仓'),COLORGRAY;
 VAR7:=LLV(LOW,30);
 VAR8:=HHV(HIGH,30);
 VAR9:=EMA((CLOSE-VAR7)/(VAR8-VAR7)*4,4)*25;
 STICKLINE(VAR9>90,100,105,10,2),COLORRED;
 VAR10:=(VAR9-LLV(VAR9,4))/(HHV(VAR9,4)-LLV(VAR9,4))*100;
 DRAWTEXT(IF(CROSS(VAR9,VAR10) AND VAR9>87,95,0),88,'险'),COLOR00FF00;
 DRAWICON(CROSS(90,VAR9),95,5);
 VAR11:=SMA(ABS(L-REF(L,1)),3,1)/SMA(MAX(L-REF(L,1),0),3,1)*100;
 VAR12:=HHV(VAR11,30)*8;
火焰山:EMA(IF(LOW<=VAR7 AND 趋势<40,(VAR11+VAR12),0),3)/618,COLORRED,LINETHICK2;
 STICKLINE(火焰山>0,0 ,火焰山*1.2,8,0 ),COLORRED;
 VAR13:=(MA(C,1)+MA(C,3)+MA(C,5)+MA(C,7)+MA(C,9))/5;
 VAR14:=(MA(C,2)+MA(C,4)+MA(C,6)+MA(C,8)+MA(C,10))/5;
趋势线: 趋势,COLORYELLOW,LINETHICK2;
 VAR16:=MAX(EMA(VAR13,2)-EMA(VAR14,5),0)*200;
 VAR17:=EMA(VAR16,5);
波浪峰:VAR17,STICK,COLORFF00FF;
 STICKLINE(VAR17  VAR18:=MA(趋势线,8);
 IF(CROSS(VAR2,VAR18) AND VAR2<15,50,0),COLORRED;
 DRAWTEXT(CROSS(趋势线,VAR2)AND 趋势线>REF(趋势线,1)AND 趋势线<50,50,'追涨'),COLORFF0000;

KDJ+MACD
DRAWGBK(close>0,STRIP(RGB(25,25,112),RGB(47,79,79),0));
 RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
 K:SMA(RSV,3,1),LINETHICK2,COLORWHITE;
 D:SMA(K,3,1),LINETHICK2,COLOR00DDDD;
 J:3*K-2*D,LINETHICK2,COLOR800080;
 DIFF:EMA(CLOSE,12)-EMA(CLOSE,26),linethick0,COLOR0099FF;
 DEA :EMA(DIFF,9),linethick0,COLORD89837;
 MACD:2*(DIFF-DEA),COLORFF9999,linethick0;
 YLZC:=if(close=INDEXC,(INDEXC+INDEXh+INDEXl+INDEXO)/4,AMOUNT/(vol+0.01)/100);
阻价:=if(close=INDEXC,YLZC+INDEXC-INDEXl,YLZC+(close-low));
支价:=if(close=INDEXC,INDEXl+INDEXC-YLZC,low+(close-YLZC));
今压:REF(阻价,1),LINETHICK0,COLORAA11BB;
今撑:REF(支价,1),LINETHICK0,COLOR009900;
明压:阻价,LINETHICK0;
明撑:支价,LINETHICK0;
 rsv1:=(hhv(h,9.8)-c)/(hhv(h,9.8)-llv(l,9.8))*101;
 kk:=sma(rsv1,3,1);
 dd:=sma(kk,3,1);
 jj:=3*kk-2*dd;
买卖:=if(jj>=100,100,if(jj<=0,0,jj));
明天买:if(买卖=100,0-10,0),color00cccc;
明天卖:if(买卖=0,90,100),color00ff00;
 KX:=250;
 KH:=HHV(K,KX);
 DH:=HHV(D,KX);
 JH:=HHV(J,KX);
 KL:=LLV(K,KX);
 DL:=LLV(D,KX);
 JL:=LLV(J,KX);
 HKMAX:=MAX(KH,MAX(DH,JH));
 LKMIN:=MIN(KL,MIN(DL,JL));
 KHLB:=(HKMAX+LKMIN)/2;
 KHLC:=HKMAX-LKMIN;
 MHF:=HHV(DIFF,KX);
 MHD:=HHV(DEA,KX);
 MHM:=HHV(MACD,KX);
 MLF:=LLV(DIFF,KX);
 MLD:=LLV(DEA,KX);
 MLM:=LLV(MACD,KX);
 HMAX:=MAX(MHF,MAX(MHD,MHM));
 LMIN:=MIN(MLF,MIN(MLD,MLM));
 FHLB:=(HMAX-LMIN)/100;
 FHLC:=HMAX-LMIN;
 SH:=(0-FHLB)*(KHLC/FHLC)+KHLB;
 DIFFA:=(DIFF-FHLB)*(KHLC/FHLC)+KHLB;
 DEAA:=(DEA-FHLB)*(KHLC/FHLC)+KHLB;
 MACDA:=(macd-FHLB)*(KHLC/FHLC)+KHLB;
 CDA:=MACD0;
 CDB:=MACD>=ref(MACD,1) and MACD>0;
 CDC:=MACD>ref(MACD,1) and MACD<0;
 CDD:=MACD<=ref(MACD,1) and MACD<0;
 STICKLINE(CDA,SH,macda,6,0),COLOR00AAFF;{黄色段}
STICKLINE(CDA,SH,macda,6.6,0),COLOR00BBFF;
 STICKLINE(CDA,SH,macda,4.4,0),COLOR00CCFF;
 STICKLINE(CDA,SH,macda,3.3,0),COLOR00DDFF;
 STICKLINE(CDA,SH,macda,2.2,0),COLOR00EEFF;
 STICKLINE(CDA,SH,macda,1.1,0),COLOR00FFFF;
 STICKLINE(CDB,SH,macda,6,0),COLOR0000AA; {红色段}
STICKLINE(CDB,SH,macda,6.6,0),COLOR0011BB;
 STICKLINE(CDB,SH,macda,4.4,0),COLOr0022CC;
 STICKLINE(CDB,SH,macda,3.3,0),COLOR0033DD;
 STICKLINE(CDB,SH,macda,2.2,0),COLOR0044EE;
 STICKLINE(CDB,SH,macda,1.1,0),COLOR0055FF;
 STICKLINE(CDC,SH,macda,6,0),COLORAA00BB;{向上粉红}
STICKLINE(CDC,SH,macda,6.6,0),COLORBB11BB;
 STICKLINE(CDC,SH,macda,4.4,0),COLORCC22BB;
 STICKLINE(CDC,SH,macda,3.3,0),COLORDD33BB;
 STICKLINE(CDC,SH,macda,2.2,0),COLOREE44BB;
 STICKLINE(CDC,SH,macda,1.1,0),COLORFF55BB;
 STICKLINE(CDD,SH,macda,6,0),COLORFF7700;
 STICKLINE(CDD,SH,macda,6.6,0),COLORFF8811;
 STICKLINE(CDD,SH,macda,4.4,0),COLORFFAA22;
 STICKLINE(CDD,SH,macda,3.3,0),COLORFFBB33;
 STICKLINE(CDD,SH,macda,2.2,0),COLORFFDD44;
 STICKLINE(CDD,SH,macda,1.1,0),COLORFFDD55;
 PARTLINE(DIFFA,DIFF>0,RGB(255,153,153),DIFF<0,RGB(255,153,153));
 PARTLINE(DEAA,DEA>0,RGB(65,105,225),DEA<0,RGB(65,105,225));
 DRAWTEXT(BARSTATUS=2,SH,'  0'),color00aaaa;
 TYP:=(HIGH+LOW+CLOSE)/3;
 STICKLINE(diff>ref(diff,1),20,20,2,0),COLORRED;
 STICKLINE(diff  STICKLINE(K>=ref(K,1) or k>d and diff>ref(diff,1),80,80,2,1),COLORRED;
 STICKLINE(K  MACD金叉:=CROSS(MACD,DIFF) AND MACD>=(0-0.05) AND MACD<=0.02;
 DRAWTEXT(MACD金叉,macda*0.82,'MACD金叉'),color00FFFF;
 XX:=ema(MA(LOW,3)*0.96,30);
 DIFF金叉:=if(CROSS(DIFF,DEA) AND XX-REF(XX,1)>0 AND MACD>=REF(MACD,1) AND DIFF<=0,1,0);
 DRAWTEXT(DIFF金叉=1,DIFFA*1.68,'DIFF金叉'),colorCDFFBB;
低位金叉:=CROSS(DIFF,DEA) AND DIFF<-0.1;
 DRAWTEXT(低位金叉,deaa*0.99,' 低位金叉'),COLOR0099DD;
 DIFDEA:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(DIFDEA=2,21)=1;
 DRAWTEXT(二次金叉,deaa*0.99-8,' 二次金叉'),ColorFF00FF;
 A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
底背离:=REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA);
 DRAWTEXT(底背离,DEAA*0.99-16,' 底背离'),Color0099FF;
 A2:=BARSLAST(REF(CROSS(DEA,DIFF),1));
顶背离:=R