农历:=lday;
isFirst:=if(农历>Ref(农历,1) and ref(农历,1)<15 and 农历>15,1,0);
isColor:=if(lday=15 or isFirst,1,0); {判断是否绘制彩线的位置:农历15,或者农历15后的第一个交易日}
Num:=count(isColor,0);
VERTLINE(isColor and mod(Num,4)=0,1),colorred,pointdot;
VERTLINE(isColor and mod(Num,4)=1,1),coloryellow,pointdot;
VERTLINE(isColor and mod(Num,4)=2,1),colorblue,pointdot;
VERTLINE(isColor and mod(Num,4)=3,1),colorgreen,pointdot;
{www.fxjgsw.com}
为了进一步看清楚原来《三角洲预测》有利于咱们使用我编辑大智慧源码如下;-----------
{DELTA月15}
DRAWGBKlast(c>0,strip(RGB(0,50,0),RGB(0,0,80),0)),LAYER7;
DRAWTEXTABS(660,6,'今天农历:◆'+NUMTOSTRN(LMONTH,0)+'月'+NUMTOSTRN(LDAY,0)+'日◆'),LINETHICK5,COLOR00ffff;
{【必备】---K线【C AND REF(C,1).】----}
{----CLOSE AND OPEN----}
STICKLINE(CLOSE>=OPEN,OPEN,LOW,0.5,0 ),COLOR0000ff,LAYER0;
STICKLINE(CLOSE>=OPEN,CLOSE,HIGH,0.5,0 ),COLOR0000ff,LAYER0;
STICKLINE(CLOSE<OPEN,OPEN,LOW,0.8,0 ),COLOR00ff00,LAYER5;
STICKLINE(CLOSE<OPEN,CLOSE,HIGH,0.8,0 ),COLOR00ff00,LAYER5;
{----C>REF(C,1)----}
stickline(C>REF(C,1),C,O,8,0),Color000033,LAYER4;
stickline(C>REF(C,1),C,O,7,0),Color000055,LAYER4;
stickline(C>REF(C,1),C,O,6,0),Color000077,LAYER4;
stickline(C>REF(C,1),C,O,5,0),Color000099,LAYER4;
stickline(C>REF(C,1),C,O,4,0),Color0000bb,LAYER4;
stickline(C>REF(C,1),C,O,2,0),Color6500dd,LAYER4;
stickline(C>REF(C,1),C,O,1,0),Color9C00ff,LAYER4;
{----C<REF(C,1)----}
stickline(C<REF(C,1),C,O,8,0),Color003300,LAYER4;
stickline(C<REF(C,1),C,O,7,0),Color005500,LAYER4;
stickline(C<REF(C,1),C,O,6,0),Color007700,LAYER4;
stickline(C<REF(C,1),C,O,5,0),Color009900,LAYER4;
stickline(C<REF(C,1),C,O,4,0),Color00bb00,LAYER4;
stickline(C<REF(C,1),C,O,2,0),Color65dd00,LAYER4;
stickline(C<REF(C,1),C,O,1,0),Color9Cff00,LAYER4;
{----C=REF(C,1)----}
stickline(C=REF(C,1),C,O,8,0),Color008888,LAYER4;
stickline(C=REF(C,1),C,O,6,0),Color00AAAA,LAYER4;
stickline(C=REF(C,1),C,O,3,0),Color00DDDD,LAYER4;
stickline(C=REF(C,1),C,O,1,0),Color00ffFF,LAYER4;
现价: if (DYNAINFO(4)=0,C,DYNAINFO(7)),colorFF00FF,POINTDOT,LINETHICK2;
MID : MA(CLOSE,26),COLOR00ffFF,DOTLINE,LAYER0;;;
UPPER: MID + 2*STD(CLOSE,26),COLOR00ff00,DOTLINE,LAYER0;;
LOWER: MID - 2*STD(CLOSE,26),COLOR0099ff,DOTLINE,LAYER0;;;
DRAWBMP(CROSS(UPPER,C),H*1.008,'SE'),ALIGN1;
DRAWBMP(CROSS(LOWER,C),L*0.99,'BU'),ALIGN1;
FILLRGN(UPPER,MID,UPPER>MID,RGB(0,0,188)),LAYER7;
FILLRGN(LOWER,MID,LOWER<MID,RGB(78,0,0)),LAYER7;
上轨下:LAST(C<UPPER),LINETHICK0;
上轨上:LAST(C>UPPER),LINETHICK0;
DRAWTEXTABS(60,35,IFS((上轨下>0),'----◆在BOLL上轨下【第'+NUMTOSTRN(上轨下,0)+'个周期】◆----','')),LINETHICK4,Color00FF00;
DRAWTEXTABS(60,35,IFS((上轨上>0),'----◆在BOLL上轨上【第'+NUMTOSTRN(上轨上,0)+'个周期】◆----','')),LINETHICK4,Color00FFff;
农历:=LDAY;;
isFirst:=if(农历>Ref(农历,1) and ref(农历,1)<15 and 农历>15,1,0);
isColor:=if(lday=15 or isFirst,1,0); {判断是否绘制彩线的位置:农历15,或者农历15后的第一个交易日}
Num:=count(isColor,0);
VERTLINE(isColor and mod(Num,4)=0,0),colorred,LINETHICK2,LAYER5;
VERTLINE(isColor and mod(Num,4)=1,0),coloryellow,LINETHICK1,LAYER5;
VERTLINE(isColor and mod(Num,4)=2,0),colorff9900,LINETHICK1,LAYER5;
VERTLINE(isColor and mod(Num,4)=3,0),colorgreen,LINETHICK1,LAYER5;
X:=BARSLAST(DISPSTATUS=1)+1; LL:=LLVALL(LLV(L,X)); HH:=HHVALL(HHV(H,X)); HH*1.04,COLOR000000;
PD0:=isColor and mod(Num,4)=0;
DRAWTEXT(PD0,LL*1.01,'农历:'+NUMTOSTRN(LMONTH,0)+'.'+NUMTOSTRN(LDAY,0)+'→'),COLOR00FFFF,VALIGN2,ALIGN2,linethick2,LAYER0;;
DRAWTEXT(PD0,LL*0.98,'【红】四次转折'),COLORFF00FF,VALIGN2,ALIGN0,linethick2,LAYER0;;
PD1:=isColor and mod(Num,4)=1;
DRAWTEXT(PD1,LL*1.01,'农历:'+NUMTOSTRN(LMONTH,0)+'.'+NUMTOSTRN(LDAY,0)+'→'),COLOR00FFFF,VALIGN2,ALIGN2,linethick2,LAYER0;;
DRAWTEXT(PD1,LL*0.98,'【黄】可逢高减仓'),COLORFFFFFF,VALIGN2,ALIGN0,linethick2,LAYER0;;
PD2:=isColor and mod(Num,4)=2;
DRAWTEXT(PD2,LL*1.01,'农历:'+NUMTOSTRN(LMONTH,0)+'.'+NUMTOSTRN(LDAY,0)+'→'),COLOR00FFFF,VALIGN2,ALIGN2,linethick2,LAYER0;;
DRAWTEXT(PD2,LL*0.98,'【兰】常规应调整'),COLORFF9900,VALIGN2,ALIGN0,linethick2,LAYER0;;
PD3:=isColor and mod(Num,4)=3;
DRAWTEXT(PD3,LL*1.01,'农历:'+NUMTOSTRN(LMONTH,0)+'.'+NUMTOSTRN(LDAY,0)+'→'),COLOR00FFFF,VALIGN2,ALIGN2,linethick2,LAYER0;
DRAWTEXT(PD3,LL*0.98,'【绿】逢低可建仓'),COLOR00FF00,VALIGN2,ALIGN0,linethick2,LAYER0;
DC0:=REF(C,BARSLAST(PD0));;
DRAWTEXT(PD0,HH,' C='+NUMTOSTRN(DC0,2)+' '),COLOR00FFFF,VALIGN2,ALIGN0,linethick2,LAYER0;;
DC1:=REF(C,BARSLAST(PD1));
DRAWTEXT(PD1,HH,' C='+NUMTOSTRN(DC1,2)+' '),COLOR00FFFF,VALIGN2,ALIGN0,linethick2,LAYER0;;
DC2:=REF(C,BARSLAST(PD2));
DRAWTEXT(PD2,HH,' C='+NUMTOSTRN(DC2,2)+' '),COLOR00FFFF,VALIGN2,ALIGN0,linethick2,LAYER0;;
DC3:=REF(C,BARSLAST(PD3));
DRAWTEXT(PD3,HH,' C='+NUMTOSTRN(DC3,2)+' '),COLOR00FFFF,VALIGN2,ALIGN0,linethick2,LAYER0;;
DRAWLINE(PD0,DC0,PD1,DC1,0),Color0044ff,LINETHICK2;;
DRAWLINE(PD1,DC1,PD2,DC2,0),Color00FFff,LINETHICK2;;
DRAWLINE(PD2,DC2,PD3,DC3,0),ColorFF9900,LINETHICK2;;
DRAWLINE(PD3,DC3,PD0,DC0,0),Color00ff00,LINETHICK2;
DRAWLINE(PD0,DC0,PD0,DC0,0),ColorFFFFFF,DASHLINE;;
【注意】这是农历每月十五就是转折点.第一根红线就是四个循环的起点.而且第一根红线就是该股上市那天以后每四个【农历15日】循环一次.所以现在每个股票是处于那个循环就更不一样了‘’
|