中线抉择主图 源码

参数（S 0 2 2  N 1 100 5)
 A:=BARSCOUNT(C);
 AH:=HHV(HIGH,120);
 AL:=LLV(LOW,120);
 B0:=(AH-AL)/40;
 B1:=HIGH+B0;
 B2:=LOW-B0;
 AMV0:=((VOL * (((OPEN + CLOSE) + HIGH) + LOW)) / 4);
 势:=(EMA(AMV0,21) / EMA(VOL,21));
 N1:=BARSCOUNT(5) ;
 N:=((N1 - CURRBARSCOUNT ) + 1);
 HH:=HHV(HIGH,N);
 LL:=LLV(LOW,N);
 最高:=HHV(N1,1),POINTDOT;
 最低:=LLV(N1,1),COLOR00FFFF;
 DIFF:=(EMA(CLOSE,5) - EMA(CLOSE,26));
 DEA:=EMA(DIFF,3);
 MACD:=(2 * (DIFF - DEA));
 MA5:=MA(CLOSE,5);
 MA20:=MA(CLOSE,20);
 MA120:=MA(CLOSE,120);
 AA10:=MA(CLOSE,10);
 Y:=((LLV(LOW,1) = LLV(LOW,60)) AND ((CLOSE / REF(CLOSE,1)) > 1.04));
 WX:=MA(CLOSE,0);
 MB5:=(MA(CLOSE,15) * IF((20 < 5),WX,1));
 MB7:=(MA(CLOSE,20) * IF((20 < 7),WX,1));
 M5:=(MA(CLOSE,15) * IF((20 < 5),WX,1));
 DDD:=(EMA(CLOSE,10) - EMA(CLOSE,100));
 AMA:=EMA(DDD,4);
 BMA:=(EMA(CLOSE,3) - EMA(CLOSE,30));
 BMB:=EMA(BMA,4);
 BMA1:=(EMA(CLOSE,13) - EMA(CLOSE,30));
 SS:=(MA(CLOSE,8) * 0.998),COLORFFFFFF;
 买:=(DDD >= AMA AND BMA >= BMB);
 HH1:=FILTER(((DDD >= AMA) AND (BMA >= BMB)),33);
 {DRAWICON(HH1,SS,6);}
 VARR1:=((SMA(MAX((CLOSE - REF(CLOSE,1)),0),12,1) / SMA(ABS((CLOSE - REF(CLOSE,1))),12,1)) * 100);
 {DRAWICON(CROSS(82,VARR1),(HIGH * 1.07),5);}
 VAR1:=REF(CLOSE,1);
 VAR2:=((SMA(MAX((CLOSE - VAR1),0),12,1) / SMA(ABS((CLOSE - VAR1)),12,1)) * 100);
 顶部雷达:=(CROSS(80,VAR2) * 1);
 趋势线:=((3 * SMA((((CLOSE - LLV(LOW,28)) / (HHV(HIGH,28) - LLV(LOW,28))) * 100),5,1)) - (2 * SMA(SMA((((CLOSE - LLV(LOW,27)) / (HHV(HIGH,27) - LLV(LOW,27))) * 100),5,1),3,1)));
 短期乖离率:=(((CLOSE - MA(CLOSE,13)) / MA(CLOSE,13)) * 100);
 {DRAWTEXT(FILTER((IF(((CROSS(趋势线,10) AND ((CLOSE / LOW) > 1.04)) AND (短期乖离率 < 0.35)),1,0) AND (CLOSE > OPEN)),5),(LOW - 0.07),'底'),COLOR00FFFF;}
 VARA:=EMA(((AMOUNT / VOL) / 100),3);
 D:=LLV(CLOSE,20);
 XXY:=EMA(VARA,88);
 XXD:=(XXY * 0.74);
 DRAWTEXT(FILTER(((((((短期乖离率 < 6) AND (OPEN <= D)) AND (LOW <= XXD)) AND ((CLOSE / OPEN) > 1.03)) AND (CLOSE > REF(CLOSE,1))) AND ((CLOSE / LOW) > 1.03)),5),(LOW - (LOW * 0.09)),'★'),COLORFF00FF;
 均价:=((((HIGH + LOW) + OPEN) + CLOSE) / 4);
 B:=((2 * EMA(LLV(均价,88),5)) - 均价);
 黄买:=((3 * B) - (2 * SMA(B,5,1))),COLORFF0033,LINETHICK1;
 Y2:=DRAWTEXT(CROSS(CLOSE,黄买),L*0.97,'● '),COLORFF00FF;
 {DRAWTEXT(CROSS(CLOSE,黄买),L*0.97,'¤ '),COLORMAGENTA;}
 黄点出买:=IF(Y2,L*0.97-0.01,DRAWNULL),CIRCLEDOT,COLOR00FFFF,LINETHICK2;
 买进价:=((C-REF(MA(C,55),1))/6+MA(C,55))*1.004;
 买进条件:=CROSS(C,买进价) AND 买进价>REF(买进价,1);
 买进:STICKLINE(买进条件,H,L,0,0),COLORMAGENTA,LINETHICK2;
 STICKLINE(买进条件,O,C,3,0),COLORMAGENTA,LINETHICK2;
 {DRAWICON(买进条件,L*0.97,1),COLORRED;}
 KS:=(C-MA(C,33))/MA(C,33)*(-200);
 RKS:=REF(KS,1);
 FT:=RKS/KS>=1.23 AND RKS>=8 AND C/REF(C,1)>=1.03;
 反弹:STICKLINE(FT,H,L,0,1),COLORMAGENTA,LINETHICK2;
 STICKLINE(FT,O,C,3,0),COLORYELLOW,LINETHICK2;
 K1:=BACKSET(SS>=REF(SS,1),2),COLORFFFFCC,LINETHICK1;
 红线出买:=IF(K1,SS, DRAWNULL),COLORWHITE,LINETHICK2;
 K2:=BACKSET(SS<=REF(SS,1),2);
 弱:=IF(K2,SS, DRAWNULL),COLORGREEN,LINETHICK2;
 红点出买:IF(买,红线出买*0.988,DRAWNULL),POINTDOT,COLORRED,LINETHICK5;
 VAR10:=MA(C,80)-MA(C,10)/3;
 VAR11:=REF(C,1);
 VAR12:=SMA(MAX(C-VAR11,0),18,1)/SMA(ABS(C-VAR11),18,1)*100;
 高1:=REF(HHV(H,10),20);
 低1:=REF(LLV(L,10),20);
 H1:=高1-(高1-低1)*0.191;
 H2:=高1-(高1-低1)*0.382;
 H3:=高1-(高1-低1)*0.5;
 H4:=高1-(高1-低1)*0.618;
 H5:=高1-(高1-低1)*0.809;
 顶:=REFDATE(高1,DATE),COLORWHITE;
 中线:REFDATE(H1,DATE),COLORGRAY,LINETHICK3;
 DRAWTEXT(ISLASTBAR,中线,'----中线'),COLORYELLOW,LINETHICK4;
 
