{年庄模型}
N1:=6;
N2:=12;
N3:=24;
YLC:=周月RSI引用.LC#MONTH;
YY11:=周月RSI引用.YN11#MONTH;
YY12:=周月RSI引用.YN12#MONTH;
ZLC:=周月RSI引用.LC#WEEK;
ZY11:=周月RSI引用.YN11#WEEK;
ZY12:=周月RSI引用.YN12#WEEK;
YRSI1:=((MAX(C-YLC,0)+YY11*(N1-1))/N1)/((ABS(C-YLC)+YY12*(N1-1))/N1)*100;
ZRSI1:=((MAX(C-ZLC,0)+YY11*(N1-1))/N1)/((ABS(C-ZLC)+ZY12*(N1-1))/N1)*100;
月RI1:=YRSI1,COLORWHITE;
周RI1:=ZRSI1,COLORWHITE;
零:0,COLORBROWN,DOTLINE;
N:=50;
沧海行周J:="KDJ.J#WEEK" ,COLORGREEN,LINETHICK2;
沧海行周D:="KDJ.D#WEEK" ,COLOR33AAAA,LINETHICK1;
沧海行周MA:=50*"MACD.MACD#WEEK" ,COLORLIGREEN,DOTLINE;
零点:=(CONST(LLV(沧海行周MA,90))+CONST(HHV(沧海行周MA,90)))/2;
DI:=月RI1;
F分:=CONST(LLV(DI,90));
F百:=CONST(HHV(DI,90))-F分;
点:=CONST(LLV(沧海行周MA,90));
基:=CONST(HHV(沧海行周MA,90))-点;
F比:=(DI-F分)/F百;
XFX:=F比*基+点;
周零点:=(CONST(LLV(沧海行周MA,90))+CONST(HHV(沧海行周MA,90)))/2;
周DI:=周RI1;
周F分:=CONST(LLV(周DI,90));
周F百:=CONST(HHV(周DI,90))-周F分;
周点:=CONST(LLV(沧海行周MA,90));
周基:=CONST(HHV(沧海行周MA,90))-周点;
周F比:=(周DI-周F分)/周F百;
周XFX:=周F比*周基+周点;
周线:周XFX*2,COLORBROWN,LINETHICK2;
月线:XFX*3,LINETHICK1,COLORRED,LINETHICK3;
LC1:=REF(CLOSE,1);
日线:SMA(MAX(CLOSE-LC1,0),N1,1)*100 COLORLIBLUE;
日线差:(日线-REF(日线,1)),COLORGREEN,NODRAW;
周线差:(周线-REF(周线,1)),COLORYELLOW,NODRAW;
月线差:(月线-REF(月线,1)),COLORWHITE,NODRAW;
YJ:=周线差>50 AND C< 40;
DRAWICON(YJ,周线,5);
NS:=周线差< -80;
MR:=EXIST(YJ,20) AND CROSS(月线,周线) AND 日线差>=0 AND 周线差< 0;
ZMR:=EXIST(YJ,20) AND (CROSS(日线,周线) OR NS) AND 月线差>=0 AND 周线差< 0;
DRAWICON(MR,周线*1.1,23);
DRAWICON(ZMR,周线*1.01,1);
DRAWICON(CROSS(日线,周线),周线*1.01,7);
周线角:ATAN((周线/REF(周线,1)-1)*100)*57.3,NODRAW;
月线角:ATAN((月线/REF(月线,1)-1)*100)*57.3,NODRAW;
月开:REF(O,BARSLAST(MONTH!=REF(MONTH,1))),COLORRED,NODRAW;
DRAWNUMBER(O=月开 AND 周线差>=30,MAX(月线,MAX(日线,周线))*1.15,周线差),COLORWHITE;
ZT:=C=ZTPRICE(REF(C,1),0.1);
首板:=ZT AND COUNT(ZT,3)< 2 AND DYNAINFO(4)>0 AND FINANCE(42)>15;
DRAWTEXT(EXIST(周线差>=50 AND 月线差>=30,21) AND 首板,月线,'买'),COLORFFFF00;
STICKLINE(((BARSLAST(MONTH!=REF(MONTH,1) OR DATETODAY(DATE)=1))+1=1) AND EXIST(周线差>=50 AND 月线差>=30,21) AND 首板,0,MAX(日线,MAX(周线,月线)),0,-1),COLORGREEN;
