var1:="chzhshch@kxian";
var2:="chzhshch@bi";{處理筆關(guān)系}
if DATAPERIOD<=8 then
begin
//var2:="chzhshch@duan";{處理段1分鐘的關(guān)系}
pre:=3; {設置小數點(diǎn)位數}
if STKTYPE=0 then pre:=1;
if STKTYPE=11 then pre:=3;
a1:=barslast(var2<>0);
a2:=ref(var2,a1);
aa1:=ref(a1+1,1);
aa2:=ref(a2,1);
aa3:=BARSSINCE(var2<>0);
aa4:=ref(aa3+1,1)+4;//歷史總周期數
a3:if (aa2>0,l-ref(h,aa1),h-ref(l,aa1)),linethick0;{計算點(diǎn)位差}
drawnumber(var2=1,h,h,pre),pxup20,color3300ff,align1; {顯示數字}
drawnumber(var2=-1,l,l,pre),pxdn5,colorffff00,align1;
//{顯示完成筆力度}
//drawtext(var2=1,h,'+'),pxup45,colormagenta,align2;
drawnumber(var2=1,h,a3,pre),align1,colormagenta,pxup65;
drawnumber(var2=-1,l,a3,pre),align1,colormagenta,pxdn50;
//顯示完成筆周期
drawtext(var2=1,h,'賣(mài)'),pxup45,colorred,align2;
drawtext(var2=1,h,'T:'),pxup45,coloryellow,align2,shift3;
drawnumber(var2=1,h,aa1,0),colormagenta,pxup45,align1,shift3;
//drawnumber(var2=1,h,aa4,0),coloryellow,pxup45,align1,shift6;
drawtext(var2=-1,l,'買(mǎi)'),pxdn30,colorgreen,align2;
drawtext(var2=-1,l,'T:'),pxdn30,coloryellow,align2,shift3;
drawnumber(var2=-1,l,aa1,0),colormagenta,pxdn30,align1,shift3;
//drawnumber(var2=-1,l,aa4,0),coloryellow,pxdn30,align1,shift6;
//顯示未完成筆的點(diǎn)位力度
ll:=l-ref(h,barslast(var2<>0));
hh:=h-ref(l,barslast(var2<>0)) ;
a3:= -a3;
//顯示未完成筆的收盤(pán)數據
drawtext(islastbar and ref(var2,barslast(var2<>0))=-1 and var2=0,h,numtostr(h,3)),pxup20,color3300ff,align1,shift6;{顯示數字}
drawtext(islastbar and ref(var2,barslast(var2<>0))=1 and var2=0,l,numtostr(l,3)),pxdn5,colorffff00,align1,shift6;
//寫(xiě)在未完成筆低點(diǎn)處的筆的點(diǎn)位力度
drawtext(islastbar and ref(var2,barslast(var2<>0))=1 and var2=0,L,numtostr(ll,3)),colorgreen,shift6,pxdn30,align1;
//寫(xiě)在未完成筆高點(diǎn)處的筆的點(diǎn)位力度//
drawtext(islastbar and ref(var2,barslast(var2<>0))=-1 and var2=0,h,'+' + numtostr(hh,3)),align1,colormagenta,pxup45,shift6;
//顯示未完成筆的周期,寫(xiě)在低點(diǎn)的
drawtext(islastbar and ref(var2,barslast(var2<>0))=1 and var2=0,L,'T:'+ numtostr(aa1,0) ),pxdn50,coloryellow,align1,shift6;
//顯示未完成筆的周期,寫(xiě)在高點(diǎn)的
drawtext(islastbar and ref(var2,barslast(var2<>0))=-1 and var2=0,h,'T:'+ numtostr(aa1,0) ),pxup65,coloryellow,align1,shift6;
end;
var1:="chzhshch@kxian";{處理K線(xiàn)}
var2:="chzhshch@bi";{處理筆關(guān)系}
drawline(var2=1,h,var2=-1,l,0),linedot,coloryellow;
drawline(var2=-1,l,var2=1,h,0),linedot,coloryellow;
var3:="chzhshch@duan";{處理段關(guān)系,處理前調整筆的高低點(diǎn),處理后不調整}
drawnumber(var3=1,h,h,2),pxup20,colormagenta,align2;
//drawtext(var3=1,h,'賣(mài)'),pxup20,colormagenta,align2;
drawnumber(var3=-1,l,l,2),pxdn5,colorgreen;
drawline(var3=1,h,var3=-1,l,0),colorFF6600;
drawline(var3=-1,l,var3=1,h,0),colorFF6600;
var31:=hhvbars(zig(3, 19)>ref(zig(3,19),1)
and ref(zig(3,19), 1)<ref(zig(3,19), 2),0);
stickline(var31=2,l*0.95,l*0.98,8,0),color0000ff;
drawtext(var31=2,l*0.95,'3天'),coloryellow;
stickline(var31=4,h*1.05,h*1.02,8,0),color9966ff;
drawtext(var31=4,h*1.06,'5天'),coloryellow;
stickline(var31=7,l*0.95,l*0.98,8,0),color00ffff;
drawtext(var31=7,l*0.95,'8天'),coloryellow;
stickline(var31=12,h*1.05,h*1.02,8,0),colorff33ff;
drawtext(var31=12,h*1.06,'13天'),coloryellow;
stickline(var31=20,l*0.95,l*0.98,8,0),color0066ff;
drawtext(var31=20,l*0.95,'21天'),coloryellow;
stickline(var31=33,h*1.05,h*1.02,8,0),colorffff00;
drawtext(var31=33,h*1.06,'34天'),coloryellow;
stickline(var31=54,l*0.95,l*0.98,8,0),color006600;
drawtext(var31=54,l*0.95,'55天'),coloryellow;
stickline(var31=88,h*1.05,h*1.02,8,0),color00ff00;
drawtext(var31=88,h*1.06,'89天'),coloryellow;
stickline(var31=143,l*0.95,l*0.98,8,0),colorccffff;
drawtext(var31=143,l*0.95,'144天'),coloryellow;
stickline(var31=232 ,h*1.05,h*1.02,8,0),colorff0033;
drawtext(var31=232,h*1.06,'233天'),coloryellow;
stickline(var31=376,l*0.95,l*0.98,8,0),colorff9966;
drawtext(var31=376,l*0.95,'377天'),coloryellow;
聯(lián)系客服