二:=REFDATE(H2,DATE),COLOR33FF33{MAGENTA},POINTDOT;
 三:=REFDATE(H3,DATE),COLORLIGRAY;
 四:=REFDATE(H4,DATE),COLORRED;
 水平线:REFDATE(H5,DATE),COLORGRAY,LINETHICK2;
 DRAWTEXT(ISLASTBAR,水平线,'水平线'),COLORYELLOW,LINETHICK4;
 

低:=REFDATE(低1,DATE),COLORYELLOW,POINTDOT;
 DRAWTEXT( C=C AND CURRBARSCOUNT=50,中线+0.02,'中线'),COLORYELLOW;
 DRAWTEXT( C=C AND CURRBARSCOUNT=20,水平线-0.02,' 水平线'),COLORFFFFCC;
 KSS:=(C-MA(C,33))/MA(C,33)*(-200);
 RKSS:=REF(KSS,1);
 VAR101:=MA(C,80)-MA(C,10)/3;
 VAR111:=REF(C,1);
 VAR122:=SMA(MAX(C-VAR111,0),18,1)/SMA(ABS(C-VAR111),18,1)*100;
 {DRAWICON(CROSS(79,VAR12),H*1.035,2);}
 DRAWTEXT(CROSS(79,VAR122),H*1.04,' 抛↓'),COLOR33FF33;
 {垂直1:=IF(CURRBARSCOUNT=0,REFDATE(HHV(H,240),DATE),DRAWNULL),STICK;
 STICKLINE(低吸,HHV(H,240),LLV(L,240-239),0,0),STICK,COLORCYAN;};
 Y1:=(H+L)/2;
 AO:=MA(Y1 ,5 )-MA(Y ,34 );
 DU0:=CROSS(AO,0);
 UD0:=CROSS(0,AO);
 TDU0:=BARSLAST(DU0);
 TUD0:=BARSLAST(UD0);
 DU3:=REF(DU0,1);
 UD3:=REF(UD0,1);
 TDU3:=BARSLAST(DU3);
 TUD3:=BARSLAST(UD3);
 决策线:IF(TDU3<TUD3,REF(HHV(H,2),TDU3),REF(LLV(L,2),TUD3)),COLORYELLOW;
 DRAWTEXT(ISLASTBAR,决策线,'决策线'),COLORYELLOW;
 
