麻煩老師把飛狐公式改成博易大師的 [博易POBO]
咨詢內容：
kx:="chanlun@kxian"; kxg:="chanlun@kxg"; kxd:="chanlun@kxd"; kxfx:="chanlun@kxfx"; 筆:="chanlun@bi"; 筆周期:"chanlun@bilast",linethick0, colorff00ff; bilast:="chanlun@bilast";{筆周期}; 段:="chanlun@duan"; 段周期:"chanlun@duanlast", linethick0, colorFFffFF; duanlast:="chanlun@duanlast"; {段周期}; 中樞:="chanlun@zs"; zszg:="chanlun@zszg"; zszd:="chanlun@zszd"; zsgg:="chanlun@zsgg"; zsdd:="chanlun@zsdd"; zszz:="chanlun@zszz"; zsks:="chanlun@zskslast"; zsjs:="chanlun@zsjslast"; bifx:=-REF(筆,bilast); duanfx:=-REF(段,duanlast); kxqj:="chanlun@kxqj"; {畫中樞Begin} {以背景方式畫} STICKLINE(zszg>zszd AND duanfx=1, zszg, zszd, 10, 1),Color8E236B; STICKLINE(zszg>zszd AND duanfx=-1, zszg, zszd, 10, 1), Color007700; {中樞震蕩監視器} DRAWLINE(zsks=1, zszz, zsjs=1, zszz, 0), colorFFFFFF; {畫中樞END} {頂底分型} STICKLINE(kx>0, kxg, kxd, 5, 1),Color007700,linethick2; STICKLINE(kx<0, kxg, kxd, 5, 1),Color00ffff,linethick2; {筆段} STICKLINE(筆=1, kxg, kxd, 5, 1), colorgreen, linethick2; STICKLINE(筆=-1, kxg, kxd, 5, 1), colorred, linethick2; STICKLINE(段=1, kxg, kxd, 5, 0), color007700, linethick2; STICKLINE(段=-1, kxg, kxd, 5, 0), color0000cc, linethick2; {畫K線END} {畫筆段} drawline(筆=1,h,筆=-1,l,0),colorBLUE,linethick2; drawline(筆=-1,l,筆=1,h,0),ColorFF00FF ,linethick2; drawline(段=1,h,段=-1,l,0),color007700, linethick2; drawline(段=-1,l,段=1,h,0),colorRED, linethick2; {筆高低點 周期 力度 提示} DRAWTEXT(筆= 1, h*1.038, ''+h+''), colorffffff, align1, valign1; DRAWTEXT(筆=-1, L*0.96, ''+l+''), colorFFffFF, align1, valign1; VAR3:=LLV(H,240); VAR4:=100*(C-VAR3)/VAR3; VAR5:=(C-LLV(L,528))/(HHV(H,528)-LLV(L,528))*100; VAR6:=(C-LLV(C,530))/(HHV(C,530)-LLV(C,530))*100; VAR7:=0; VAR8:=SMA(MAX(CLOSE-REF(CLOSE,1),0),34,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),7,1)*100; VAR9:=SMA(MAX(CLOSE-REF(CLOSE,1),0),13,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),13,1)*100; VAR10:=IF(TROUGHBARS(3,16,1)=0 AND H>L+0.04,4,0); VAR11:=ZIG(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3); VAR12:=ZIG(3,6)<REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)>=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3); VAR13:=ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3); VAR14:=ZIG(3,22)<REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)>=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3); VAR15:=ZIG(3,51)>REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3); VAR16:=ZIG(3,51)<REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)>=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3); VAR17:=ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3); VAR18:=ZIG(3,72)<REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)>=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3); VAR19:=EMA(C,2)-EMA(C,150); 買１:=VAR10; 買２:=(VAR11+VAR13+VAR15+VAR17); 賣１:=(VAR12+VAR14+VAR16+VAR18); DRAWTEXT(買１>0 OR 買２>0,L*0.985,'買'),COLOR00ffff; DRAWTEXT(賣１>0,H*1.01,'賣'),COLOR00ffff; APP:=(VOL)/((H-L)*(2)-ABS(C-O)); ZL:=IF((H>O),(APP)*(H-L),IF((L<O),(APP)*(H-O+C-L),(VOL)/(2))); SF:=IF((H>O),0-(APP)*(H-C+O-L),IF((L<O),0-(APP)*(H-L),0-(VOL)/(2))); 庫存能量:=MA(ZL+SF,2); 庫存平均:=MA(ZL+SF,5); GET:ZIG(3,5),COLORYELLOW,LINETHICK3; PL5:=ZIG(3,5); EN1:=PL5>REF(PL5,1) AND REF(PL5,1)<=REF(PL5,2) AND REF(PL5,2)<=REF(PL5,3); EX1:=PL5<REF(PL5,1) AND REF(PL5,1)>=REF(PL5,2) AND REF(PL5,2)>=REF(PL5,3); PL10:=ZIG(3,10); EN2:=PL10>REF(PL10,1) AND REF(PL10,1)<=REF(PL10,2) AND REF(PL10,2)<=REF(PL10,3); EX2:=PL10<REF(PL10,1) AND REF(PL10,1)>=REF(PL10,2) AND REF(PL10,2)>=REF(PL10,3); PL20:=ZIG(3,20); EN3:=PL20>REF(PL20,1) AND REF(PL20,1)<=REF(PL20,2) AND REF(PL20,2)<=REF(PL20,3); EX3:=PL20<REF(PL20,1) AND REF(PL20,1)>=REF(PL20,2) AND REF(PL20,2)>=REF(PL20,3); 走強1:=BARSLAST(PL5<REF(PL5,1)); 走弱1:=BARSLAST(PL5>REF(PL5,1)); 走強2:=BARSLAST(PL10<REF(PL10,1)); 走弱2:=BARSLAST(PL10>REF(PL10,1)); 走強3:=BARSLAST(PL20<REF(PL20,1)); 走弱3:=BARSLAST(PL20>REF(PL20,1)); ZTJZ5:=IF(PL10>REF(PL10,1),COUNT(EN1,走強2),0); ZTJD5:=IF(PL10>REF(PL10,1),COUNT(EX1,走強2),0); DTJZ5:=IF(PL10<REF(PL10,1),COUNT(EN1,走弱2),0); DTJD5:=IF(PL10<REF(PL10,1),COUNT(EX1,走弱2),0); ZTJZ10:=IF(PL20>REF(PL20,1),COUNT(EN2,走強3),0); ZTJD10:=IF(PL20>REF(PL20,1),COUNT(EX2,走強3),0); DTJZ10:=IF(PL20<REF(PL20,1),COUNT(EN2,走弱3),0); DTJD10:=IF(PL20<REF(PL20,1),COUNT(EX2,走弱3),0); DRAWTEXT(EN2 AND DTJZ10=1,L*0.96,'[類二買]'),COLORFFffFF; DRAWTEXT(EN3 AND ZTJZ10=1,L*0.95,'[一買]'),COLORFF00ff; DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,H*1.04,'[二賣]'),LINETHICK2,COLORFFff00; DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=2,L*0.94,'[二買]'),LINETHICK2,COLORFFFF00; DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=2 OR (ZTJD10=0 OR ZTJD10=2) AND EX2,H*1.03,'[一賣]'),LINETHICK3,COLOR00FF00; DRAWTEXTABS(620,-55,'歷史最高價:'+HHV(HIGH,0)),Colorff00ff,LAYER0; DRAWTEXTABS(620,-37,'歷史最低價:'+LLV(LOW,0)),ColorAFFF00,LAYER0; DRAWTEXTABS(750,-55,'20日最高價:'+HHV(HIGH,20)),Colorred,LAYER0;
?
?
?
<!-- 咨詢內容：
麻煩老師把飛狐公式改成博易大師的
kx:="chanlun@kxian"; kxg:="chanlun@kxg"; kxd:="chanlun@kxd"; kxfx:="chanlun@kxfx"; 筆:="chanlun@bi"; 筆周期:"chanlun@bilast",linethick0, colorff00ff; bilast:="chanlun@bilast";{筆周期}; 段:="chanlun@duan"; 段周期:"chanlun@duanlast", linethick0, colorFFffFF; duanlast:="chanlun@duanlast"; {段周期}; 中樞:="chanlun@zs"; zszg:="chanlun@zszg"; zszd:="chanlun@zszd"; zsgg:="chanlun@zsgg"; zsdd:="chanlun@zsdd"; zszz:="chanlun@zszz"; zsks:="chanlun@zskslast"; zsjs:="chanlun@zsjslast"; bifx:=-REF(筆,bilast); duanfx:=-REF(段,duanlast); kxqj:="chanlun@kxqj"; {畫中樞Begin} {以背景方式畫} STICKLINE(zszg>zszd AND duanfx=1, zszg, zszd, 10, 1),Color8E236B; STICKLINE(zszg>zszd AND duanfx=-1, zszg, zszd, 10, 1), Color007700; {中樞震蕩監視器} DRAWLINE(zsks=1, zszz, zsjs=1, zszz, 0), colorFFFFFF; {畫中樞END} {頂底分型} STICKLINE(kx>0, kxg, kxd, 5, 1),Color007700,linethick2; STICKLINE(kx<0, kxg, kxd, 5, 1),Color00ffff,linethick2; {筆段} STICKLINE(筆=1, kxg, kxd, 5, 1), colorgreen, linethick2; STICKLINE(筆=-1, kxg, kxd, 5, 1), colorred, linethick2; STICKLINE(段=1, kxg, kxd, 5, 0), color007700, linethick2; STICKLINE(段=-1, kxg, kxd, 5, 0), color0000cc, linethick2; {畫K線END} {畫筆段} drawline(筆=1,h,筆=-1,l,0),colorBLUE,linethick2; drawline(筆=-1,l,筆=1,h,0),ColorFF00FF ,linethick2; drawline(段=1,h,段=-1,l,0),color007700, linethick2; drawline(段=-1,l,段=1,h,0),colorRED, linethick2; {筆高低點 周期 力度 提示} DRAWTEXT(筆= 1, h*1.038, ''+h+''), colorffffff, align1, valign1; DRAWTEXT(筆=-1, L*0.96, ''+l+''), colorFFffFF, align1, valign1; VAR3:=LLV(H,240); VAR4:=100*(C-VAR3)/VAR3; VAR5:=(C-LLV(L,528))/(HHV(H,528)-LLV(L,528))*100; VAR6:=(C-LLV(C,530))/(HHV(C,530)-LLV(C,530))*100; VAR7:=0; VAR8:=SMA(MAX(CLOSE-REF(CLOSE,1),0),34,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),7,1)*100; VAR9:=SMA(MAX(CLOSE-REF(CLOSE,1),0),13,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),13,1)*100; VAR10:=IF(TROUGHBARS(3,16,1)=0 AND H>L+0.04,4,0); VAR11:=ZIG(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3); VAR12:=ZIG(3,6)<REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)>=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3); VAR13:=ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3); VAR14:=ZIG(3,22)<REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)>=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3); VAR15:=ZIG(3,51)>REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3); VAR16:=ZIG(3,51)<REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)>=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3); VAR17:=ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3); VAR18:=ZIG(3,72)<REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)>=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3); VAR19:=EMA(C,2)-EMA(C,150); 買１:=VAR10; 買２:=(VAR11+VAR13+VAR15+VAR17); 賣１:=(VAR12+VAR14+VAR16+VAR18); DRAWTEXT(買１>0 OR 買２>0,L*0.985,'買'),COLOR00ffff; DRAWTEXT(賣１>0,H*1.01,'賣'),COLOR00ffff; APP:=(VOL)/((H-L)*(2)-ABS(C-O)); ZL:=IF((H>O),(APP)*(H-L),IF((L<O),(APP)*(H-O+C-L),(VOL)/(2))); SF:=IF((H>O),0-(APP)*(H-C+O-L),IF((L<O),0-(APP)*(H-L),0-(VOL)/(2))); 庫存能量:=MA(ZL+SF,2); 庫存平均:=MA(ZL+SF,5); GET:ZIG(3,5),COLORYELLOW,LINETHICK3; PL5:=ZIG(3,5); EN1:=PL5>REF(PL5,1) AND REF(PL5,1)<=REF(PL5,2) AND REF(PL5,2)<=REF(PL5,3); EX1:=PL5<REF(PL5,1) AND REF(PL5,1)>=REF(PL5,2) AND REF(PL5,2)>=REF(PL5,3); PL10:=ZIG(3,10); EN2:=PL10>REF(PL10,1) AND REF(PL10,1)<=REF(PL10,2) AND REF(PL10,2)<=REF(PL10,3); EX2:=PL10<REF(PL10,1) AND REF(PL10,1)>=REF(PL10,2) AND REF(PL10,2)>=REF(PL10,3); PL20:=ZIG(3,20); EN3:=PL20>REF(PL20,1) AND REF(PL20,1)<=REF(PL20,2) AND REF(PL20,2)<=REF(PL20,3); EX3:=PL20<REF(PL20,1) AND REF(PL20,1)>=REF(PL20,2) AND REF(PL20,2)>=REF(PL20,3); 走強1:=BARSLAST(PL5<REF(PL5,1)); 走弱1:=BARSLAST(PL5>REF(PL5,1)); 走強2:=BARSLAST(PL10<REF(PL10,1)); 走弱2:=BARSLAST(PL10>REF(PL10,1)); 走強3:=BARSLAST(PL20<REF(PL20,1)); 走弱3:=BARSLAST(PL20>REF(PL20,1)); ZTJZ5:=IF(PL10>REF(PL10,1),COUNT(EN1,走強2),0); ZTJD5:=IF(PL10>REF(PL10,1),COUNT(EX1,走強2),0); DTJZ5:=IF(PL10<REF(PL10,1),COUNT(EN1,走弱2),0); DTJD5:=IF(PL10<REF(PL10,1),COUNT(EX1,走弱2),0); ZTJZ10:=IF(PL20>REF(PL20,1),COUNT(EN2,走強3),0); ZTJD10:=IF(PL20>REF(PL20,1),COUNT(EX2,走強3),0); DTJZ10:=IF(PL20<REF(PL20,1),COUNT(EN2,走弱3),0); DTJD10:=IF(PL20<REF(PL20,1),COUNT(EX2,走弱3),0); DRAWTEXT(EN2 AND DTJZ10=1,L*0.96,'[類二買]'),COLORFFffFF; DRAWTEXT(EN3 AND ZTJZ10=1,L*0.95,'[一買]'),COLORFF00ff; DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,H*1.04,'[二賣]'),LINETHICK2,COLORFFff00; DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=2,L*0.94,'[二買]'),LINETHICK2,COLORFFFF00; DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=2 OR (ZTJD10=0 OR ZTJD10=2) AND EX2,H*1.03,'[一賣]'),LINETHICK3,COLOR00FF00; DRAWTEXTABS(620,-55,'歷史最高價:'+HHV(HIGH,0)),Colorff00ff,LAYER0; DRAWTEXTABS(620,-37,'歷史最低價:'+LLV(LOW,0)),ColorAFFF00,LAYER0; DRAWTEXTABS(750,-55,'20日最高價:'+HHV(HIGH,20)),Colorred,LAYER0;
?
?
?
<!-- 咨詢內容：附件 :
-->?
?來源:程序化99網（ www.tumamayizhan.com ）
博易技術人員： 您好，公式引用指向不明，無法修改， 能不能光留著線和框框，其余的不要了? 來源 程序化久久網
有思路，想編寫各種指標公式，交易模型，選股公式，還原公式的朋友
可聯系技術人員 QQ: 262069696 或微信號：cxh99cxh99 進行 有償收費 編寫！
(注：由于人數限制，QQ或微信請選擇方便的一個聯系我們就行，加好友時請簡單備注下您的需求，否則無法通過。謝謝您！)
相關文章
-
沒有相關內容
會員登錄/注冊