源码
{量能平台}
VAR01:=ZIG(3,10)
VAR02:=ZIG(3,10)>REF(ZIG(3,10),1) AND REF(ZIG(3,10),1) STICKLINE(VAR01,C,O,8,0),COLORYELLOW,LINETHICK2;{高位黄色} STICKLINE(VAR01,C,O,3,0),COLORYELLOW,LINETHICK2;{高位黄色} STICKLINE(VAR01,H,L,1,0),COLORYELLOW,LINETHICK2;{高位黄色} STICKLINE(VAR02,C,O,8,0),COLORFF00FF,LINETHICK2;{底位红色} STICKLINE(VAR02,C,O,3,0),COLORFF00FF,LINETHICK2;{底位红色} STICKLINE(VAR02,H,L,1,0),COLORFF00FF,LINETHICK2;{底位红色}; N:=30; T1:=CONST(HHVBARS(V,N)); T0:IF(CURRBARSCOUNT<=N+7,CONST(IF(T1=0,C,REF(C,T1))),DRAWNULL),LINETHICK3; IF(CURRBARSCOUNT=T1+1,T0,DRAWNULL),CIRCLEDOT; DRAWTEXT(ISLASTBAR,T0,' 量能平台'); STICKLINE(ISLASTBAR,HHV(C,5)*0.95-0.01,HHV(C,5)*0.95,100,0),COLORWHITE,LINETHICK3; DRAWNUMBER(ISLASTBAR,HHV(C,5)*0.95-0.01,HHV(C,5)*0.95),LINETHICK3; 止损点:=(ISLASTBAR,HHV(C,5)*0.95-0.01,HHV(C,5)*0.95),LINETHICK3; DRAWTEXT(ISLASTBAR ,止损点,' 止损点'),LINETHICK3; {压力一} TY:=C; A1:=REF(TY,10)=HHV(TY,2*10+1); B1:=FILTER(A1,10); C1:=BACKSET(B1,10+1); HD:=FILTER(C1,10); A2:=REF(TY,10)=LLV(TY,2*10+1); B2:=FILTER(A2,10); C2:=BACKSET(B2,10+1); LD:=FILTER(C2,10); 前期高位:REF(C,BARSLAST(HD)),COLOR00FF00,POINTDOT; STICKLINE(C,前期高位,前期高位,8,0),COLORYELLOW; MT1:=IF(ISLASTBAR,REF((C*2-REF(C,3)),1),DRAWNULL); MT2:=IF(ISLASTBAR,REF((C*2-REF(C,3)),2),DRAWNULL); MT3:=IF(ISLASTBAR,C*2-REF(C,3),DRAWNULL); 高:=CONST(REF(HHV(H,150),3)),NODRAW; 低:=CONST(REF(LLV(L,150),3)),NODRAW; 色彩峰:=高-低; NN:=100; AA:=REF(H,N)=HHV(H,2*N+1); AA1:=REF(L,N)=LLV(L,2*N+1); QY:=BACKSET(AA,N+1); QY1:=BACKSET(AA1,N+1); CC:=FILTER(QY,N) AND H=HHV(H,N+1); CC1:=FILTER(QY1,N) AND L=LLV(L,N+1); DDD:=BARSLAST(CC); DD1:=BARSLAST(CC1); GDTS:=IF(CC,CURRBARSCOUNT,0); DDTS:=IF(CC1,CURRBARSCOUNT,0); DINGBUTS:=IF(DDD,REF(GDTS,DDD),GDTS); DDTS1:=IF(DD1,REF(DDTS,DD1),DDTS); GDCS1:=CONST(DINGBUTS); DDCS1:=CONST(DDTS1); GDCS13:=CONST(REF(HIGH,GDCS1-1)); DDCS13:=CONST(REF(L,DDCS1-1)); DINGBUTS1:=REF(DINGBUTS,DDD+1); DDTS2:=REF(DDTS1,DD1+1); GDCS2:=CONST(DINGBUTS1); DDCS2:=CONST(DDTS2); M:=INTPART(3*N/5); AAA:=REF(H,M)=HHV(H,2*M+1); QYY:=BACKSET(AAA,M+1); CCC:=FILTER(QYY,M) AND H=HHV(H,M+1); DDDD:=BARSLAST(CCC),NODRAW; GDTSS:=IF(CCC,CURRBARSCOUNT,0); DINGBUTSS:=IF(DDDD,REF(GDTSS,DDDD),GDTSS); GDCS11:=CONST(DINGBUTSS); DINGBUTS11:=REF(DINGBUTSS,DDDD+1); GDCS22:=CONST(DINGBUTS11); AA11:=REF(L,M)=LLV(L,2*M+1); QY11:=BACKSET(AA11,M+1); CC11:=FILTER(QY11,M) AND L=LLV(L,M+1); DD11:=BARSLAST(CC11); DDTSS:=IF(CC11,CURRBARSCOUNT,0); DDTS11:=IF(DD11,REF(DDTSS,DD11),DDTSS); DDCS11:=CONST(DDTS11); DDTS22:=REF(DDTS11,DD11+1); DDCS22:=CONST(DDTS22); ZGD:=HHV(H,60)*1.01.00; ZGD2:=CONST(ZGD); 高点压力M:=DRAWLINE(CURRBARSCOUNT=GDCS22,H,CURRBARSCOUNT=GDCS11,H,1),COLORRED,LINETHICK1; 低点支撑M:=DRAWLINE(CURRBARSCOUNT=DDCS22,L,CURRBARSCOUNT=DDCS11,L,1) COLORRED,LINETHICK1; 高点压力1:=DRAWLINE(CURRBARSCOUNT=GDCS2,H,CURRBARSCOUNT=GDCS1,H,1) ,COLORBLUE,LINETHICK1; 低点支撑1:=DRAWLINE(CURRBARSCOUNT=DDCS2,L,CURRBARSCOUNT=DDCS1,L,1),COLORBLUE,LINETHICK1; 高点:=CONST(HHV(H,NN)),NODRAW; 低点:=CONST(LLV(L,NN)),NODRAW; GJ:=(C+H+L+O)/4; 明日阻力:=L+(GJ-L)+(C-L); 明日支撑:=L+(C-GJ); 明日阻力2:=L+2*(GJ-L)+(C-L); 明日支撑2:=L+(C-GJ)-(GJ-L); 今日阻力:=CONST(REF(明日阻力 , 1)),NODRAW; 今日支撑:=CONST(REF(明日支撑 , 1)),NODRAW; 今日阻力2:=CONST(REF(明日阻力2 , 1)),NODRAW; 今日支撑2:=CONST(REF(明日支撑2 , 1)),NODRAW; STICKLINE(ISLASTBAR,今日阻力,今日阻力2,10,0),COLOR555555; DRAWTEXT(ISLASTBAR,今日阻力,' 阻'),COLOR0000FF; STICKLINE(ISLASTBAR,今日支撑,今日支撑2,10,0),COLOR555555; DRAWTEXT(ISLASTBAR,今日支撑,' 支'),COLOR00FF00; JRH:=HHV(C,2); JRL:=LLV(C,2); MA3:=MA(CLOSE,3); YTSL:=(3*CLOSE+LOW+OPEN+HIGH)/6; R1:=(CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2)); R2:=(REF(R1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)); R3:=(REF(R2,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)); R4:=(REF(R3,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)); R5:=(REF(R4,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)); R6:=(REF(R5,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)); R7:=(REF(R6,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)); R8:=(REF(R7,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)); R9:=(REF(R8,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)); RA:=(REF(R9,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)); RB:=(REF(RA,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)); RC:=(REF(RB,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)); RD:=(CLOSE RE:=(REF(RD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)); RF:=(REF(RE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)); R10:=(REF(RF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)); R11:=(REF(R10,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)); R12:=(REF(R11,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)); R13:=(REF(R12,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)); R14:=(REF(R13,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)); R15:=(REF(R14,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)); R16:=(REF(R15,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)); R17:=(REF(R16,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)); R18:=(REF(R17,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)); R19:=REF(RD OR RE OR RF OR R10 OR R11 OR R12 OR R13 OR R14 OR R15 OR R16 OR R17 OR R18,1) AND R1; R1A:=((REF(R1 OR R2 OR R3 OR R4 OR R5 OR R6 OR R7 OR R8 OR R9 OR RA OR RB OR RC,1)) AND RD); VAR3:=IF(C<200 ,MA(COST(80),3),2500),NODRAW; VAR4:=(((HIGH + LOW) + CLOSE) / 3); VAR5:=EMA(((((OPEN + HIGH) + LOW) + CLOSE) / 4),2330); VAR6:=(VAR5 + ((VAR5 * 6) / 100)); 短买春:R19,NODRAW,COLOR00DD00; 秋离场:R1A,NODRAW,COLOR2288EE; 红持股:R1 OR R2 OR R3 OR R4 OR R5 OR R6 OR R7 OR R8 OR R9 OR RA OR RB OR RC,NODRAW,COLOR0000FF; 阴观望:RD OR RE OR RF OR R10 OR R11 OR R12 OR R13 OR R14 OR R15 OR R16 OR R17 OR R18,NODRAW,COLOR999999; 急速超跌关注:=(CLOSE-MA(CLOSE,34))/MA(CLOSE,34)*100<-14,COLORBBBBBB,NODRAW; 离场:=IF(红持股,JRL,DRAWNULL); 明离场价:=离场,COLORFF99FF,NODRAW; 今离场价:=REF(离场,1)COLOR0000FF,NODRAW; 进:=IF(阴观望,JRH,DRAWNULL); 明进场价:=进,COLOR33AACC,NODRAW; 今进场价:=REF(明进场价,1),COLOR00FF00,NODRAW; 大雪:=MA((((HIGH + LOW) + CLOSE) / 3),8); 无痕:=MA((((HIGH + LOW) + CLOSE) / 3),21); VAR111:=EMA(((OPEN + CLOSE) / 2),26); VAR222:=IF(C<200 , MA(COST(30),3),2300),NODRAW; 天下有雪:=IF(C<200 ,MA(COST(50),3),2300); 严冬:=ISLASTBAR AND (VAR4 > 0.1),COLORFFFFFF,NODRAW; 早春:=ISLASTBAR AND (((((VAR4 < 天下有雪) AND (VAR4 > 无痕)) OR ((VAR4 < VAR5) AND (VAR4 > 无痕))) OR ((VAR4 > 无痕) AND (VAR111 > 无痕)))),COLOR00FF00,NODRAW; 初夏:=ISLASTBAR AND ((((((VAR4 > 天下有雪) AND (VAR4 > VAR111)) AND (VAR4 > VAR5)) AND (VAR222 > REF(VAR222,1))) OR ((((VAR4 > VAR222) AND (VAR4 > VAR111)) AND (VAR4 > VAR5)) AND (VAR222 > REF(VAR222,1))))), COLOR0000FF,NODRAW; 深秋:=ISLASTBAR AND (((((VAR4 > VAR6) AND (VAR4 > VAR3)) AND (大雪 > 无痕)) AND (VAR111 > REF(VAR111,1)))),COLOR00FFFF,NODRAW; SAAA:=(3*C+H+L+O)/6; SVAR1:=(8*SAAA+7*REF(SAAA,1)+6*REF(SAAA,2) +5*REF(SAAA,3)+4*REF(SAAA,4)+3*REF(SAAA,5)+2*REF(SAAA,6)+REF(SAAA,8))/36; SVAR2:=(HHV(SVAR1,5)+HHV(SVAR1,10)+HHV(SVAR1,20))/3; SVAR3:=(LLV(SVAR1,5)+LLV(SVAR1,10)+LLV(SVAR1,20))/3; SVAR4:=(HHV(SVAR2,5)+HHV(SVAR2,10)+HHV(SVAR2,20))/3; SVAR5:=(LLV(SVAR3,5)+LLV(SVAR3,10)+LLV(SVAR3,20))/3; SVAR6:=(LLV(SVAR1,2)+LLV(SVAR1,4)+LLV(SVAR1,6))/3; Q1:=CONST(IF(短买春,0,IF(秋离场,180,IF(红持股,220,IF(急速超跌关注,150,100))))),NODRAW; Q2:=CONST(IF(短买春,150,IF(秋离场,100,IF(红持股,0,IF(急速超跌关注,150,100))))),NODRAW; Q3:=CONST(IF(短买春,0,IF(秋离场,50,IF(红持股,50,IF(急速超跌关注,150,100))))),NODRAW; DRAWGBK(C>0,RGB(Q1,Q2,Q3),RGB(0,50,50),0,' ',0); DA1:=IF(130>TOTALBARSCOUNT,TOTALBARSCOUNT,130); DA:=IF(CURRBARSCOUNT>DA1,0,DA1); HI:=REFDATE(HHV(H,DA),DATE); LO:=REFDATE(LLV(L,DA),DATE); C01:=IF(CURRBARSCOUNT<=DA,C,DRAWNULL); GZ:=EXP(LN(HI/LO)/30); LH1:=SUM(IF(C1>=(HI/GZ),V,0),DA); LH2:=SUM(IF(C1>=(HI/POW(GZ,2)) AND C1<(HI/GZ),V,0),DA); LH3:=SUM(IF(C1>=(HI/POW(GZ,3)) AND C1<(HI/POW(GZ,2)),V,0),DA); LH4:=SUM(IF(C1>=(HI/POW(GZ,4)) AND C1<(HI/POW(GZ,3)),V,0),DA); LH5:=SUM(IF(C1>=(HI/POW(GZ,5)) AND C1<(HI/POW(GZ,4)),V,0),DA); LH6:=SUM(IF(C1>=(HI/POW(GZ,6)) AND C1<(HI/POW(GZ,5)),V,0),DA); LH7:=SUM(IF(C1>=(HI/POW(GZ,7)) AND C1<(HI/POW(GZ,6)),V,0),DA); LH8:=SUM(IF(C1>=(HI/POW(GZ,8)) AND C1<(HI/POW(GZ,7)),V,0),DA); LH9:=SUM(IF(C1>=(HI/POW(GZ,9)) AND C1<(HI/POW(GZ,8)),V,0),DA); LH10:=SUM(IF(C1>=(HI/POW(GZ,10)) AND C1<(HI/POW(GZ,9)),V,0),DA); LH11:=SUM(IF(C1>=(HI/POW(GZ,11)) AND C1<(HI/POW(GZ,10)),V,0),DA); LH12:=SUM(IF(C1>=(HI/POW(GZ,12)) AND C1<(HI/POW(GZ,11)),V,0),DA); LH13:=SUM(IF(C1>=(HI/POW(GZ,13)) AND C1<(HI/POW(GZ,12)),V,0),DA); LH14:=SUM(IF(C1>=(HI/POW(GZ,14)) AND C1<(HI/POW(GZ,13)),V,0),DA); LH15:=SUM(IF(C1>=(HI/POW(GZ,15)) AND C1<(HI/POW(GZ,14)),V,0),DA); LH16:=SUM(IF(C1>=(HI/POW(GZ,16)) AND C1<(HI/POW(GZ,15)),V,0),DA); LH17:=SUM(IF(C1>=(HI/POW(GZ,17)) AND C1<(HI/POW(GZ,16)),V,0),DA); LH18:=SUM(IF(C1>=(HI/POW(GZ,18)) AND C1<(HI/POW(GZ,17)),V,0),DA); LH19:=SUM(IF(C1>=(HI/POW(GZ,19)) AND C1<(HI/POW(GZ,18)),V,0),DA); LH20:=SUM(IF(C1>=(HI/POW(GZ,20)) AND C1<(HI/POW(GZ,19)),V,0),DA); LH21:=SUM(IF(C1>=(HI/POW(GZ,21)) AND C1<(HI/POW(GZ,20)),V,0),DA); LH22:=SUM(IF(C1>=(HI/POW(GZ,22)) AND C1<(HI/POW(GZ,21)),V,0),DA); LH23:=SUM(IF(C1>=(HI/POW(GZ,23)) AND C1<(HI/POW(GZ,22)),V,0),DA); LH24:=SUM(IF(C1>=(HI/POW(GZ,24)) AND C1<(HI/POW(GZ,23)),V,0),DA); LH25:=SUM(IF(C1>=(HI/POW(GZ,25)) AND C1<(HI/POW(GZ,24)),V,0),DA); LH26:=SUM(IF(C1>=(HI/POW(GZ,26)) AND C1<(HI/POW(GZ,25)),V,0),DA); LH27:=SUM(IF(C1>=(HI/POW(GZ,27)) AND C1<(HI/POW(GZ,26)),V,0),DA); LH28:=SUM(IF(C1>=(HI/POW(GZ,28)) AND C1<(HI/POW(GZ,27)),V,0),DA); LH29:=SUM(IF(C1>=(LO*GZ) AND C1 LH30:=SUM(IF(C1>=LO AND C1 L1:=REFDATE(HHV(LH1,DA),DATE),LINETHICK0; L2:=REFDATE(HHV(LH2,DA),DATE),LINETHICK0; L3:=REFDATE(HHV(LH3,DA),DATE),LINETHICK0; L4:=REFDATE(HHV(LH4,DA),DATE); L5:=REFDATE(HHV(LH5,DA),DATE); L6:=REFDATE(HHV(LH6,DA),DATE); L7:=REFDATE(HHV(LH7,DA),DATE); L8:=REFDATE(HHV(LH8,DA),DATE); L9:=REFDATE(HHV(LH9,DA),DATE); L10:=REFDATE(HHV(LH10,DA),DATE); L11:=REFDATE(HHV(LH11,DA),DATE),LINETHICK0; L12:=REFDATE(HHV(LH12,DA),DATE),LINETHICK0; L13:=REFDATE(HHV(LH13,DA),DATE),LINETHICK0; L14:=REFDATE(HHV(LH14,DA),DATE); L15:=REFDATE(HHV(LH15,DA),DATE); L16:=REFDATE(HHV(LH16,DA),DATE); L17:=REFDATE(HHV(LH17,DA),DATE); L18:=REFDATE(HHV(LH18,DA),DATE); L19:=REFDATE(HHV(LH19,DA),DATE); L20:=REFDATE(HHV(LH20,DA),DATE); L21:=REFDATE(HHV(LH21,DA),DATE),LINETHICK0; L22:=REFDATE(HHV(LH22,DA),DATE),LINETHICK0; L23:=REFDATE(HHV(LH23,DA),DATE),LINETHICK0; L24:=REFDATE(HHV(LH24,DA),DATE); L25:=REFDATE(HHV(LH25,DA),DATE); L26:=REFDATE(HHV(LH26,DA),DATE); L27:=REFDATE(HHV(LH27,DA),DATE); L28:=REFDATE(HHV(LH28,DA),DATE); L29:=REFDATE(HHV(LH29,DA),DATE); L30:=REFDATE(HHV(LH30,DA),DATE); SS:=(L1+L2+L3+L4+L5+L6+L7+L8+L9+L10+L11+L12+L13+L14+L15+L16+L17+L18+L19+L20+L21+L22+L23+L24+L25+L26+L27+L28+L29+L30); STICKLINE(CEILING(DA*L1/SS)*4>=CURRBARSCOUNT,HI*299/300,HI/POW(GZ,1),9,0)COLOR7C7C7A,LINETHICK3; STICKLINE(CEILING(DA*L2/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,1)*299/300,HI/POW(GZ,2),9,0)COLOR7C7C7A,LINETHICK3; STICKLINE(CEILING(DA*L3/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,2)*299/300,HI/POW(GZ,3),9,0)COLOR7C7C7A,LINETHICK3; STICKLINE(CEILING(DA*L4/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,3)*299/300,HI/POW(GZ,4),9,0)COLOR7C7C7A,LINETHICK3; STICKLINE(CEILING(DA*L5/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,4)*299/300,HI/POW(GZ,5),9,0)COLOR7C7C7A,LINETHICK3; STICKLINE(CEILING(DA*L6/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,5)*299/300,HI/POW(GZ,6),9,0)COLOR7C7C7A,LINETHICK3; STICKLINE(CEILING(DA*L7/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,6)*299/300,HI/POW(GZ,7),9,0)COLOR7C7C7A,LINETHICK3; STICKLINE(CEILING(DA*L8/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,7)*299/300,HI/POW(GZ,8),9,0)COLOR7C7C7A,LINETHICK3; STICKLINE(CEILING(DA*L9/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,8)*299/300,HI/POW(GZ,9),9,0)COLOR7C7C7A,LINETHICK3; STICKLINE(CEILING(DA*L10/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,9)*299/300,HI/POW(GZ,10),9,0)COLOR7C7C7A,LINETHICK3; STICKLINE(CEILING(DA*L11/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,10)*299/300,HI/POW(GZ,11),9,0)COLOR7C7C7A,LINETHICK3; STICKLINE(CEILING(DA*L12/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,11)*299/300,HI/POW(GZ,12),9,0)COLOR7C7C7A,LINETHICK3; STICKLINE(CEILING(DA*L13/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,12)*299/300,HI/POW(GZ,13),9,0)COLOR7C7C7A,LINETHICK3; STICKLINE(CEILING(DA*L14/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,13)*299/300,HI/POW(GZ,14),9,0)COLOR7C7C7A,LINETHICK3; STICKLINE(CEILING(DA*L15/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,14)*299/300,HI/POW(GZ,15),9,0)COLOR7C7C7A,LINETHICK3; STICKLINE(CEILING(DA*L16/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,15)*299/300,HI/POW(GZ,16),9,0)COLOR7C7C7A,LINETHICK3; STICKLINE(CEILING(DA*L17/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,16)*299/300,HI/POW(GZ,17),9,0)COLOR7C7C7A,LINETHICK3; STICKLINE(CEILING(DA*L18/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,17)*299/300,HI/POW(GZ,18),9,0)COLOR7C7C7A,LINETHICK3; STICKLINE(CEILING(DA*L19/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,18)*299/300,HI/POW(GZ,19),9,0)COLOR7C7C7A,LINETHICK3; STICKLINE(CEILING(DA*L20/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,19)*299/300,HI/POW(GZ,20),9,0)COLOR7C7C7A,LINETHICK3; STICKLINE(CEILING(DA*L21/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,20)*299/300,HI/POW(GZ,21),9,0)COLOR7C7C7A,LINETHICK3; STICKLINE(CEILING(DA*L22/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,21)*299/300,HI/POW(GZ,22),9,0)COLOR7C7C7A,LINETHICK3; STICKLINE(CEILING(DA*L23/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,22)*299/300,HI/POW(GZ,23),9,0)COLOR7C7C7A,LINETHICK3; STICKLINE(CEILING(DA*L24/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,23)*299/300,HI/POW(GZ,24),9,0)COLOR7C7C7A,LINETHICK3; STICKLINE(CEILING(DA*L25/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,24)*299/300,HI/POW(GZ,25),9,0)COLOR7C7C7A,LINETHICK3; STICKLINE(CEILING(DA*L26/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,25)*299/300,HI/POW(GZ,26),9,0)COLOR7C7C7A,LINETHICK3; STICKLINE(CEILING(DA*L27/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,26)*299/300,HI/POW(GZ,27),9,0)COLOR7C7C7A,LINETHICK3; STICKLINE(CEILING(DA*L28/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,27)*299/300,HI/POW(GZ,28),9,0)COLOR7C7C7A,LINETHICK3; STICKLINE(CEILING(DA*L29/SS)*4>=CURRBARSCOUNT,LO,LO*POW(GZ,1)*299/300,9,0)COLOR7C7C7A,LINETHICK3; IF(BETWEEN(高点压力M,高点,低点),高点压力M,DRAWNULL),COLORYELLOW,LINETHICK1; IF(BETWEEN(低点支撑M,高点,低点),低点支撑M,DRAWNULL),COLORYELLOW,LINETHICK1; IF(BETWEEN(高点压力1,高点,低点),高点压力1,DRAWNULL),COLORGREEN,LINETHICK1; IF(BETWEEN(低点支撑1,高点,低点),低点支撑1,DRAWNULL),COLORGREEN,LINETHICK1; 中:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4; DRAWTEXT(ISLASTBAR,MT2,' ●'),COLORYELLOW; DRAWTEXT(ISLASTBAR,MT1,' ●'),COLORYELLOW; DRAWTEXT(ISLASTBAR,MT3,' ●'),COLORYELLOW; AAAX:=(3*C+H+L+O)/6; 中长:IF(C,(8*AAAX+7*REF(AAAX,1)+6*REF(AAAX,2)+5*REF(AAAX,3) +4*REF(AAAX,4)+3*REF(AAAX,5)+2*REF(AAAX,6)+REF(AAAX,8))/36,DRAWNULL),COLOR00FF00; IF(中长> REF(中长,1),中长,DRAWNULL),COLORMAGENTA,LINETHICK2; 下档线:=(((CLOSE - LLV(LOW,13)) / (HHV(HIGH,13) - LLV(LOW,13))) * 100); RRRSV:=SMA(下档线,3,1); KKK:=SMA(RRRSV,3,1); DDDDD:=((3 * RRRSV) - (2 * KKK)); JJ12:=(((CLOSE - LLV(LOW,55)) / (HHV(HIGH,55) - LLV(LOW,55))) * 100); RSV24:=SMA(JJ12,3,1); K24:=SMA(RSV24,3,1); D24:=((3 * RSV24) - (2 * K24)); 压力2:=IF(CROSS(D24,DDDDD),HIGH,REF(HIGH,BARSLAST(CROSS(D24,DDDDD)))),COLORFFFFFF; 底部:=LLV(HIGH,30),COLOR00FF00; 压力位:=IF(ISLASTBAR,压力2,DRAWNULL),NODRAW; 底部位:=IF(ISLASTBAR,底部,DRAWNULL),NODRAW; 底:=CONST(底部); STICKLINE(ISLASTBAR ,压力位,压力位,30,0),COLORFFFFFF; STICKLINE(ISLASTBAR ,底部位,底部位,25,0),COLOR00FFFF; 辰星线:=(20*YTSL+19*REF(YTSL,1)+18*REF(YTSL,2)+17*REF(YTSL,3) +16*REF(YTSL,4)+15*REF(YTSL,5)+14*REF(YTSL,6)+13*REF(YTSL,7) +12*REF(YTSL,8)+11*REF(YTSL,9)+10*REF(YTSL,10)+9*REF(YTSL,11) +8*REF(YTSL,12)+7*REF(YTSL,13)+6*REF(YTSL,14)+5*REF(YTSL,15) +4*REF(YTSL,16)+3*REF(YTSL,17)+2*REF(YTSL,18)+REF(YTSL,20))/211; 等待:=IF(MA3>辰星线,辰星线,MA3); {卖出------------------------} VAR55:=EMA(EMA(EMA(CLOSE,8),13),62); VAR56:=((REF(HIGH,1) + REF(LOW,1)) / 2); VAR57:=(MA(CLOSE,20) + (2 * STD(CLOSE,20))); VAR58:=((SMA(MAX((CLOSE - REF(CLOSE,1)),0),7,1) / SMA(ABS((CLOSE - REF(CLOSE,1))),7,1)) * 100); 卖出1:=FILTER(CROSS(79,VAR58),4); MA21:=REF(CLOSE,1); ZX:=((SMA(MAX((CLOSE - MA21),0),6,1) / SMA(ABS((CLOSE - MA21)),6,1)) * 100); 卖出2:=CROSS(84,ZX),COLORFF00FF; 卖出3:=CROSS(90,RSI); 卖出:=卖出1 OR 卖出2 OR 卖出3; {买入------------------------} QQ2:=(CLOSE-LLV(LOW, 18))/(HHV(HIGH, 18)-LLV(LOW, 18))*100; QQ3:=SMA(QQ2, 9, 1); QQ4:=SMA(QQ3, 3, 1); 长趋势:=3*QQ3-2*QQ4,COLORWHITE,LINETHICK3; 趋势线:=EMA(QQ3, 3),COLORRED,LINETHICK3; 金叉:= CROSS(长趋势,趋势线); AAAA1:=AMOUNT/V; BBB1:=L
CCC1:=(C-REF(C,1))/REF(C,1)*100>1.2; DDD1:=L EEE1:=V 老鼠仓:=BBB1 AND CCC1 AND DDD1 AND EEE1,,NODRAW; X1:=(C+L+H)/3; BB5:=ATAN(EMA(X1,7)-REF(EMA(X1,7),1))*3.1416*10; VAR1:=(MA(CLOSE,80)-MA(CLOSE,13)/3); VAR2:=( MA((CLOSE-VAR1)/VAR1,1)); VVAR3:=(CLOSE-LLV(LOW,28))/(HHV(HIGH,28)-LLV(LOW,28))*100; VVAR4:=SMA(VVAR3,4,1); MMA:=EMA(VAR2,12)*0.7; MMB:=EMA(VAR2,3); 快到底:=IF(LLV(MMB-MMA,12)>0,0,-20),LINETHICK2,COLORGREEN; DIFF:=( EMA(CLOSE,12) - EMA(CLOSE,26))*100; DEA:=EMA(DIFF,9); MACD:= 2*(DIFF-DEA); 抄底:=IF(快到底<0 AND CROSS(MACD,0) AND VAR4<18,1,0); AVAR2:=(2*CLOSE+HIGH+LOW)/4; AVAR3:=IF(YEAR>=2099 AND MONTH>2,0,1); AVAR4:=LLV(LOW,5); AVAR5:=HHV(HIGH,4); 散户:= EMA((AVAR2-AVAR4)/(AVAR5-AVAR4)*100,4)*AVAR3; 庄家:= EMA(0.667*REF(散户,1)+0.333*散户,2)*AVAR3; 试买:=(((CROSS(散户,庄家) AND 散户<50 AND 29<散户)) NOT 大雪) OR (CROSS(散户,庄家) AND 散户<30 ) OR 抄底; AA05:=MA(C,5),COLOR0099CC; 五日乖离率:=(C-AA05)/AA05*100; BB05:=ATAN((AA05/REF(AA05,1)-1)*100)*180/3.1416; 速度5:=SMA(EMA((AA05-REF(AA05,1))/REF(AA05,1),3)*100,3,1); 加速度5:=EMA((速度5-REF(速度5,1)),3),NODRAW; AA10:=MA(C,10); AA20:=MA(C,20);BB10:=ATAN((AA10/REF(AA10,1)-1)*100)*180/3.1416; AA30:=MA(C,30); 三拾日乖离率:=(C-AA30)/AA30*100; 加仓:=FILTER(COUNT(CROSS(BB05,30),5)>=1 AND AA05>REF(AA05,1) AND 三拾日乖离率>REF(三拾日乖离率,1) AND AA10>REF(AA10,1) AND 加速度5>REF(加速度5,1) AND 速度5>REF(速度5,1) ,10) ; DRAWICON(加仓,L*0.99,23); IF(等待>REF(等待,1),等待,DRAWNULL),LINETHICK2,COLOR00FFFF; IF(辰星线>REF(辰星线,1),辰星线,DRAWNULL),LINETHICK2,COLOR0000FF; IF(辰星线 STICKLINE(ISLASTBAR AND (红持股 OR REF(红持股,1)=1),今离场价,今离场价,15,1),COLOR0000FF; STICKLINE(ISLASTBAR AND (阴观望 OR REF(阴观望,1)=1),今进场价,今进场价,15,1),COLOR00FF00; DRAWICON(卖出,(HIGH * 1.002),15); {DRAWTEXT(秋离场,HHV(H,3),'→→→→'),COLORFF99FF;} DRAWICON(老鼠仓 OR 金叉,(LOW - (LOW * 0.01)),1); {DRAWTEXT(短买春,LLV(L,3),'←←←←'),COLOR00FF00;} {----------------------------} {严冬:}STICKLINE((VAR4 > 0.1),HIGH,LOW,0,0),COLORFFFFFF; {早春:}STICKLINE(((((VAR4 < 天下有雪) AND (VAR4 > 无痕)) OR ((VAR4 < VAR5) AND (VAR4 > 无痕))) OR ((VAR4 > 无痕) AND (VAR111 > 无痕))),HIGH,LOW,0,0),COLOR00FF00; {初夏:}STICKLINE((((((VAR4 > 天下有雪) AND (VAR4 > VAR111)) AND (VAR4 > VAR5)) AND (VAR222 > REF(VAR222,1))) OR ((((VAR4 > VAR222) AND (VAR4 > VAR111)) AND (VAR4 > VAR5)) AND (VAR222 > REF(VAR222,1)))), HIGH,LOW,0,0),COLOR0000FF; {深秋:}STICKLINE(((((VAR4 > VAR6) AND (VAR4 > VAR3)) AND (大雪 > 无痕)) AND (VAR111 > REF(VAR111,1))),HIGH,LOW,0,0),COLOR00FFFF; STICKLINE(((VAR4 > 0.1) AND (CLOSE < OPEN)),OPEN,CLOSE,2.8,0),COLORCCCCCC; STICKLINE(((VAR4 > 0.1) AND (CLOSE >= OPEN)),OPEN,CLOSE,2.8,1),COLORCCCCCC; STICKLINE(((VAR4 > 0.1) AND (CLOSE >= OPEN)),OPEN,OPEN+(CLOSE-OPEN)/3,2.8,0),COLORFFFFFF; STICKLINE((((((VAR4 < 天下有雪) AND (VAR4 > 无痕)) AND (CLOSE < OPEN)) OR (((VAR4 < VAR5) AND (VAR4 > 无痕)) AND (CLOSE < OPEN))) OR (((VAR4 > 无痕) AND (VAR111 > 无痕)) AND (CLOSE < OPEN))), OPEN,CLOSE,2.8,0),COLOR00FF00; STICKLINE((((((VAR4 < 天下有雪) AND (VAR4 > 无痕)) AND (CLOSE > OPEN)) OR (((VAR4 < VAR5) AND (VAR4 > 无痕)) AND (CLOSE > OPEN))) OR (((VAR4 > 无痕) AND (VAR111 > 无痕)) AND (CLOSE >= OPEN))) ,OPEN,CLOSE,2.8,1),COLOR00FF00; STICKLINE(((((((VAR4 > 天下有雪) AND (VAR4 > VAR111)) AND (VAR4 > VAR5)) AND (VAR222 > REF(VAR222,1))) AND (CLOSE < OPEN)) OR (((((VAR4 > VAR222) AND (VAR4 > VAR111)) AND (VAR4 > VAR5)) AND (VAR222 > REF(VAR222,2))) AND (CLOSE < OPEN))),OPEN,CLOSE,2.8,0),COLOR0000FF; STICKLINE(((((((VAR4 > 天下有雪) AND (VAR4 > VAR111)) AND (VAR4 > VAR5)) AND (VAR222 > REF(VAR222,1))) AND (CLOSE > OPEN)) OR (((((VAR4 > VAR222) AND (VAR4 > VAR111)) AND (VAR4 > VAR5)) AND (VAR222 > REF(VAR222,1))) AND (CLOSE >= OPEN))),OPEN,CLOSE,2.8,1),COLOR0000FF; STICKLINE((((((VAR4 > VAR6) AND (VAR4 > VAR3)) AND (大雪 > 无痕)) AND (VAR111 > REF(VAR111,1))) AND (CLOSE < OPEN)),OPEN,CLOSE,2.8,0) ,COLOR00FFFF; STICKLINE((((((VAR4 > VAR6) AND (VAR4 > VAR3)) AND (大雪 > 无痕)) AND (VAR111 > REF(VAR111,1))) AND (CLOSE >= OPEN)),OPEN,CLOSE,2.8,1) ,COLOR00FFFF; TAB:=CURRBARSCOUNT=25; IF(( BARSLAST(TAB)>10),REF((C*2-REF(C,3)),3),DRAWNULL),LINETHICK1,DOTLINE,COLORYELLOW; {顶底背离} LC:=REF(CLOSE,1); RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100); FF:=EMA(CLOSE,3); MA15:=EMA(CLOSE,21); DRAWTEXT(CROSS(FF,MA15),(LOW * 0.99),'底背离'),COLORRED; {DRAWICON(CROSS(FF,MA15),(LOW * 0.99),7); } {顶背离} RSI1:=((SMA(MAX((CLOSE - (REF(CLOSE,1))),0),3,1) / SMA(ABS((CLOSE - (REF(CLOSE,1)))),3,1))* 100); DRAWTEXT(CROSS(88,RSI1) AND (MA(C,3))>(EMA(C,3)) ,(HIGH + 0.3),'顶背离'),COLORGREEN; {DRAWICON(CROSS(88,RSI1) AND (MA(C,3))>(EMA(C,3)) ,(HIGH + 0.3),8); }; DRAWTEXT(REF(C,BARSLAST(REF(CROSS("MACD.DIF","MACD.DEA"),1))+1)>C AND REF("MACD.DIF",BARSLAST(REF(CROSS("MACD.DIF","MACD.DEA"),1))+1) <"MACD.DIF" AND CROSS("MACD.DIF","MACD.DEA") >0,L-0.02,'MACD底背离'),COLORRED;{MACD底背离} DRAWTEXT(REF(C,BARSLAST(REF(CROSS("KDJ.K","KDJ.D"),1))+1)>C AND REF("KDJ.K",BARSLAST(REF(CROSS("KDJ.K","KDJ.D"),1))+1)<"KDJ.K" AND CROSS("KDJ.K","KDJ.D"),L-0.10,'KDJ底背离'),COLORBLUE;{KDJ底背离} DRAWTEXT(REF(C,BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1))+1)>C AND REF("RSI.RSI1",BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1))+1) <"RSI.RSI1" AND CROSS("RSI.RSI1","RSI.RSI2") >0,L-0.18,'RSI底背离');{RSI底背离}; DRAWTEXT(REF(C,BARSLAST(REF(CROSS("MACD.DEA","MACD.DIF"),1))+1) AND REF("MACD.DIF",BARSLAST(REF(CROSS("MACD.DEA","MACD.DIF"),1))+1) >"MACD.DIF" AND CROSS("MACD.DEA","MACD.DIF") >0,H+0.16,'MACD顶背离'),COLORGREEN;{MACD顶背离}; DRAWTEXT(REF(C,BARSLAST(REF(CROSS("KDJ.D","KDJ.K"),1))+1) AND REF("KDJ.K",BARSLAST(REF(CROSS("KDJ.D","KDJ.K"),1))+1) >"KDJ.K" AND CROSS("KDJ.D","KDJ.K")>0,H+0.08,'KDJ顶背离');{KDJ顶背离}; {涨跌提示} 涨停:=IF((C-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(C,1)),1,0); STICKLINE(涨停,OPEN,CLOSE,1.5,0),COLORYELLOW; 跌停:=IF((REF(C,1)-C)*100/REF(C,1)>=(10-0.01*100/REF(C,1)),1,0); STICKLINE(跌停,OPEN,CLOSE,1.5,0),COLORWHITE; 机构:=(L2_VOL(0,0) - L2_VOL(0,1))*VOL/CAPITAL; 累计:=EMA(机构,60)*60,COLORMAGENTA; 均值:=EMA(累计,MIN(10,60)),COLORWHITE; VAR21:=CROSS(累计,均值); GD:=VAR21, STICK; DRAWTEXT(GD,L*0.97, '↖启爆点'),COLORYELLOW; STICKLINE(C/REF(C,1)>1.095,C,O,2,0),COLORYELLOW; STICKLINE(C/REF(C,1)<0.95,C,O,2,0),COLORGREEN;
