你好，能幫我把這個通達信的分時圖指標改成博易大師的嗎，謝謝 [博易POBO]
咨詢內容：
低:=REF(LLV(L,日),昨前);
H1:=高-(高-低)*1;H2:=高-(高-低)*0.91;
H3:=高-(高-低)*0.85;H4:=高-(高-低)*0.809;
H5:=高-(高-低)*0.777;H6:=高-(高-低)*0.707;
H7:=高-(高-低)*0.666;H8:=高-(高-低)*0.618;
H9:=高-(高-低)*0.563;H10:=高-(高-低)*0.5;
H11:=高-(高-低)*0.424;
H12:=高-(高-低)*0.382;
H13:=高-(高-低)*0.309;
H14:=高-(高-低)*0.25;
H15:=高-(高-低)*0.191;
H16:=高-(高-低)*0.1375;
H17:=高-(高-低)*0.0807;
一:REFDATE(H2,DATE),COLORLIBLUE,DOTLINE;
二:=REFDATE(H3,DATE),COLORYELLOW;
三:=REFDATE(H4,DATE),COLORLIBLUE;
四:=REFDATE(H5,DATE),COLORLIRED;
五:=REFDATE(H6,DATE),COLORYELLOW;
六:=REFDATE(H7,DATE),COLORLIBLUE;
七:REFDATE(H8,DATE),,DOTLINE,COLORGRAY;
八:=REFDATE(H9,DATE),COLORYELLOW;
九:=REFDATE(H10,DATE),COLORLIBLUE;
十:=REFDATE(H11,DATE),COLORLIRED;
十一:=REFDATE(H12,DATE),COLORYELLOW;
十二:=REFDATE(H13,DATE),COLORLIBLUE;
十三:=REFDATE(H14,DATE),COLORLIRED;
十四:=REFDATE(H15,DATE),COLORYELLOW;
十五:=REFDATE(H16,DATE),COLORLIBLUE;
十六:REFDATE(H17,DATE),COLORYELLOW,DOTLINE;
底:REFDATE(H1,DATE),COLORLIGREEN;頂:
REFDATE(高,DATE),COLORLIRED;
DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
買:=CROSS(C,一);
賣:=CROSS(十六,C);
DRAWICON(買,底,1);
DRAWICON(賣,頂,2);
N:=3;FF:=(C-REF(C,N))/REF(C,N);
AH1:=MAX(DYNAINFO(3),DYNAINFO(5));
AL1:=MIN(DYNAINFO(3),DYNAINFO(6));
AP1:=AH1-AL1;阻力:=AL1+AP1*7/8;
支撐:=AL1+AP1*0.5/8;
現價:=CLOSE;DRAWTEXT(LONGCROSS(支撐,現價,2),C*0.999,'買'),COLORCYAN;
DRAWTEXT(LONGCROSS(現價,阻力,2),C*1.004,' 賣'),COLORMAGENTA;
DRAWICON(LONGCROSS(現價,阻力,2),C*1.002,15);
TT:=BARSCOUNT(CLOSE);CC:=CLOSE;
均線:=IF(BETWEEN(C/(SUM(AMOUNT,0)/SUM(VOL*100,0)),1.05,0.95)=0,MA(C,0),(SUM(AMOUNT,0)/SUM(VOL*100,0)));
上均:=(均線*1.007 );
下均:=(均線/1.005 );
時長:=IF(HOUR>=10 AND HOUR<15,1,0);
漲幅:=(CLOSE>DYNAINFO(3))>1.02;
跌幅:=(CLOSE/DYNAINFO(3))<0.98;
橫盤:=((HHV(CLOSE,BARSCOUNT(CLOSE))-LLV(CLOSE,BARSCOUNT(CLOSE)))/CLOSE)<0.03;
YY:=SMA(VOL,30,1);
放量:=SUM(VOL,6)>REF(MA(VOL,30),1)*0.03;
漲跌幅:=漲幅 OR 跌幅;
橫漲:=橫盤 AND 放量 AND (C>上均);
DRAWTEXT(FILTER(橫漲,50),均線*0.995,' 突破'),COLORLIRED;
DRAWICON(FILTER(橫漲,50),均線*0.995,26);MA30:=EMA(CLOSE,30);
A2:=DYNAINFO(3);
A3:=IF(C=A2,C*1.005,IF(C<A2,C*1.005,C*0.995));
A5:=IF(C=A2,CON2STR(0,2),IF(C>A2,CON2STR((C-A2)/A2*100,2),CON2STR((A2-C)/A2*100,2)));
A6:=IF(ZTPRICE(DYNAINFO(3),0.1)=C OR DTPRICE(DYNAINFO(3),0.1)=C,STRCAT(CON2STR(C,2),'★ '),IF(C=REF(C,1),STRCAT(CON2STR(C,2),'◆ '),IF(C>REF(C,1),STRCAT(CON2STR(C,2),'▲ '),STRCAT(CON2STR(C,2),' '))));
A4:=STRCAT(STRCAT(' ',A6),STRCAT(A5,'%'));
分時最高價:=REF(HHV(HIGH,240),1);
分時最低價:=REF(LLV(LOW,240),1);
A7:=IF(DYNAINFO(3)>C,0.9973,1.0027);
DRAWTEXT(CURRBARSCOUNT=240,C*A7,'');
DRAWTEXT(ISLASTBAR AND C>A2 ,C*1,A4),COLOR3333FF;
DRAWTEXT(ISLASTBAR AND C=A2 ,C*1,A4),COLORWHITE;
DRAWTEXT(ISLASTBAR AND C<A2 ,C*1,A4),COLOR42C800;
DRAWTEXT_FIX(CURRBARSCOUNT=120,0.4,0.01,0,'【公Z號：程序化指標 】'),COLORGREEN;
WA1:=V*C/100;WA2:=SUM((IF(((WA1/8>20) AND (CLOSE>(REF(CLOSE,1)))),WA1,0)),0);
WA3:=SUM((IF(((WA1/8>20) AND (CLOSE<(REF(CLOSE,1)))),WA1,0)),0);
WA4:=SUM((IF(((WA1/8<20) AND (CLOSE>(REF(CLOSE,1)))),WA1,0)),0);
WA5:=SUM((IF(((WA1/8<20) AND (CLOSE<(REF(CLOSE,1)))),WA1,0)),0);
機構買盤:=(WA2);機構賣盤:=(WA3);散戶買盤:=(WA4);散戶賣盤:=(WA5);
DRAWTEXT_FIX(1,0.730,1-0.088,0,STRCAT(STRCAT('【機構買盤】',CON2STR(機構買盤,2)),' 萬')),COLORRED;
DRAWTEXT_FIX(1,0.730,1-0.001,0,STRCAT(STRCAT('【機構賣盤】',CON2STR(機構賣盤,2)),' 萬')),COLORGREEN;
DRAWTEXT_FIX(1,0.860,1-0.088,0,STRCAT(STRCAT('【散戶買盤】',CON2STR(散戶買盤,2)),' 萬')),COLORMAGENTA;
DRAWTEXT_FIX(1,0.860,1-0.001,0,STRCAT(STRCAT('【散戶賣盤】',CON2STR(散戶賣盤,2)),' 萬')),COLORCYAN;
QA1:=SUM(IF(CLOSE>REF(CLOSE,1),VOL/CAPITAL*100,IF(CLOSE<REF(CLOSE,1),-VOL/CAPITAL*100,0)),0);
成交額:=V*C/100,NODRAW;{萬元}QA4:=SUM((IF(((成交額/8<20) AND (CLOSE>(REF(CLOSE,1)))),成交額,0)),0);
QA2:=SUM((IF(((成交額/8>20) AND (CLOSE>(REF(CLOSE,1)))),成交額,0)),0);
QA3:=SUM((IF(((成交額/8>20) AND (CLOSE<(REF(CLOSE,1)))),成交額,0)),0);
QA5:=SUM((IF(((成交額/8<20) AND (CLOSE<(REF(CLOSE,1)))),成交額,0)),0);
QA6:=((QA2+QA3)+QA4)+QA5;QA7:=IF((ISLASTBAR),((100*QA2)/QA6),0);
QA8:=IF((ISLASTBAR),((100*QA3)/QA6),0);
QA9:=IF((ISLASTBAR),((100*QA4)/QA6),0);
QA10:=IF((ISLASTBAR),((100*QA5)/QA6),0);
機構買:=(QA2);機構賣:=(QA3);
機構進出:=機構買-機構賣;DD1:=1;
AAA1:=STRCAT(STRCAT('機構買入 ',CON2STR((100*QA2)/QA6,0)),'%');
AAA2:=STRCAT(STRCAT('機構賣出 ',CON2STR((100*QA3)/QA6,0)),'%');
AAA0:=STRCAT(STRCAT('機構總買入 ',CON2STR((100*(QA2-QA3))/A6,0)),'%');
AAA3:=STRCAT(STRCAT('散戶買入 ',CON2STR((100*QA4)/QA6,0)),'%');
AAA4:=STRCAT(STRCAT('散戶賣出 ',CON2STR((100*QA5)/QA6,0)),'%');
AAA5:=STRCAT(STRCAT('散戶總買入 ',CON2STR((100*(QA4-QA5))/QA6,0)),'%');
DRAWTEXT_FIX(DD1=1,0.001,0.150,0,AAA1),COLORRED;DRAWTEXT_FIX(DD1=1,0.001,0.200,0,AAA2),COLORGREEN;
DRAWTEXT_FIX(DD1=1,0.001,0.255,0,AAA3),COLORMAGENTA;DRAWTEXT_FIX(DD1=1,0.001,0.305,0,AAA4),COLORCYAN;
DRAWTEXT_FIX(DD1=1,0.001,0.360,0,AAA0),COLORYELLOW;DRAWTEXT_FIX(DD1=1,0.001,0.410,0,AAA5),COLORWHITE;
你好，能幫我把這個通達信的分時圖指標改成博易大師的嗎，謝謝
日:=500;昨前:=60;高:=REF(HHV(H,日),昨前);低:=REF(LLV(L,日),昨前);
H1:=高-(高-低)*1;H2:=高-(高-低)*0.91;
H3:=高-(高-低)*0.85;H4:=高-(高-低)*0.809;
H5:=高-(高-低)*0.777;H6:=高-(高-低)*0.707;
H7:=高-(高-低)*0.666;H8:=高-(高-低)*0.618;
H9:=高-(高-低)*0.563;H10:=高-(高-低)*0.5;
H11:=高-(高-低)*0.424;
H12:=高-(高-低)*0.382;
H13:=高-(高-低)*0.309;
H14:=高-(高-低)*0.25;
H15:=高-(高-低)*0.191;
H16:=高-(高-低)*0.1375;
H17:=高-(高-低)*0.0807;
一:REFDATE(H2,DATE),COLORLIBLUE,DOTLINE;
二:=REFDATE(H3,DATE),COLORYELLOW;
三:=REFDATE(H4,DATE),COLORLIBLUE;
四:=REFDATE(H5,DATE),COLORLIRED;
五:=REFDATE(H6,DATE),COLORYELLOW;
六:=REFDATE(H7,DATE),COLORLIBLUE;
七:REFDATE(H8,DATE),,DOTLINE,COLORGRAY;
八:=REFDATE(H9,DATE),COLORYELLOW;
九:=REFDATE(H10,DATE),COLORLIBLUE;
十:=REFDATE(H11,DATE),COLORLIRED;
十一:=REFDATE(H12,DATE),COLORYELLOW;
十二:=REFDATE(H13,DATE),COLORLIBLUE;
十三:=REFDATE(H14,DATE),COLORLIRED;
十四:=REFDATE(H15,DATE),COLORYELLOW;
十五:=REFDATE(H16,DATE),COLORLIBLUE;
十六:REFDATE(H17,DATE),COLORYELLOW,DOTLINE;
底:REFDATE(H1,DATE),COLORLIGREEN;頂:
REFDATE(高,DATE),COLORLIRED;
DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
買:=CROSS(C,一);
賣:=CROSS(十六,C);
DRAWICON(買,底,1);
DRAWICON(賣,頂,2);
N:=3;FF:=(C-REF(C,N))/REF(C,N);
AH1:=MAX(DYNAINFO(3),DYNAINFO(5));
AL1:=MIN(DYNAINFO(3),DYNAINFO(6));
AP1:=AH1-AL1;阻力:=AL1+AP1*7/8;
支撐:=AL1+AP1*0.5/8;
現價:=CLOSE;DRAWTEXT(LONGCROSS(支撐,現價,2),C*0.999,'買'),COLORCYAN;
DRAWTEXT(LONGCROSS(現價,阻力,2),C*1.004,' 賣'),COLORMAGENTA;
DRAWICON(LONGCROSS(現價,阻力,2),C*1.002,15);
TT:=BARSCOUNT(CLOSE);CC:=CLOSE;
均線:=IF(BETWEEN(C/(SUM(AMOUNT,0)/SUM(VOL*100,0)),1.05,0.95)=0,MA(C,0),(SUM(AMOUNT,0)/SUM(VOL*100,0)));
上均:=(均線*1.007 );
下均:=(均線/1.005 );
時長:=IF(HOUR>=10 AND HOUR<15,1,0);
漲幅:=(CLOSE>DYNAINFO(3))>1.02;
跌幅:=(CLOSE/DYNAINFO(3))<0.98;
橫盤:=((HHV(CLOSE,BARSCOUNT(CLOSE))-LLV(CLOSE,BARSCOUNT(CLOSE)))/CLOSE)<0.03;
YY:=SMA(VOL,30,1);
放量:=SUM(VOL,6)>REF(MA(VOL,30),1)*0.03;
漲跌幅:=漲幅 OR 跌幅;
橫漲:=橫盤 AND 放量 AND (C>上均);
DRAWTEXT(FILTER(橫漲,50),均線*0.995,' 突破'),COLORLIRED;
DRAWICON(FILTER(橫漲,50),均線*0.995,26);MA30:=EMA(CLOSE,30);
A2:=DYNAINFO(3);
A3:=IF(C=A2,C*1.005,IF(C<A2,C*1.005,C*0.995));
A5:=IF(C=A2,CON2STR(0,2),IF(C>A2,CON2STR((C-A2)/A2*100,2),CON2STR((A2-C)/A2*100,2)));
A6:=IF(ZTPRICE(DYNAINFO(3),0.1)=C OR DTPRICE(DYNAINFO(3),0.1)=C,STRCAT(CON2STR(C,2),'★ '),IF(C=REF(C,1),STRCAT(CON2STR(C,2),'◆ '),IF(C>REF(C,1),STRCAT(CON2STR(C,2),'▲ '),STRCAT(CON2STR(C,2),' '))));
A4:=STRCAT(STRCAT(' ',A6),STRCAT(A5,'%'));
分時最高價:=REF(HHV(HIGH,240),1);
分時最低價:=REF(LLV(LOW,240),1);
A7:=IF(DYNAINFO(3)>C,0.9973,1.0027);
DRAWTEXT(CURRBARSCOUNT=240,C*A7,'');
DRAWTEXT(ISLASTBAR AND C>A2 ,C*1,A4),COLOR3333FF;
DRAWTEXT(ISLASTBAR AND C=A2 ,C*1,A4),COLORWHITE;
DRAWTEXT(ISLASTBAR AND C<A2 ,C*1,A4),COLOR42C800;
DRAWTEXT_FIX(CURRBARSCOUNT=120,0.4,0.01,0,'【公Z號：程序化指標 】'),COLORGREEN;
WA1:=V*C/100;WA2:=SUM((IF(((WA1/8>20) AND (CLOSE>(REF(CLOSE,1)))),WA1,0)),0);
WA3:=SUM((IF(((WA1/8>20) AND (CLOSE<(REF(CLOSE,1)))),WA1,0)),0);
WA4:=SUM((IF(((WA1/8<20) AND (CLOSE>(REF(CLOSE,1)))),WA1,0)),0);
WA5:=SUM((IF(((WA1/8<20) AND (CLOSE<(REF(CLOSE,1)))),WA1,0)),0);
機構買盤:=(WA2);機構賣盤:=(WA3);散戶買盤:=(WA4);散戶賣盤:=(WA5);
DRAWTEXT_FIX(1,0.730,1-0.088,0,STRCAT(STRCAT('【機構買盤】',CON2STR(機構買盤,2)),' 萬')),COLORRED;
DRAWTEXT_FIX(1,0.730,1-0.001,0,STRCAT(STRCAT('【機構賣盤】',CON2STR(機構賣盤,2)),' 萬')),COLORGREEN;
DRAWTEXT_FIX(1,0.860,1-0.088,0,STRCAT(STRCAT('【散戶買盤】',CON2STR(散戶買盤,2)),' 萬')),COLORMAGENTA;
DRAWTEXT_FIX(1,0.860,1-0.001,0,STRCAT(STRCAT('【散戶賣盤】',CON2STR(散戶賣盤,2)),' 萬')),COLORCYAN;
QA1:=SUM(IF(CLOSE>REF(CLOSE,1),VOL/CAPITAL*100,IF(CLOSE<REF(CLOSE,1),-VOL/CAPITAL*100,0)),0);
成交額:=V*C/100,NODRAW;{萬元}QA4:=SUM((IF(((成交額/8<20) AND (CLOSE>(REF(CLOSE,1)))),成交額,0)),0);
QA2:=SUM((IF(((成交額/8>20) AND (CLOSE>(REF(CLOSE,1)))),成交額,0)),0);
QA3:=SUM((IF(((成交額/8>20) AND (CLOSE<(REF(CLOSE,1)))),成交額,0)),0);
QA5:=SUM((IF(((成交額/8<20) AND (CLOSE<(REF(CLOSE,1)))),成交額,0)),0);
QA6:=((QA2+QA3)+QA4)+QA5;QA7:=IF((ISLASTBAR),((100*QA2)/QA6),0);
QA8:=IF((ISLASTBAR),((100*QA3)/QA6),0);
QA9:=IF((ISLASTBAR),((100*QA4)/QA6),0);
QA10:=IF((ISLASTBAR),((100*QA5)/QA6),0);
機構買:=(QA2);機構賣:=(QA3);
機構進出:=機構買-機構賣;DD1:=1;
AAA1:=STRCAT(STRCAT('機構買入 ',CON2STR((100*QA2)/QA6,0)),'%');
AAA2:=STRCAT(STRCAT('機構賣出 ',CON2STR((100*QA3)/QA6,0)),'%');
AAA0:=STRCAT(STRCAT('機構總買入 ',CON2STR((100*(QA2-QA3))/A6,0)),'%');
AAA3:=STRCAT(STRCAT('散戶買入 ',CON2STR((100*QA4)/QA6,0)),'%');
AAA4:=STRCAT(STRCAT('散戶賣出 ',CON2STR((100*QA5)/QA6,0)),'%');
AAA5:=STRCAT(STRCAT('散戶總買入 ',CON2STR((100*(QA4-QA5))/QA6,0)),'%');
DRAWTEXT_FIX(DD1=1,0.001,0.150,0,AAA1),COLORRED;DRAWTEXT_FIX(DD1=1,0.001,0.200,0,AAA2),COLORGREEN;
DRAWTEXT_FIX(DD1=1,0.001,0.255,0,AAA3),COLORMAGENTA;DRAWTEXT_FIX(DD1=1,0.001,0.305,0,AAA4),COLORCYAN;
DRAWTEXT_FIX(DD1=1,0.001,0.360,0,AAA0),COLORYELLOW;DRAWTEXT_FIX(DD1=1,0.001,0.410,0,AAA5),COLORWHITE;
?
?來源:程序化99網（ www.kzuj.com.cn ）
博易技術人員： 您好，很多函數不匹配，無法修改。 來源 程序化久久網
有思路，想編寫各種指標公式，交易模型，選股公式，還原公式的朋友
可聯系技術人員 QQ: 262069696 或微信號：cxh99cxh99 進行 有償收費 編寫！
(注：由于人數限制，QQ或微信請選擇方便的一個聯系我們就行，加好友時請簡單備注下您的需求，否則無法通過。謝謝您！)
相關文章
-
沒有相關內容