請老師改成博弈指標 [博易POBO]
咨詢內容:
N00:=150;判斷高低:=3;
高0:=REF(HHV(H,N00),判斷高低);
近期頂:REFDATE(高0,DATE),COLORGREEN,LINETHICK3;
最頂:=REFDATE(近期頂,DATE),NODRAW;
出:=最頂=H AND ((C-L)<(O-C) OR (O-L)<(C-O)),NODRAW;
STICKLINE(出,C,O,3,0),COLORGREEN;
STICKLINE(出,C,O,2,0),COLORGREEN;
低0:=REF(LLV(L,N00),判斷高低);
近期底:REFDATE(低0,DATE),COLORRED,LINETHICK3;
最底:=REFDATE(近期底,DATE),NODRAW;
進:=最底=L AND ((C+L)<(O+C) OR (O+L)<(C+O)),NODRAW;
STICKLINE(進,H,L,3,0),COLORRED;
STICKLINE(進,C,O,2,0),COLORRED;
N250:=250;
PT250:=CONST(HHVBARS(V,N250));
T250:IF(CURRBARSCOUNT<=N250,CONST(IF(PT250=0,C,REF(C,PT250))),DRAWNULL),COLORMAGENTA,LINETHICK2;
IF(CURRBARSCOUNT=PT250+1,T250*1.01,DRAWNULL),CIRCLEDOT,COLORFF0000,LINETHICK2;
DRAWTEXT(CURRBARSCOUNT=N250,T250,'250'),COLOR990000;
N120:=120;
PT120:=CONST(HHVBARS(V,N120));
T120:IF(CURRBARSCOUNT<=N120,CONST(IF(PT120=0,C,REF(C,PT120))),DRAWNULL),COLORAAAA00,LINETHICK2;
IF(CURRBARSCOUNT=PT120+1,T120,DRAWNULL),CIRCLEDOT,COLORFFFF00,LINETHICK2;
DRAWTEXT(CURRBARSCOUNT=N120,T120,'120'),COLORAAAA00;
N60:=60;
PT60:=CONST(HHVBARS(V,N60));
T60:IF(CURRBARSCOUNT<=N60,CONST(IF(PT60=0,C,REF(C,PT60))),DRAWNULL),COLOR00BB00,LINETHICK2;
IF(CURRBARSCOUNT=PT60+1,T60,DRAWNULL),CIRCLEDOT,COLOR00FF00,LINETHICK2;
DRAWTEXT(CURRBARSCOUNT=N60,T60,'60'),COLOR00BB00;
N30:=30;
PT30:=CONST(HHVBARS(V,N30));
T30:IF(CURRBARSCOUNT<=N30,CONST(IF(PT30=0,C,REF(C,PT30))),DRAWNULL),COLOR0000CC,LINETHICK2;
IF(CURRBARSCOUNT=PT30+1,T30,DRAWNULL),CIRCLEDOT,COLOR0000FF,LINETHICK2;
DRAWTEXT(CURRBARSCOUNT=N30,T30,'30'),COLOR0000CC;
N20:=20;
PT20:=CONST(HHVBARS(V,N20));
T20:IF(CURRBARSCOUNT<=N20,CONST(IF(PT20=0,C,REF(C,PT20))),DRAWNULL),COLORDD00DD,LINETHICK2;
IF(CURRBARSCOUNT=PT20+1,T20,DRAWNULL),CIRCLEDOT,COLORFF00FF,LINETHICK2;
DRAWTEXT(CURRBARSCOUNT=N20,T20,'20'),COLORDD00DD;
阻力:REFDATE(REF(HHV(H,22),1),DATE),DOTLINE,LINETHICK2;
底0:REFDATE(REF(LLV(L,22),1),DATE),DOTLINE,LINETHICK2;
N00:=150;判斷高低:=3;
高0:=REF(HHV(H,N00),判斷高低);
近期頂:REFDATE(高0,DATE),COLORGREEN,LINETHICK3;
最頂:=REFDATE(近期頂,DATE),NODRAW;
出:=最頂=H AND ((C-L)<(O-C) OR (O-L)<(C-O)),NODRAW;
STICKLINE(出,C,O,3,0),COLORGREEN;
STICKLINE(出,C,O,2,0),COLORGREEN;
低0:=REF(LLV(L,N00),判斷高低);
近期底:REFDATE(低0,DATE),COLORRED,LINETHICK3;
最底:=REFDATE(近期底,DATE),NODRAW;
進:=最底=L AND ((C+L)<(O+C) OR (O+L)<(C+O)),NODRAW;
STICKLINE(進,H,L,3,0),COLORRED;
STICKLINE(進,C,O,2,0),COLORRED;
N250:=250;
CURRBARSCOUNT:=DATACOUNT-BARPOS;
PT250:=HHVBARS(V,N250);
T250:IF(CURRBARSCOUNT<=N250,IF(PT250=0,C,REF(C,PT250)),DRAWNULL),COLORMAGENTA,LINETHICK2;
IF(CURRBARSCOUNT=PT250+1,T250*1.01,DRAWNULL),CIRCLEDOT,COLORFF0000,LINETHICK2;
DRAWTEXT(CURRBARSCOUNT=N250,T250,'250'),COLOR990000;
N120:=120;
PT120:=HHVBARS(V,N120);
T120:IF(CURRBARSCOUNT<=N120,IF(PT120=0,C,REF(C,PT120)),DRAWNULL),COLORAAAA00,LINETHICK2;
IF(CURRBARSCOUNT=PT120+1,T120,DRAWNULL),CIRCLEDOT,COLORFFFF00,LINETHICK2;
DRAWTEXT(CURRBARSCOUNT=N120,T120,'120'),COLORAAAA00;
N60:=60;
PT60:=HHVBARS(V,N60);
T60:IF(CURRBARSCOUNT<=N60,IF(PT60=0,C,REF(C,PT60)),DRAWNULL),COLOR00BB00,LINETHICK2;
IF(CURRBARSCOUNT=PT60+1,T60,DRAWNULL),CIRCLEDOT,COLOR00FF00,LINETHICK2;
DRAWTEXT(CURRBARSCOUNT=N60,T60,'60'),COLOR00BB00;
N30:=30;
PT30:=HHVBARS(V,N30);
T30:IF(CURRBARSCOUNT<=N30,IF(PT30=0,C,REF(C,PT30)),DRAWNULL),COLOR0000CC,LINETHICK2;
IF(CURRBARSCOUNT=PT30+1,T30,DRAWNULL),CIRCLEDOT,COLOR0000FF,LINETHICK2;
DRAWTEXT(CURRBARSCOUNT=N30,T30,'30'),COLOR0000CC;
N20:=20;
PT20:=HHVBARS(V,N20);
T20:IF(CURRBARSCOUNT<=N20,IF(PT20=0,C,REF(C,PT20)),DRAWNULL),COLORDD00DD,LINETHICK2;
IF(CURRBARSCOUNT=PT20+1,T20,DRAWNULL),CIRCLEDOT,COLORFF00FF,LINETHICK2;
DRAWTEXT(CURRBARSCOUNT=N20,T20,'20'),COLORDD00DD;
阻力:REFDATE(REF(HHV(H,22),1),DATE),POINTDOT,LINETHICK2;
底0:REFDATE(REF(LLV(L,22),1),DATE),POINTDOT,LINETHICK2; ?老師圖中圓圈處橫線,應該是直線 來源 程序化久久網
請老師改成博弈指標
MA(C,30);N00:=150;判斷高低:=3;
高0:=REF(HHV(H,N00),判斷高低);
近期頂:REFDATE(高0,DATE),COLORGREEN,LINETHICK3;
最頂:=REFDATE(近期頂,DATE),NODRAW;
出:=最頂=H AND ((C-L)<(O-C) OR (O-L)<(C-O)),NODRAW;
STICKLINE(出,C,O,3,0),COLORGREEN;
STICKLINE(出,C,O,2,0),COLORGREEN;
低0:=REF(LLV(L,N00),判斷高低);
近期底:REFDATE(低0,DATE),COLORRED,LINETHICK3;
最底:=REFDATE(近期底,DATE),NODRAW;
進:=最底=L AND ((C+L)<(O+C) OR (O+L)<(C+O)),NODRAW;
STICKLINE(進,H,L,3,0),COLORRED;
STICKLINE(進,C,O,2,0),COLORRED;
N250:=250;
PT250:=CONST(HHVBARS(V,N250));
T250:IF(CURRBARSCOUNT<=N250,CONST(IF(PT250=0,C,REF(C,PT250))),DRAWNULL),COLORMAGENTA,LINETHICK2;
IF(CURRBARSCOUNT=PT250+1,T250*1.01,DRAWNULL),CIRCLEDOT,COLORFF0000,LINETHICK2;
DRAWTEXT(CURRBARSCOUNT=N250,T250,'250'),COLOR990000;
N120:=120;
PT120:=CONST(HHVBARS(V,N120));
T120:IF(CURRBARSCOUNT<=N120,CONST(IF(PT120=0,C,REF(C,PT120))),DRAWNULL),COLORAAAA00,LINETHICK2;
IF(CURRBARSCOUNT=PT120+1,T120,DRAWNULL),CIRCLEDOT,COLORFFFF00,LINETHICK2;
DRAWTEXT(CURRBARSCOUNT=N120,T120,'120'),COLORAAAA00;
N60:=60;
PT60:=CONST(HHVBARS(V,N60));
T60:IF(CURRBARSCOUNT<=N60,CONST(IF(PT60=0,C,REF(C,PT60))),DRAWNULL),COLOR00BB00,LINETHICK2;
IF(CURRBARSCOUNT=PT60+1,T60,DRAWNULL),CIRCLEDOT,COLOR00FF00,LINETHICK2;
DRAWTEXT(CURRBARSCOUNT=N60,T60,'60'),COLOR00BB00;
N30:=30;
PT30:=CONST(HHVBARS(V,N30));
T30:IF(CURRBARSCOUNT<=N30,CONST(IF(PT30=0,C,REF(C,PT30))),DRAWNULL),COLOR0000CC,LINETHICK2;
IF(CURRBARSCOUNT=PT30+1,T30,DRAWNULL),CIRCLEDOT,COLOR0000FF,LINETHICK2;
DRAWTEXT(CURRBARSCOUNT=N30,T30,'30'),COLOR0000CC;
N20:=20;
PT20:=CONST(HHVBARS(V,N20));
T20:IF(CURRBARSCOUNT<=N20,CONST(IF(PT20=0,C,REF(C,PT20))),DRAWNULL),COLORDD00DD,LINETHICK2;
IF(CURRBARSCOUNT=PT20+1,T20,DRAWNULL),CIRCLEDOT,COLORFF00FF,LINETHICK2;
DRAWTEXT(CURRBARSCOUNT=N20,T20,'20'),COLORDD00DD;
阻力:REFDATE(REF(HHV(H,22),1),DATE),DOTLINE,LINETHICK2;
底0:REFDATE(REF(LLV(L,22),1),DATE),DOTLINE,LINETHICK2;
?
?來源:程序化99網( www.tumamayizhan.com )
博易技術人員: MA(C,30);N00:=150;判斷高低:=3;
高0:=REF(HHV(H,N00),判斷高低);
近期頂:REFDATE(高0,DATE),COLORGREEN,LINETHICK3;
最頂:=REFDATE(近期頂,DATE),NODRAW;
出:=最頂=H AND ((C-L)<(O-C) OR (O-L)<(C-O)),NODRAW;
STICKLINE(出,C,O,3,0),COLORGREEN;
STICKLINE(出,C,O,2,0),COLORGREEN;
低0:=REF(LLV(L,N00),判斷高低);
近期底:REFDATE(低0,DATE),COLORRED,LINETHICK3;
最底:=REFDATE(近期底,DATE),NODRAW;
進:=最底=L AND ((C+L)<(O+C) OR (O+L)<(C+O)),NODRAW;
STICKLINE(進,H,L,3,0),COLORRED;
STICKLINE(進,C,O,2,0),COLORRED;
N250:=250;
CURRBARSCOUNT:=DATACOUNT-BARPOS;
PT250:=HHVBARS(V,N250);
T250:IF(CURRBARSCOUNT<=N250,IF(PT250=0,C,REF(C,PT250)),DRAWNULL),COLORMAGENTA,LINETHICK2;
IF(CURRBARSCOUNT=PT250+1,T250*1.01,DRAWNULL),CIRCLEDOT,COLORFF0000,LINETHICK2;
DRAWTEXT(CURRBARSCOUNT=N250,T250,'250'),COLOR990000;
N120:=120;
PT120:=HHVBARS(V,N120);
T120:IF(CURRBARSCOUNT<=N120,IF(PT120=0,C,REF(C,PT120)),DRAWNULL),COLORAAAA00,LINETHICK2;
IF(CURRBARSCOUNT=PT120+1,T120,DRAWNULL),CIRCLEDOT,COLORFFFF00,LINETHICK2;
DRAWTEXT(CURRBARSCOUNT=N120,T120,'120'),COLORAAAA00;
N60:=60;
PT60:=HHVBARS(V,N60);
T60:IF(CURRBARSCOUNT<=N60,IF(PT60=0,C,REF(C,PT60)),DRAWNULL),COLOR00BB00,LINETHICK2;
IF(CURRBARSCOUNT=PT60+1,T60,DRAWNULL),CIRCLEDOT,COLOR00FF00,LINETHICK2;
DRAWTEXT(CURRBARSCOUNT=N60,T60,'60'),COLOR00BB00;
N30:=30;
PT30:=HHVBARS(V,N30);
T30:IF(CURRBARSCOUNT<=N30,IF(PT30=0,C,REF(C,PT30)),DRAWNULL),COLOR0000CC,LINETHICK2;
IF(CURRBARSCOUNT=PT30+1,T30,DRAWNULL),CIRCLEDOT,COLOR0000FF,LINETHICK2;
DRAWTEXT(CURRBARSCOUNT=N30,T30,'30'),COLOR0000CC;
N20:=20;
PT20:=HHVBARS(V,N20);
T20:IF(CURRBARSCOUNT<=N20,IF(PT20=0,C,REF(C,PT20)),DRAWNULL),COLORDD00DD,LINETHICK2;
IF(CURRBARSCOUNT=PT20+1,T20,DRAWNULL),CIRCLEDOT,COLORFF00FF,LINETHICK2;
DRAWTEXT(CURRBARSCOUNT=N20,T20,'20'),COLORDD00DD;
阻力:REFDATE(REF(HHV(H,22),1),DATE),POINTDOT,LINETHICK2;
底0:REFDATE(REF(LLV(L,22),1),DATE),POINTDOT,LINETHICK2; ?老師圖中圓圈處橫線,應該是直線 來源 程序化久久網
有思路,想編寫各種指標公式,交易模型,選股公式,還原公式的朋友
可聯系技術人員 QQ: 262069696 或微信號:cxh99cxh99 進行 有償收費 編寫!
(注:由于人數限制,QQ或微信請選擇方便的一個聯系我們就行,加好友時請簡單備注下您的需求,否則無法通過。謝謝您!)
相關文章
-
沒有相關內容