請老師把我這個(gè)源碼轉(zhuǎn)換成博易大師之用 [博易POBO]
咨詢內(nèi)容:
Z1:=STRCAT(HYBLOCK,' ');
Z2:=STRCAT(Z1,DYBLOCK);
Z3:=STRCAT(Z2,' ');
{DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(Z3,GNBLOCK)),COLORRED}{左上角顯示股票所屬板塊期貨無用};
金牛:(XMA(XMA(H,30),30)-XMA(XMA(L,30),30))*1+XMA(XMA(H,30),30),DOTLINE,COLORYELLOW;
金鉆趨勢:XMA(XMA(L,30),30)-(XMA(XMA(H,30),30)-XMA(XMA(L,30),30))*1,LINETHICK4,COLORRED;
金牛2:EMA(金鉆趨勢,30)COLORCYAN,LINETHICK2;
DRAWBAND(金鉆趨勢,RGB(60,0,0),金牛2,RGB(0,91,0));
DRAWKLINE(H,O,L,C);
STICKLINE(金鉆趨勢>LOW AND 金鉆趨勢<HIGH,金鉆趨勢,MIN(MIN(OPEN,CLOSE),金鉆趨勢),2,0),COLORYELLOW;
STICKLINE(金鉆趨勢>MIN(C,O) AND 金鉆趨勢<MAX(C,O),金鉆趨勢,MIN(OPEN,CLOSE),2,0),COLORYELLOW;
STICKLINE(金鉆趨勢>HIGH,OPEN,CLOSE,2,0),COLORYELLOW;
STICKLINE(金鉆趨勢>HIGH,HIGH,LOW,0,0),COLORYELLOW;
VAR23:=100*XMA(XMA((C-REF(C,1)),6),6)/XMA(XMA(ABS((C-REF(C,1))),6),6);
回調(diào)買:=LLV(VAR23,2)=LLV(VAR23,7) AND COUNT(VAR23<0,2) AND CROSS(VAR23,MA(VAR23,2));
XG:=金鉆趨勢>HIGH AND 回調(diào)買 AND L<=金鉆趨勢;
DRAWTEXT(XG,L,'▲買入'),COLORRED;
JJ:=(HIGH+LOW+CLOSE)/3;
QJ0:=VOL/IF(HIGH=LOW,4,HIGH-LOW);
QJ1:=IF(CAPITAL=0,QJ0*(JJ-MIN(CLOSE,OPEN)),QJ0*IF(HIGH=LOW,1,(MIN(OPEN,CLOSE)-LOW)));
QJ2:=IF(CAPITAL=0,QJ0*(MIN(OPEN,CLOSE)-LOW),QJ0*IF(HIGH=LOW,1,(JJ-MIN(CLOSE,OPEN))));
QJ3:=IF(CAPITAL=0,QJ0*(HIGH-MAX(OPEN,CLOSE)),QJ0*IF(HIGH=LOW,1,(HIGH-MAX(OPEN,CLOSE))));
QJ4:=IF(CAPITAL=0,QJ0*(MAX(CLOSE,OPEN)-JJ),QJ0*IF(HIGH=LOW,1,(MAX(CLOSE,OPEN)-JJ)));
DDX:=((QJ1+QJ2)-(QJ3+QJ4))/IF(CAPITAL=0,10000,10000),COLOR00AAAA,LINETHICK;
V2:=SMA(IF(C>=REF(C,1),DDX,-DDX/100),2,1);
V5:=SMA(V2*120/FROMOPEN*5,2,1);
V10:=SMA(V5,5,1);
V20:=SMA(V10,5,1);
DY:=CURRBARSCOUNT=1 AND C<REF(C,1);
DY2:=REF(V2,1)-DY;
XG2:=C>O AND DY2<0.02 AND MA(C,5)>MA(C,60) AND C/REF(C,1)>=1.02 AND H<金牛;
{DRAWTEXT(XG2,L,'▲抓牛'),COLORYELLOW;}
DRAWTEXT(XG2 AND L<金鉆趨勢,L,'↖金鉆起漲'),COLORMAGENTA;
{日:=120};昨前:=5;
高1:=REF(HHV(H,日),昨前);
低1:=REF(LLV(L,日),昨前);
H11:=高1-(高1-低1)*0.191;?
H21:=高1-(高1-低1)*0.382;?
H31:=高1-(高1-低1)*0.5;?
H41:=高1-(高1-低1)*0.618;?
H51:=高1-(高1-低1)*0.809;
頂:REFDATE(高1,DATE),LINETHICK3,COLORRED;
?一0.809:REFDATE(H11,DATE),COLORFFFF00};
{ 二0.618:REFDATE(H21,DATE),COLORMAGENTA};
?{三0.500:REFDATE(H31,DATE),COLORWHITE};
?{四0.382:REFDATE(H41,DATE),COLORGREEN};
?五0.191:REFDATE(H51,DATE),COLORYELLOW};
?低:REFDATE(低1,DATE), LINETHICK3,COLORRED;
金鉆趨勢:EMA(EMA(L,30),30)-(EMA(EMA(H,30),30)-EMA(EMA(L,30),30))*1,LINETHICK4,COLORRED;
金牛2:EMA(金鉆趨勢,30),COLORCYAN,LINETHICK2;
FILLRGN2(金鉆趨勢,金牛2,金鉆趨勢>金牛2,COLOR00003C,金鉆趨勢<金牛2,COLOR005B00);
DRAWKLINE(H,O,L,C);
STICKLINE(金鉆趨勢>LOWAND金鉆趨勢<HIGH,金鉆趨勢,MIN(MIN(OPEN,CLOSE),金鉆趨勢),2,0),COLORYELLOW;
STICKLINE(金鉆趨勢>MIN(C,O)AND金鉆趨勢<MAX(C,O),金鉆趨勢,MIN(OPEN,CLOSE),2,0),COLORYELLOW;
STICKLINE(金鉆趨勢>HIGH,OPEN,CLOSE,2,0),COLORYELLOW;
STICKLINE(金鉆趨勢>HIGH,HIGH,LOW,0,0),COLORYELLOW;
VAR23:=100*EMA(EMA((C-REF(C,1)),6),6)/EMA(EMA(ABS((C-REF(C,1))),6),6);
回調(diào)買:=LLV(VAR23,2)=LLV(VAR23,7)ANDCOUNT(VAR23<0,2)ANDCROSS(VAR23,MA(VAR23,2));
XG:=金鉆趨勢>HIGHAND回調(diào)買ANDL<=金鉆趨勢;
DRAWTEXT(XG,L,'▲買入'),COLORRED;
JJ:=(HIGH+LOW+CLOSE)/3;
QJ0:=VOL/IF(HIGH=LOW,4,HIGH-LOW);
QJ1:=IF(CAPITAL=0,QJ0*(JJ-MIN(CLOSE,OPEN)),QJ0*IF(HIGH=LOW,1,(MIN(OPEN,CLOSE)-LOW)));
QJ2:=IF(CAPITAL=0,QJ0*(MIN(OPEN,CLOSE)-LOW),QJ0*IF(HIGH=LOW,1,(JJ-MIN(CLOSE,OPEN))));
QJ3:=IF(CAPITAL=0,QJ0*(HIGH-MAX(OPEN,CLOSE)),QJ0*IF(HIGH=LOW,1,(HIGH-MAX(OPEN,CLOSE))));
QJ4:=IF(CAPITAL=0,QJ0*(MAX(CLOSE,OPEN)-JJ),QJ0*IF(HIGH=LOW,1,(MAX(CLOSE,OPEN)-JJ)));
DDX:=((QJ1+QJ2)-(QJ3+QJ4))/IF(CAPITAL=0,10000,10000),COLOR00AAAA,LINETHICK1;
V2:=SMA(IF(C>=REF(C,1),DDX,-DDX/100),2,1);
AA1:=REF(HOUR,1)=15ANDHOUR<>15;
AA2:=BARSLAST(AA1);
V5:=SMA(V2*120/AA2*5,2,1);
V10:=SMA(V5,5,1);
V20:=SMA(V10,5,1);
DY:=DATACOUNT-BARPOS=1ANDC<REF(C,1);
DY2:=REF(V2,1)-DY;
XG2:=C>OANDDY2<0.02ANDMA(C,5)>MA(C,60)ANDC/REF(C,1)>=1.02ANDH<金牛;
{DRAWTEXT(XG2,L,'▲抓牛'),COLORYELLOW;}
DRAWTEXT(XG2ANDL<金鉆趨勢,L,'↖金鉆起漲'),COLORMAGENTA;
日:=120;昨前:=5;
高1:=REF(HHV(H,日),昨前);
低1:=REF(LLV(L,日),昨前);
H11:=高1-(高1-低1)*0.191;?
H21:=高1-(高1-低1)*0.382;?
H31:=高1-(高1-低1)*0.5;?
H41:=高1-(高1-低1)*0.618;?
H51:=高1-(高1-低1)*0.809;
頂:REFDATE(高1,DATE),LINETHICK3,COLORRED;
?一0809:REFDATE(H11,DATE),COLORFFFF00;
?五0191:REFDATE(H51,DATE),COLORYELLOW;
?低:REFDATE(低1,DATE),LINETHICK3,COLORRED; 來源 程序化久久網(wǎng)
請老師把我這個(gè)源碼轉(zhuǎn)換成博易大師之用
{DRAWTEXT_FIX(1,0.88,5,0,'~☆~夏陽~☆~'),COLORBLUE};Z1:=STRCAT(HYBLOCK,' ');
Z2:=STRCAT(Z1,DYBLOCK);
Z3:=STRCAT(Z2,' ');
{DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(Z3,GNBLOCK)),COLORRED}{左上角顯示股票所屬板塊期貨無用};
金牛:(XMA(XMA(H,30),30)-XMA(XMA(L,30),30))*1+XMA(XMA(H,30),30),DOTLINE,COLORYELLOW;
金鉆趨勢:XMA(XMA(L,30),30)-(XMA(XMA(H,30),30)-XMA(XMA(L,30),30))*1,LINETHICK4,COLORRED;
金牛2:EMA(金鉆趨勢,30)COLORCYAN,LINETHICK2;
DRAWBAND(金鉆趨勢,RGB(60,0,0),金牛2,RGB(0,91,0));
DRAWKLINE(H,O,L,C);
STICKLINE(金鉆趨勢>LOW AND 金鉆趨勢<HIGH,金鉆趨勢,MIN(MIN(OPEN,CLOSE),金鉆趨勢),2,0),COLORYELLOW;
STICKLINE(金鉆趨勢>MIN(C,O) AND 金鉆趨勢<MAX(C,O),金鉆趨勢,MIN(OPEN,CLOSE),2,0),COLORYELLOW;
STICKLINE(金鉆趨勢>HIGH,OPEN,CLOSE,2,0),COLORYELLOW;
STICKLINE(金鉆趨勢>HIGH,HIGH,LOW,0,0),COLORYELLOW;
VAR23:=100*XMA(XMA((C-REF(C,1)),6),6)/XMA(XMA(ABS((C-REF(C,1))),6),6);
回調(diào)買:=LLV(VAR23,2)=LLV(VAR23,7) AND COUNT(VAR23<0,2) AND CROSS(VAR23,MA(VAR23,2));
XG:=金鉆趨勢>HIGH AND 回調(diào)買 AND L<=金鉆趨勢;
DRAWTEXT(XG,L,'▲買入'),COLORRED;
JJ:=(HIGH+LOW+CLOSE)/3;
QJ0:=VOL/IF(HIGH=LOW,4,HIGH-LOW);
QJ1:=IF(CAPITAL=0,QJ0*(JJ-MIN(CLOSE,OPEN)),QJ0*IF(HIGH=LOW,1,(MIN(OPEN,CLOSE)-LOW)));
QJ2:=IF(CAPITAL=0,QJ0*(MIN(OPEN,CLOSE)-LOW),QJ0*IF(HIGH=LOW,1,(JJ-MIN(CLOSE,OPEN))));
QJ3:=IF(CAPITAL=0,QJ0*(HIGH-MAX(OPEN,CLOSE)),QJ0*IF(HIGH=LOW,1,(HIGH-MAX(OPEN,CLOSE))));
QJ4:=IF(CAPITAL=0,QJ0*(MAX(CLOSE,OPEN)-JJ),QJ0*IF(HIGH=LOW,1,(MAX(CLOSE,OPEN)-JJ)));
DDX:=((QJ1+QJ2)-(QJ3+QJ4))/IF(CAPITAL=0,10000,10000),COLOR00AAAA,LINETHICK;
V2:=SMA(IF(C>=REF(C,1),DDX,-DDX/100),2,1);
V5:=SMA(V2*120/FROMOPEN*5,2,1);
V10:=SMA(V5,5,1);
V20:=SMA(V10,5,1);
DY:=CURRBARSCOUNT=1 AND C<REF(C,1);
DY2:=REF(V2,1)-DY;
XG2:=C>O AND DY2<0.02 AND MA(C,5)>MA(C,60) AND C/REF(C,1)>=1.02 AND H<金牛;
{DRAWTEXT(XG2,L,'▲抓牛'),COLORYELLOW;}
DRAWTEXT(XG2 AND L<金鉆趨勢,L,'↖金鉆起漲'),COLORMAGENTA;
{日:=120};昨前:=5;
高1:=REF(HHV(H,日),昨前);
低1:=REF(LLV(L,日),昨前);
H11:=高1-(高1-低1)*0.191;?
H21:=高1-(高1-低1)*0.382;?
H31:=高1-(高1-低1)*0.5;?
H41:=高1-(高1-低1)*0.618;?
H51:=高1-(高1-低1)*0.809;
頂:REFDATE(高1,DATE),LINETHICK3,COLORRED;
?一0.809:REFDATE(H11,DATE),COLORFFFF00};
{ 二0.618:REFDATE(H21,DATE),COLORMAGENTA};
?{三0.500:REFDATE(H31,DATE),COLORWHITE};
?{四0.382:REFDATE(H41,DATE),COLORGREEN};
?五0.191:REFDATE(H51,DATE),COLORYELLOW};
?低:REFDATE(低1,DATE), LINETHICK3,COLORRED;
?
?來源:程序化99網(wǎng)( m.kzuj.com.cn )
博易技術(shù)人員: 謝謝老師,請問老師還有這個(gè)語句?DRAWBAND(金鉆趨勢,RGB(60,0,0),金牛2,RGB(0,91,0));是加不進(jìn)去嗎? 金牛:(EMA(EMA(H,30),30)-EMA(EMA(L,30),30))*1+EMA(EMA(H,30),30),POINTDOT,COLORYELLOW;金鉆趨勢:EMA(EMA(L,30),30)-(EMA(EMA(H,30),30)-EMA(EMA(L,30),30))*1,LINETHICK4,COLORRED;
金牛2:EMA(金鉆趨勢,30),COLORCYAN,LINETHICK2;
FILLRGN2(金鉆趨勢,金牛2,金鉆趨勢>金牛2,COLOR00003C,金鉆趨勢<金牛2,COLOR005B00);
DRAWKLINE(H,O,L,C);
STICKLINE(金鉆趨勢>LOWAND金鉆趨勢<HIGH,金鉆趨勢,MIN(MIN(OPEN,CLOSE),金鉆趨勢),2,0),COLORYELLOW;
STICKLINE(金鉆趨勢>MIN(C,O)AND金鉆趨勢<MAX(C,O),金鉆趨勢,MIN(OPEN,CLOSE),2,0),COLORYELLOW;
STICKLINE(金鉆趨勢>HIGH,OPEN,CLOSE,2,0),COLORYELLOW;
STICKLINE(金鉆趨勢>HIGH,HIGH,LOW,0,0),COLORYELLOW;
VAR23:=100*EMA(EMA((C-REF(C,1)),6),6)/EMA(EMA(ABS((C-REF(C,1))),6),6);
回調(diào)買:=LLV(VAR23,2)=LLV(VAR23,7)ANDCOUNT(VAR23<0,2)ANDCROSS(VAR23,MA(VAR23,2));
XG:=金鉆趨勢>HIGHAND回調(diào)買ANDL<=金鉆趨勢;
DRAWTEXT(XG,L,'▲買入'),COLORRED;
JJ:=(HIGH+LOW+CLOSE)/3;
QJ0:=VOL/IF(HIGH=LOW,4,HIGH-LOW);
QJ1:=IF(CAPITAL=0,QJ0*(JJ-MIN(CLOSE,OPEN)),QJ0*IF(HIGH=LOW,1,(MIN(OPEN,CLOSE)-LOW)));
QJ2:=IF(CAPITAL=0,QJ0*(MIN(OPEN,CLOSE)-LOW),QJ0*IF(HIGH=LOW,1,(JJ-MIN(CLOSE,OPEN))));
QJ3:=IF(CAPITAL=0,QJ0*(HIGH-MAX(OPEN,CLOSE)),QJ0*IF(HIGH=LOW,1,(HIGH-MAX(OPEN,CLOSE))));
QJ4:=IF(CAPITAL=0,QJ0*(MAX(CLOSE,OPEN)-JJ),QJ0*IF(HIGH=LOW,1,(MAX(CLOSE,OPEN)-JJ)));
DDX:=((QJ1+QJ2)-(QJ3+QJ4))/IF(CAPITAL=0,10000,10000),COLOR00AAAA,LINETHICK1;
V2:=SMA(IF(C>=REF(C,1),DDX,-DDX/100),2,1);
AA1:=REF(HOUR,1)=15ANDHOUR<>15;
AA2:=BARSLAST(AA1);
V5:=SMA(V2*120/AA2*5,2,1);
V10:=SMA(V5,5,1);
V20:=SMA(V10,5,1);
DY:=DATACOUNT-BARPOS=1ANDC<REF(C,1);
DY2:=REF(V2,1)-DY;
XG2:=C>OANDDY2<0.02ANDMA(C,5)>MA(C,60)ANDC/REF(C,1)>=1.02ANDH<金牛;
{DRAWTEXT(XG2,L,'▲抓牛'),COLORYELLOW;}
DRAWTEXT(XG2ANDL<金鉆趨勢,L,'↖金鉆起漲'),COLORMAGENTA;
日:=120;昨前:=5;
高1:=REF(HHV(H,日),昨前);
低1:=REF(LLV(L,日),昨前);
H11:=高1-(高1-低1)*0.191;?
H21:=高1-(高1-低1)*0.382;?
H31:=高1-(高1-低1)*0.5;?
H41:=高1-(高1-低1)*0.618;?
H51:=高1-(高1-低1)*0.809;
頂:REFDATE(高1,DATE),LINETHICK3,COLORRED;
?一0809:REFDATE(H11,DATE),COLORFFFF00;
?五0191:REFDATE(H51,DATE),COLORYELLOW;
?低:REFDATE(低1,DATE),LINETHICK3,COLORRED; 來源 程序化久久網(wǎng)
有思路,想編寫各種指標(biāo)公式,交易模型,選股公式,還原公式的朋友
可聯(lián)系技術(shù)人員 QQ: 262069696 或微信號:cxh99cxh99 進(jìn)行 有償收費(fèi) 編寫!
(怎么收費(fèi),代編流程等詳情請點(diǎn)擊閱讀!)
(注:由于人數(shù)限制,QQ或微信請選擇方便的一個(gè)聯(lián)系我們就行,加好友時(shí)請簡單備注下您的需求,否則無法通過。謝謝您!)
相關(guān)文章
-
沒有相關(guān)內(nèi)容