主图源码
X_36:=COST(1);
X_37:=COST(10);
X_38:=COST(20);
X_39:=COST(30);
X_40:=COST(40);
X_41:=COST(50);
X_42:=COST(60);
X_43:=COST(70);
X_44:=COST(80);
X_45:=COST(90);
X_46:=COST(99);
X_47:=COST(5);
X_48:=COST(15);
X_49:=COST(25);
X_50:=COST(35);
X_51:=COST(45);
X_52:=COST(55);
X_53:=COST(65);
X_54:=COST(75);
X_55:=COST(85);
X_56:=COST(95);
X_57:=X_47-X_36;
X_58:=X_37-X_47;
X_59:=X_48-X_37;
X_60:=X_38-X_48;
X_61:=X_49-X_38;
X_62:=X_39-X_49;
X_63:=X_50-X_39;
X_64:=X_40-X_50;
X_65:=X_51-X_40;
X_66:=X_41-X_51;
X_67:=X_52-X_41;
X_68:=X_42-X_52;
X_69:=X_53-X_42;
X_70:=X_43-X_53;
X_71:=X_54-X_43;
X_72:=X_44-X_54;
X_73:=X_55-X_44;
X_74:=X_45-X_55;
X_75:=X_56-X_45;
X_76:=X_46-X_56;
X_77:=MIN(X_57,MIN(X_58,MIN(X_59,MIN(X_60,MIN(X_61,MIN(X_62,MIN(X_63,MIN(X_64,MIN(X_65,
MIN(X_66,MIN(X_67,MIN(X_68,MIN(X_69,MIN(X_70,MIN(X_71,MIN(X_72,MIN(X_73,MIN(X_74,
MIN(X_75,X_76)))))))))))))))))));
X_78:=IF(X_57=X_77,(X_47+X_36)/2,IF(X_58=X_77,(X_47+X_37)/2,IF(X_59=X_77,(X_48+X_37)
/2,IF(X_60=X_77,(X_48+X_38)/2,IF(X_61=X_77,(X_49+X_38)/2,IF(X_62=X_77,(X_49+X_39)
/2,IF(X_63=X_77,(X_50+X_39)/2,IF(X_64=X_77,(X_50+X_40)/2,IF(X_65=X_77,(X_51+X_40)
/2,IF(X_66=X_77,(X_51+X_41)/2,IF(X_67=X_77,(X_52+X_41)/2,IF(X_68=X_77,(X_52+X_42)
/2,IF(X_69=X_77,(X_53+X_42)/2,IF(X_70=X_77,(X_53+X_43)/2,IF(X_71=X_77,(X_54+X_43)
/2,IF(X_72=X_77,(X_54+X_44)/2,IF(X_73=X_77,(X_55+X_44)/2,IF(X_74=X_77,(X_55+X_45)
/2,IF(X_75=X_77,(X_56+X_45)/2,(X_56+X_46)/2)))))))))))))))))));
筹码峰线:X_78,NODRAW,COLOR00EEEE;
STICKLINE(ISLASTBAR,筹码峰线,筹码峰线*1.001,20,0),COLORYELLOW,LINETHICK3;
{Z字庄家成本线}
P1:=10;
N:=10;
M:=3;
NP:=10;
MP:=2.5;
TR1:=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));
UP:=(H+L)/2+MA(TR1,NP)*MP;
DN:=(H+L)/2-MA(TR1,NP)*MP;
L1:=REF(UP,BARSLAST(UP<=REF(UP,1)));
L2:=LLV(UP,N*1.5);
LL:=IF(L2!=REF(L2,1) AND L1<REF(L1,1),L1,IF(L1=L2,L1,L2));
S1:=BARSLAST(CROSS(0.5,UP=LL))+1;
S2:=CROSS(COUNT((CROSS(C,LL) OR CROSS(C,REF(LL,2))) AND UP>LL,S1),0.5);
A6:=BARSLAST(S2);
B6:=BARSLAST(CROSS(HHV(DN,A6+1),C));
BY:=CROSS(B6,A6);
SL:=CROSS(A6,B6);
DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
SUPERTREN:IF(B6>A6,HHV(DN,BARSLAST(BY)+1),LLV(UP,BARSLAST(SL)+1)),COLORGREEN,LINETHICK6;
庄家成本线:IF(B6>A6,SUPERTREN,DRAWNULL),COLOR0000C8,LINETHICK6;
DRAWICON(CROSS(B6,A6),SUPERTREN*0.99,1);
DRAWICON(CROSS(A6,B6),SUPERTREN*1.015,2);
买进:CROSS(B6,A6)*100,NODRAW,COLORRED;
卖出:CROSS(A6,B6)*100,NODRAW;
副图MACD寻龙共振
{日周月趋势}
月DIF:=(EMA(CLOSE,12*4*4)-EMA(CLOSE,26*4*4));
月DEA:=EMA(月DIF,9*4*4);
月MACD:=2*(月DIF-月DEA),COLORSTICK,COLOR111111;
周DIF:=(EMA(CLOSE,12*4)-EMA(CLOSE,26*4));
周DEA:=EMA(周DIF,9*4),COLORWHITE,DOTLINE;
周MACD:=2*(周DIF-周DEA),COLORSTICK,COLOR111111;
日DIF:=(EMA(CLOSE,12)-EMA(CLOSE,26));
日DEA:=EMA(日DIF,9);
日MACD:=2*(日DIF-日DEA),COLORWHITE;
{MACD大行情}
DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIF,9);
MACD:=2*(DIF-DEA),COLORRED;
VA1:=HHVBARS(MACD,BARSLAST(MACD<0)+1);
VA2:=CROSS(BACKSET(CROSS(0,MACD),REF(VA1,1)+2),0.5);
QG:=CROSS(BACKSET(CROSS(0,MACD) OR (ISLASTBAR AND MACD>0),REF(VA1,1)+2),0.5);
前高线:DRAWLINE(VA2,MACD,REF(VA2,1),REF(MACD,1),1),COLORMAGENTA;
MACD120:=REF(MACD/2,BARSLAST(MACD=HHV(MACD,120))),COLORA67D3D,LINETHICK1;
MACD250:REF(MACD/2,BARSLAST(MACD=HHV(MACD,250))),COLORYELLOW,LINETHICK2;
XG:=NOT(REF(MACD120,1)=MACD120);{WWW.GOODGUPIAO.COM}
{STICKLINE(XG,0,MACD,0,0),COLORYELLOW;}
STICKLINE(MACD>=MACD250,MACD250,MACD,2,0),COLORMAGENTA;
STICKLINE(MACD>=MACD250 AND MACD>REF(MACD,1),MACD,0,1,0),COLORYELLOW;
大行情:=NOT(REF(MACD120,1)=REF(MACD250,1)) AND MACD120=MACD250;
{墨轩启动板成妖}
DIF4:=EMA(CLOSE,12)-EMA(CLOSE,26);DEA4:=EMA(DIF4,9);
ZTB:=C>INTPART(REF(C,1)*(1+10/100)/0.01+0.5)*0.01-0.006 AND C=H;
启动版:=DIF4>-0.2 AND DIF4<0.35 AND ZTB AND REF(ZTB,1)<1 AND COUNT(DIF>=-0.01,5)=5;
DRAWTEXT(启动版,MACD250*1.3,'妖'),COLORRED;
{MACD年线共振色带}
STICKLINE(月MACD>REF(月MACD,1),MACD250,0,5,0),COLORLIMAGENTA;
STICKLINE(月MACD<REF(月MACD,1),MACD250,0,5,0),COLORLIGREEN;
{STICKLINE(周柱>REF(周柱,1),MACD250/2,0,5,0),COLOR3300CC;}
{STICKLINE(周柱<REF(周柱,1),MACD250/2,0,5,0),COLORBLUE;}
DRAWBAND(EMA(周MACD,10),RGB(0,0,180), 周MACD,RGB(255,255,0));
{MACD柱}
STICKLINE(MACD>0 AND MACD>REF(MACD,1),0,MACD,1,0),COLORYELLOW;
STICKLINE(MACD>0 AND MACD<REF(MACD,1),0,MACD,1,0),COLORLIBLUE;
STICKLINE(MACD<0,0,MACD,1,0),COLORGREEN;
{MACD年线加强柱}{WWW.GOODGUPIAO.COM}
STICKLINE(MACD>=MACD250,MACD250,MACD,2,0),COLORMAGENTA;
{STICKLINE(MACD>=MACD250 AND MACD>REF(MACD,1),MACD,0,1,0),COLORYELLOW;}
日MACD1:MACD,COLORYELLOW,LINETHICK4;
MACD2501:REF(MACD/2,BARSLAST(MACD=HHV(MACD,250))),COLORYELLOW,LINETHICK3,NODRAW;
副图 寻龙方向标
X_3:=IF(PERIOD<3,35,IF(PERIOD<=5,28,IF(PERIOD<=7,21,IF(PERIOD<=8,14,IF(PERIOD<=9,7,5)))));
X_4:=(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100;
X_5:=MAX(HIGH-LOW,MAX(HIGH-REF(CLOSE,1),REF(CLOSE,1)-LOW))/REF(CLOSE,1)*100;
X_6:=(HIGH-LOW)/REF(CLOSE,1)*100;
X_7:=VOL/REF(MA(VOL,5),1);
X_8:=VOL;
X_9:=(HIGH+LOW+CLOSE)/3;
X_10:=CLOSE>X_9;
X_11:=CLOSE<X_9;
X_12:=X_4*X_8;
X_13:=ABS(IF(X_11,X_12,0));
X_14:=IF(X_10,X_12,0);
阴线效率:=ABS(SUM(IF(X_12<0,X_12,0),7)),DOTLINE,COLOR008000;
阳线效率:=SUM(IF(X_12>0,X_12,0),7),DOTLINE,COLORRED;
X_15:=ABS(阴线效率-阳线效率);
X_16:=49;
X_17:=(阴线效率+阳线效率)/2;
X_18:=STDP(MAX(阴线效率,阳线效率),X_16);
X_19:=STDP(MIN(阴线效率,阳线效率),X_16);
X_20:=WMA(X_17,X_16);
X_21:=X_20+1.618*X_18;
X_22:=X_20-1.618*X_19;
X_23:=阳线效率>阴线效率 AND 阳线效率>=X_20;
X_24:=阴线效率>阳线效率 AND 阴线效率>=X_20;
X_25:=阳线效率>阴线效率 AND 阳线效率>X_21;
X_26:=阴线效率>阳线效率 AND 阴线效率>X_21;
X_27:=阳线效率<阴线效率 AND 阳线效率<X_22;
X_28:=阴线效率<阳线效率 AND 阴线效率<X_22;
X_29:=阳线效率>=HHV(阳线效率,100) AND 阳线效率>0;
X_30:=阴线效率>=HHV(阴线效率,100) AND 阴线效率>0;
X_31:=阳线效率<=LLV(阳线效率,100);
X_32:=阴线效率<=LLV(阴线效率,100);
STICKLINE(X_23,阳线效率,MAX(X_20,阴线效率),2,0),COLORRED;
STICKLINE(X_24,阴线效率,MAX(X_20,阳线效率),2,0),COLORGREEN;
STICKLINE(X_25,阳线效率,MAX(X_21,阴线效率),2,0),COLORYELLOW;
STICKLINE(X_26,阴线效率,MAX(X_21,阳线效率),2,0),COLORWHITE;
{NOTEXT0:IF(阳线效率>阴线效率,阳线效率,DRAWNULL),COLORRED,LINETHICK2;
NOTEXT1:IF(阳线效率<阴线效率,阴线效率,DRAWNULL),COLORGREEN,LINETHICK2;}
CMA:=(COST(95)-COST(5))/((COST(95)+COST(5)))*100,NODRAW,COLORYELLOW;
ZT:=C/REF(C,1)>=1.08 AND C=H AND NOT(CODELIKE('688'));
STICKLINE(X_25 AND ZT AND CMA<20,MAX(X_21,阴线效率),MAX(X_21,阴线效率)*2,2,0),COLORGREEN;