{分割}
a1:=SYSPARAM(1);a2:=SYSPARAM(2);a3:=SYSPARAM(3);
M:=IF(A1=A3,60,A3-A1);
p:=a3;n:=IF(p>a1,p-a1,p-a2);
ws:=BARPOS;
ws1:=IF(ws<m,ws,m);
FGX:=BARPOS=a3;FGS:=BARPOS=a1;WZS:=IF(A1=A3,BARPOS=a2,FGS);
h1:=HHV(HIGH,ws1);l1:=LLV(LOW,ws1);
hp:=h1[p];
lp:=l1[p];
hlpx:=(hp-lp);
分割上限:hp,COLORCC8C33,LINETHICK;
drawsl(FGX,lp,0,n-1,1) ,POINTDOT,,colorcc0044;
DRAWNUMBER(FGS,lp,lp,3),ALIGN2,color6633cc;
DRAWTEXT(WZS,LP,' 最 低'),COLORA9C0,PXDN10;
drawsl(FGX,lp+hlpx*0.191,0,n-1,1),POINTDOT,colorcc0099;
DRAWNUMBER(FGS,lp+hlpx*0.191,lp+hlpx*0.191,3),ALIGN2,color6688cc;
DRAWTEXT(WZS,lp+hlpx*0.191,' 0.191'),COLORA9A0,PXDN10;
drawsl(FGX,lp+hlpx*0.382,0,n-1,1),POINTDOT,colorcc0088;
DRAWNUMBER(FGS,lp+hlpx*0.382,lp+hlpx*0.382,3),ALIGN2,color6677cc;
DRAWTEXT(WZS,lp+hlpx*0.382,' 0.382'),COLORA980,PXDN10;
drawsl(FGX,lp+hlpx*0.500,0,n-1,1),POINTDOT,colorcc0077;
DRAWNUMBER(FGS,lp+hlpx*0.500,lp+hlpx*0.500,3),ALIGN2,color6655cc;
DRAWTEXT(WZS,lp+hlpx*0.500,' 0.500'),COLORA960,PXDN10;
drawsl(FGX,lp+hlpx*0.618,0,n-1,1),POINTDOT,colorcc0066;
DRAWNUMBER(FGS,lp+hlpx*0.618,lp+hlpx*0.618,3),ALIGN2,color6633cc;
DRAWTEXT(WZS,lp+hlpx*0.618,' 0.618'),COLORA940,PXDN10;
drawsl(FGX,lp+hlpx*0.809,0,n-1,1),POINTDOT,colorcc0055;
DRAWNUMBER(FGS,lp+hlpx*0.809,lp+hlpx*0.809,3),ALIGN2,color6611cc;
DRAWTEXT(WZS,lp+hlpx*0.809,' 0.809'),COLORA920,PXDN10;
drawsl(FGX,hp,0,n-1,1),POINTDOT,colorcc0044;
DRAWNUMBER(FGS,hp,hp,3),ALIGN2,color6622cc;
DRAWTEXT(WZS,Hp,' 最 高'),COLORA900,PXDN10;
//
{倒算累加换手(另种写法)}
sj:=datacount-sysparam(1);
fc:=v;
fori=sjtodatacountdo
begin
XL:=0;
for j=0 to sj do XL:=XL+fc[i-j];
man := XL;
end;
hs:=100*XL/CAPITAL;
DRAWTEXT(BARPOS=SYSPARAM(2),H,'■倒算累加换手: '+NUMTOSTR(hs,2)+'(%)'),align5,COLORGREEN;
{预测量}
iftoday:=(dynainfo(7)=c and dynainfo(10)=amount);
vol1:=dynainfo(8)*240/openminutes(currenttime);
vol2:=if(vol1>capital,capital,vol1);
prevol:=if(openminutes(currenttime)=1,vol,vol2);
预测量:=if(iftoday,round(prevol),0),linethick0;
drawtext(iftoday and 预测量<ma(v,13),H,' 预 \n 测 \n 量 \n↓'),ALIGN,PXUP127,COLORGREEN;
drawtext(iftoday and 预测量>ma(v,13),H,' 预 \n 测 \n 量 \n↑'),ALIGN,PXUP127,COLORGREEN;
//{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