阻力:REFDATE(REF(HHV(H,22),1),DATE),COLORGRAY,LINETHICK4;
 DRAWTEXT(ISLASTBAR,阻力,'----------阻力'),COLORRED,LINETHICK4;
 
底:REFDATE(REF(LLV(L,22),1),DATE),COLORGRAY,LINETHICK4;
 DRAWTEXT(ISLASTBAR,底,'底'),COLORRED,LINETHICK4;
 
AA17:=EMA(C,14)COLORWHITE,LINETHICK1;
 A17X:=(AA17-REF(AA17,1))/REF(AA17,1)*100,NODRAW;
参考线试买:IF(A17X>=0,REF(EMA(C,14),BARSLAST(CROSS(A17X,0))+1),DRAWNULL)COLORRED,LINETHICK1;
   DRAWTEXT(ISLASTBAR,参考线试买,'参考线试买'),COLORRED,LINETHICK1;
 
DMLJ:=HHV(H,120);
 E:=(H+L+O+2*C)/5;
CRTP:=E+(H-L);
 CRZL:=2*E-L;
 CRZC:=2*E-H;
 CRFZ:=E-(H-L);
 CRXL:=(E+CRTP+CRZL+CRZC+CRFZ)/5;
 高:=CONST(CRTP),COLORRED;
 阻:=CONST(CRZL),COLORC7C9FF;
 支:=CONST(CRZC),COLOR7C9CFF;
 反:=CONST(CRFZ),COLORDD00DD;
 心理:=CONST(CRXL);
 高压:DRAWLINE(S>1&&CURRBARSCOUNT=5+1,高,ISLASTBAR,高,1),COLOR0000FF;
 阻力1:DRAWLINE(S>1&&CURRBARSCOUNT=5+1,阻,ISLASTBAR,阻,1),COLOR0099FF;
 支撑:DRAWLINE(S>1&&CURRBARSCOUNT=5+1,支,ISLASTBAR,支,1),COLORGREEN;
 反转价:DRAWLINE(S>1&&CURRBARSCOUNT=5+1,反,ISLASTBAR,反,1),COLORDD00DD;
 次日心理价:DRAWLINE(S>1&&CURRBARSCOUNT=5+1,心理,ISLASTBAR,心理,1),COLORFFFFFF;
 DRAWTEXT(ISLASTBAR,反,' 反 转买'),LINETHICK1,COLORDD00DD;
 DRAWTEXT(ISLASTBAR,支,' 支 撑'),LINETHICK1,COLOR00FF00;
 DRAWTEXT(ISLASTBAR,阻,' 阻 力1'),LINETHICK1,COLOR0099FF;
 DRAWTEXT(ISLASTBAR,高,' 高 压'),LINETHICK1,COLOR0000FF;
 T1:=CONST(LLVBARS(LOW,10));
 T1HIGH:=CONST(REF(HIGH,T1));
 CC:=CONST(CURRBARSCOUNT);
 T2:=CONST(BARSLAST(CURRBARSCOUNT>CC+T1 AND H>T1HIGH));
 T2HIGH:=CONST(REF(HIGH,T2));
 T3:=CONST(BARSLAST(CURRBARSCOUNT>CC+T2 AND HIGH>T2HIGH));
 T3HIGH:=CONST(REF(HIGH,T3));
 猎击线:DRAWLINE(CURRBARSCOUNT=T3+1, T3HIGH, ISLASTBAR, T3HIGH, 1),COLORGRAY,LINETHICK1;
 DRAWTEXT(ISLASTBAR, T3HIGH, '------------网买入')LINETHICK1,COLORYELLOW;
 IF(S=1, CRTP,DRAWNULL),COLORRED;
 IF(S=1, CRZL,DRAWNULL),COLORC7C9FF;
 IF(S=1, CRZC,DRAWNULL),COLOR7C9CFF;
 IF(S=1, CRFZ,DRAWNULL),COLORDD00DD;
 IF(S=1, CRXL,DRAWNULL),COLORFFDDFF;
 
网12:=EXPMA(CLOSE,12),COLORGRAY,LINETHICK2;
 
网33:EXPMA(CLOSE,33),COLORFF00FF,LINETHICK4;
 IF(网33<REF(网33,1),网33,DRAWNULL),COLOR00FF00,LINETHICK3;