修改一下用于文華主圖（原通達(dá)信）

作者：文華財經(jīng) 來源：cxh99.com 發(fā)布時間：2023年02月07日

咨詢內(nèi)容： ?周期:=5;K:=CURRBARSCOUNT,NODRAW;LH:DRAWLINE(L=LLV(L,周期),L,H=HHV(H,周期),H,0),COLORLIRED;HL:DRAWLINE(H=HHV(H,周期),H,L=LLV(L,周期),L,0),COLORLIBLUE;LT:BARSLAST(L=HL),NODRAW; LL:REF(L,LT),NODRAW;LT1:REF(LT,LT+1),NODRAW; LL1:REF(L,LT+LT1+1),NODRAW;HT:BARSLAST(H=HL),NODRAW; HH:REF(H,HT),NODRAW;HT1:REF(HT,HT+1),NODRAW; HH1:REF(H,HT+HT1+1),NODRAW;VV:SUM(V,LT),NODRAW; VV1:REF(VV,HT),NODRAW;ZF:(HH/LL-1)*100,NODRAW; DF:(LL/HH-1)*100,NODRAW;DRAWTEXT(HT=0,H*1.02,VARCAT(VAR2STR(ZF,1),'%')),COLORLIRED;DRAWTEXT(LT=0,L*0.98,VARCAT(VAR2STR(DF,1),'%')),COLORLIBLUE;TJ1:LL>LL1,NODRAW;TJ2:HH/LL1<1.15,NODRAW;TJ3:CROSS(C,HH) AND (VV>VV1 OR V>REF(HHV(V,LT),HT)),NODRAW;TJ4:HL=DRAWNULL AND HT<=20,NODRAW;XG:TJ1 AND TJ2 AND TJ3 AND TJ4,NODRAW;DRAWICON(XG,L*0.98,1);STICKLINE(XG,O,C,6,0),COLORYELLOW;XGT:BARSLAST(XG=1),NODRAW;XGL:IF(BETWEEN(XGT,1,15),DRAWLINE(XGT=0,C,XGT<=15,REF(REF(C,XGT),1),0),DRAWNULL),DOTLINE,COLORYELLOW;

?
?
?來源:程序化99
文華技術(shù)人員： 軟件機制不同效果會有差異
請參考

CURRBARSCOUNT:=DATACOUNT-BARPOS+1;周期:=5;K:=CURRBARSCOUNT,NODRAW;DRAWLINE1(L=LLV(L,周期),L,H=HHV(H,周期),H,0),COLORRED;DRAWLINE1(H=HHV(H,周期),H,L=LLV(L,周期),L,0),COLORBLUE;LH:=TRENDLINES(L=LLV(L,周期),L,H=HHV(H,周期),H),COLORRED;HL:=TRENDLINES(H=HHV(H,周期),H,L=LLV(L,周期),L),COLORBLUE;LT:BARSLAST(L=HL),NODRAW;?LL:REF(L,LT),NODRAW;LT1:REF(LT,LT+1),NODRAW;?LL1:REF(L,LT+LT1+1),NODRAW;HT:BARSLAST(H=HL),NODRAW;?HH:REF(H,HT),NODRAW;HT1:REF(HT,HT+1),NODRAW;?HH1:REF(H,HT+HT1+1),NODRAW;VV:SUM(V,LT),NODRAW;?VV1:REF(VV,HT),NODRAW;ZF:(HH/LL-1)*100,NODRAW;?DF:(LL/HH-1)*100,NODRAW;DRAWNUMBER1(HT=0,H,ZF,1),COLORRED;DRAWNUMBER1(LT=0,L,DF,1),COLORBLUE;TJ1:LL>LL1,NODRAW;TJ2:HH/LL1<1.15,NODRAW;TJ3:CROSS(C,HH) AND (VV>VV1 OR V>REF(HHV(V,LT),HT)),NODRAW;TJ4:HL=0 AND HT<=20,NODRAW;XG:TJ1 AND TJ2 AND TJ3 AND TJ4,NODRAW;DRAWICON(XG,L*0.98,1);STICKLINE(XG,O,C,6,0),COLORYELLOW;XGT:BARSLAST(XG=1),NODRAW;XGL:IF(BETWEEN(XGT,1,15),TRENDLINES(XGT=0,C,XGT<=15,REF(REF(C,XGT),1)),NULL),DOT,COLORYELLOW;