我从文华论坛找到最后一笔的部分公式,如下://最后一段画线N1:=BARSLAST(HHH)+1;
N2:=BARSLAST(LLL)+1;
DRAWLINE3(ISLASTBAR&&MIN(N1,N2)=N2&&L>REF(L,N2-1),REF(L,N2-1),N2-1,ISLASTBAR,H,0,0),COLORRED,LINETHICK3;//红色
DRAWLINE3(ISLASTBAR&&MIN(N1,N2)=N1&&H<REF(H,N1-1),REF(H,N1-1),N1-1,ISLASTBAR,L,0,0),COLORGREEN,LINETHICK3;//绿色
DRAWSL(ISLASTBAR&&MIN(N1,N2)=N1&&H<REF(H,N1-1),L+(REF(H,N1-1)-L)*1.38,0,100,0,COLORMAGENTA);
DRAWSL(ISLASTBAR&&MIN(N1,N2)=N1&&H<REF(H,N1-1),L+(REF(H,N1-1)-L)*1,0,100,0,COLORMAGENTA);
DRAWSL(ISLASTBAR&&MIN(N1,N2)=N1&&H<REF(H,N1-1),L+(REF(H,N1-1)-L)*0.5,0,100,0,COLORMAGENTA);
DRAWSL(ISLASTBAR&&MIN(N1,N2)=N2&&L>REF(L,N2-1),H-(H-REF(L,N2-1))*1.38,0,100,0,COLORMAGENTA);
DRAWSL(ISLASTBAR&&MIN(N1,N2)=N2&&L>REF(L,N2-1),H-(H-REF(L,N2-1))*1,0,100,0,COLORMAGENTA);
DRAWSL(ISLASTBAR&&MIN(N1,N2)=N2&&L>REF(L,N2-1),H-(H-REF(L,N2-1))*0.5,0,100,0,COLORMAGENTA);
DRAWTEXT(ISLASTBAR&&MIN(N1,N2)=N1&&H<REF(H,N1-1),L+(REF(H,N1-1)-L)*1.38,'1.38'),ALIGN2,VALIGN1;
DRAWTEXT(ISLASTBAR&&MIN(N1,N2)=N1&&H<REF(H,N1-1),L+(REF(H,N1-1)-L)*1,'1'),ALIGN2,VALIGN1;
DRAWTEXT(ISLASTBAR&&MIN(N1,N2)=N1&&H<REF(H,N1-1),L+(REF(H,N1-1)-L)*0.5,'0.5'),ALIGN2,VALIGN1;
DRAWTEXT(ISLASTBAR&&MIN(N1,N2)=N2&&L>REF(L,N2-1),H-(H-REF(L,N2-1))*1.38,'1.38'),ALIGN2,VALIGN1;
DRAWTEXT(ISLASTBAR&&MIN(N1,N2)=N2&&L>REF(L,N2-1),H-(H-REF(L,N2-1))*1,'1'),ALIGN2,VALIGN1;
DRAWTEXT(ISLASTBAR&&MIN(N1,N2)=N2&&L>REF(L,N2-1),H-(H-REF(L,N2-1))*0.5,'0.5'),ALIGN2,VALIGN1;
图如下:

此主题相关图片如下:snipaste_2020-10-19_11-33-39最后一笔画线.jpg
