{【画线性回归通道】}
input:t(60);
p:=if(SYSPARAM(1)<datacount-t,SYSPARAM(1),SYSPARAM(3)-t);
Ax:=p=BARPOS;//A点横坐标
yk:=slope(c,t+1);//通道斜率
yc:=forcast(c,t+1);
Ay:=yc[p+t]-yk[p+t]*t;//A点纵坐标
Bx:=ref(Ax,t);//B点横坐标
By:=yc[p+t];//B点纵坐标
中:LINEVALUE(Ax,Ay,Bx,By,0,0);
js:=hhv(h-中,t+1);
jq:=hhv(中-L,t+1);
上:LINEVALUE(Ax,Ay+js[p+t],Bx,By+js[p+t],0,0);
下:LINEVALUE(Ax,Ay-jq[p+t],Bx,By-jq[p+t],0,0);
STICKLINE(Ax or Bx,上,下,0.01,0)COLORGRAY,POINTDOT;
K:=(中-ref(中,t))/t;//(refx(中,t)-中)/中/t*100;
斜y:k,linethick0;
斜%:K[p+t]/中*100,linethick0;
宽%:((上-下)*cos(atan(K[p+t]))/下[p+t])*100,linethick0;//相对宽度
宽y:(上-下)*cos(atan(K[p+t])),linethick0;//绝对宽度
 {点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
