有坛友想在博易大师上画圆,
于是,我做了一个,
我认为,这个画图方法可以作为博易大师[5.6版本]画图练习

KJJD:=VISBARSTATUS<3;
KJH0:=HHV(H*KJJD,0);
KJH:=KJH0[DATACOUNT];
LX:=IF(KJJD,L,KJH);
KJL0:=LLV(LX,0);
KJL:=KJL0[DATACOUNT];
K:=BARPOS;
A:=DATACOUNT-K+1;
T:=BARSLAST(KJH=H AND KJJD);
TT:=BARSLAST(KJL=L AND KJJD);
T1:=BARSLAST(A=TT[DATACOUNT]+1);
T2:=BARSLAST(A=T[DATACOUNT]+1);
GT:=T2[DATACOUNT]+1;
DT:=T1[DATACOUNT]+1;
HH0:=(REF(L,BARSLAST(A=DT+1)));
LL0:=(REF(H,BARSLAST(A=GT+1)));
HH:=HH0[DATACOUNT];
LL:=LL0[DATACOUNT];
JJ:=(HH-LL)*纵向调节/100;{纵向}
TJ:=ABS(GT-DT);
PT:=TJ/2+MIN(GT,DT);
PJ:=(HH+LL)/2;
TJA:=200*ABS(PT-A)/TJ/横向调节;{横向};
TJB:=IF(TJA<1,SQRT(1-TJA*TJA),0)*JJ;
XH:=IF(DT<gt,pj+tjb,pj-tjb),color00ff00;
SH:=IF(DT<gt,pj-tjb,pj+tjb);
FILLRGN(XH>=REF(XH,1) AND XH>PJ,XH,PJ),COLOR660066;
FILLRGN(XH>=REF(XH,1) AND XH>PJ,SH,PJ),COLOR666600;
FILLRGN(XH<ref(xh,1),xh,pj),color006666;
FILLRGN(XH<ref(xh,1),sh,pj),color006600;
DRAWKLINE(H,O,L,C);