通達(dá)信指標(biāo)改成博弈大師的，麻煩老師改一下 [博易POBO]
咨詢內(nèi)容：
LONG:=26;
M:=9;
最大虧損:=5000;
DIF:=EMA(CLOSE,SHORT) - EMA(CLOSE,LONG);
DEA:=EMA(DIF,M);
MACD:=2*(DIF-DEA),STICK;
多空分界:MA(C,50),LINETHICK1,COLORCYAN,POINTDOT;
{IF(多空分界>REF(多空分界,1),多空分界,DRAWNULL), COLORRED,LINETHICK1;}
TOZ:=MA(C,50),COLORYELLOW,DOTLINE;
TMACD:=MA(C,50)+(MACD.MACD)*3;
HD0:=CROSS(DIF,DEA);
金收:=REF(L,BARSLAST(HD0)),COLORYELLOW,DOTLINE;
DRAWNUMBER(ISLASTBAR,金收,金收),COLORCYAN;
LD0:=CROSS(DEA,DIF);
死收:REF(H,BARSLAST(LD0)),COLOR00FF00,DOTLINE;
JCSC:=(M-1)/(M+1)*DEA/(1-2/(M+1));{計(jì)算出金叉死叉時(shí)的DIFF值}
DD:=(MACD/2+(DEA*(M-1)/(M+1)))/(1-2/(M+1));{計(jì)算出明日MACD=MACD時(shí)的DIFF值}
DIF拐頭價(jià):(DIF*(SHORT+1)*(LONG+1)-(LONG+1)*(SHORT-1)*EMA(C,SHORT)+(SHORT+1)*(LONG-1)*EMA(C,LONG))/(2*((LONG+1)-(SHORT+1)))COLORYELLOW,LINETHICK1;
柱變向價(jià):=(DD*(SHORT+1)*(LONG+1)-(LONG+1)*(SHORT-1)*EMA(C,SHORT)+(SHORT+1)*(LONG-1)*EMA(C,LONG))/(2*((LONG+1)-(SHORT+1))),COLORWHITE,LINETHICK1;
DRAWBAND(DIF拐頭價(jià),RGB(250,250,0),DIF拐頭價(jià),RGB(0,0,0));
DRAWBAND(IF(柱變向價(jià)>DIF拐頭價(jià),柱變向價(jià),DRAWNULL),RGB(250,0,0),柱變向價(jià),RGB(0,0,0));
黃銖消失見頂:=IF(柱變向價(jià)>=DIF拐頭價(jià),DIF拐頭價(jià),DRAWNULL),COLORYELLOW,CIRCLEDOT,LINETHICK1;
金叉:=IF(柱變向價(jià)>=DIF拐頭價(jià),多空分界,DRAWNULL),COLORYELLOW,CIRCLEDOT,LINETHICK1;
金死叉價(jià):(JCSC*(SHORT+1)*(LONG+1)-(LONG+1)*(SHORT-1)*EMA(C,SHORT)+(SHORT+1)*(LONG-1)*EMA(C,LONG))/(2*((LONG+1)-(SHORT+1)))COLORCYAN,NODRAW;
MACD走平時(shí)股價(jià):=(((M+1)*(2*REF(DEA,1)*(M-1)+REF(MACD,1)*(M+1)))/(2*(M+1)*(M-1))+(REF(EMA(C,26),1)*(26-1)/(26+1))-(REF(EMA(C,12),1)*(12-1)/(12+1)))*(12+1)*(26+1)/(2*(26-12));
{DRAWNUMBER(DIF>DEA,TOZ,BARSLAST(CROSS(DIF,DEA))+1),COLORRED;
DRAWNUMBER(DIF<DEA,TOZ,BARSLAST(CROSS(DEA,DIF))+1),COLORGREEN;}
ES:=REF(EMA(C,26),1);
EP:=REF(EMA(C,12),1);
DI:=REF(DIF,1);
DIF穿零價(jià):((12+1)*(26-1)*ES-(26+1)*(12-1)*EP)/(2*(26+1)-2*(12+1)),NODRAW,COLORWHITE;
{DRAWTEXT_FIX(1,0.6,0.94,0,STRCAT('DIF拐頭價(jià): ',CON2STR(DIF拐頭價(jià),2))),COLORYELLOW;
DRAWTEXT_FIX(1,0.7,0.94,0,STRCAT('柱變向價(jià): ',CON2STR(柱變向價(jià),2))),COLORRED;
DRAWTEXT_FIX(1,0.5,0.94,0,STRCAT('DIF穿零價(jià): ',CON2STR(DIF穿零價(jià),2))),COLORRED;}
DRAWTEXT_FIX(1,0.7,0.01,0,STRCAT('金死叉價(jià): ',CON2STR(金死叉價(jià),2))),COLORCYAN;
ZJ:=DIF>DEA;
HY:=DIF<DEA;
XG1:=ZJ AND C>死收 AND C>多空分界;
STICKLINE(XG1,L,H,0,0),COLOR0000AA;?
STICKLINE(XG1,CLOSE,OPEN,3,0),COLOR000055;
STICKLINE(XG1,CLOSE,OPEN,2.8,0),COLOR000066;
STICKLINE(XG1,CLOSE,OPEN,2.5,0),COLOR000077;
STICKLINE(XG1,CLOSE,OPEN,2.2,0),COLOR000088;
STICKLINE(XG1,CLOSE,OPEN,1.7,0),COLOR000099;
STICKLINE(XG1,CLOSE,OPEN,1.2,0),COLOR0000AA;
STICKLINE(XG1,CLOSE,OPEN,0.7,0),COLOR0000CC;
STICKLINE(XG1,CLOSE,OPEN,0.2,0),COLOR0000FF;
W1:= C<死收 AND ZJ;
STICKLINE(W1,H,L,0,1),COLORFF55FF;
STICKLINE(W1,C,O,3.2,0),COLOR880088;
STICKLINE(W1,C,O,2.6,0),COLORAA00AA;
STICKLINE(W1,C,O,1.9,0),COLORCC00CC;
STICKLINE(W1,C,O,1.1,0),COLOREE00EE;
STICKLINE(W1,C,O,0.3,0),COLORFF44FF;
W2:= C<多空分界 AND ZJ;
STICKLINE(W2,H,L,0,1),COLORFF55FF;
STICKLINE(W2,C,O,3.2,0),COLOR880088;
STICKLINE(W2,C,O,2.6,0),COLORAA00AA;
STICKLINE(W2,C,O,1.9,0),COLORCC00CC;
STICKLINE(W2,C,O,1.1,0),COLOREE00EE;
STICKLINE(W2,C,O,0.3,0),COLORFF44FF;
XG2:=C<DIF拐頭價(jià) AND HY;
STICKLINE(XG2,H,L,0,0),COLOR00FF00;
STICKLINE(XG2,C,O,3,0),COLOR009900;
STICKLINE(XG2,C,O,2,0),COLOR00BB00;
STICKLINE(XG2,C,O,1,0),COLOR00DD00;
STICKLINE(XG2,C,O,0.3,0),COLOR00FF00;
XG3:=C>DIF拐頭價(jià) AND HY;
STICKLINE(XG3,H,L,0,0),COLOR00FF00;
STICKLINE(XG3,C,O,3,0),COLOR009900;
STICKLINE(XG3,C,O,2,0),COLOR00BB00;
STICKLINE(XG3,C,O,1,0),COLOR00DD00;
STICKLINE(XG3,C,O,0.3,0),COLOR00FF00;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:SMA(RSV,3,1),COLORWHITE,LINETHICK1,NODRAW;
D:SMA(K,3,1),COLORYELLOW,LINETHICK1,NODRAW;
LC:=REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
IF(COUNT(RSI1>80,3)=3,H,DRAWNULL),POINTDOT,COLORGREEN,LINETHICK8;
IF(COUNT(RSI1<20,3)=3,L,DRAWNULL),POINTDOT,COLORYELLOW,LINETHICK8;?
IF(COUNT(K>80,3)=3,H,DRAWNULL),POINTDOT,COLORGREEN,LINETHICK5;
IF(COUNT(K<20,3)=3,L,DRAWNULL),POINTDOT,COLORFF33FF,LINETHICK5;?
今日空間:=C-REF(金死叉價(jià),1)COLORGREEN,NODRAW;
尾盤空間:C-金死叉價(jià),NODRAW;
{DRAWTEXT_FIX(1,0.4,0.09,0,STRCAT('今日浮動(dòng)空間: ',CON2STR(今日空間,2))),COLORCYAN;}
DRAWTEXT_FIX(1,0.6,0.09,0,STRCAT('尾盤5分鐘差值: ',CON2STR(尾盤空間,2))),COLORCYAN;
A0:=最大虧損;
今日開倉(cāng):=A0/今日空間,NODRAW;
尾盤開倉(cāng):A0/尾盤空間,NODRAW;
DRAWTEXT_FIX(ISLASTBAR,0.0,0.09,0.0,'資金管理:單筆最大損失確定的情況下交易更從容')COLORRED;
DRAWTEXT_FIX(1,0.7,0.09,0,STRCAT('尾盤最大開倉(cāng)股數(shù): ',CON2STR(尾盤開倉(cāng),2))),COLORMAGENTA;
<!-- 咨詢內(nèi)容：
通達(dá)信指標(biāo)改成博弈大師的，麻煩老師改一下
SHORT:=12;LONG:=26;
M:=9;
最大虧損:=5000;
DIF:=EMA(CLOSE,SHORT) - EMA(CLOSE,LONG);
DEA:=EMA(DIF,M);
MACD:=2*(DIF-DEA),STICK;
多空分界:MA(C,50),LINETHICK1,COLORCYAN,POINTDOT;
{IF(多空分界>REF(多空分界,1),多空分界,DRAWNULL), COLORRED,LINETHICK1;}
TOZ:=MA(C,50),COLORYELLOW,DOTLINE;
TMACD:=MA(C,50)+(MACD.MACD)*3;
HD0:=CROSS(DIF,DEA);
金收:=REF(L,BARSLAST(HD0)),COLORYELLOW,DOTLINE;
DRAWNUMBER(ISLASTBAR,金收,金收),COLORCYAN;
LD0:=CROSS(DEA,DIF);
死收:REF(H,BARSLAST(LD0)),COLOR00FF00,DOTLINE;
JCSC:=(M-1)/(M+1)*DEA/(1-2/(M+1));{計(jì)算出金叉死叉時(shí)的DIFF值}
DD:=(MACD/2+(DEA*(M-1)/(M+1)))/(1-2/(M+1));{計(jì)算出明日MACD=MACD時(shí)的DIFF值}
DIF拐頭價(jià):(DIF*(SHORT+1)*(LONG+1)-(LONG+1)*(SHORT-1)*EMA(C,SHORT)+(SHORT+1)*(LONG-1)*EMA(C,LONG))/(2*((LONG+1)-(SHORT+1)))COLORYELLOW,LINETHICK1;
柱變向價(jià):=(DD*(SHORT+1)*(LONG+1)-(LONG+1)*(SHORT-1)*EMA(C,SHORT)+(SHORT+1)*(LONG-1)*EMA(C,LONG))/(2*((LONG+1)-(SHORT+1))),COLORWHITE,LINETHICK1;
DRAWBAND(DIF拐頭價(jià),RGB(250,250,0),DIF拐頭價(jià),RGB(0,0,0));
DRAWBAND(IF(柱變向價(jià)>DIF拐頭價(jià),柱變向價(jià),DRAWNULL),RGB(250,0,0),柱變向價(jià),RGB(0,0,0));
黃銖消失見頂:=IF(柱變向價(jià)>=DIF拐頭價(jià),DIF拐頭價(jià),DRAWNULL),COLORYELLOW,CIRCLEDOT,LINETHICK1;
金叉:=IF(柱變向價(jià)>=DIF拐頭價(jià),多空分界,DRAWNULL),COLORYELLOW,CIRCLEDOT,LINETHICK1;
金死叉價(jià):(JCSC*(SHORT+1)*(LONG+1)-(LONG+1)*(SHORT-1)*EMA(C,SHORT)+(SHORT+1)*(LONG-1)*EMA(C,LONG))/(2*((LONG+1)-(SHORT+1)))COLORCYAN,NODRAW;
MACD走平時(shí)股價(jià):=(((M+1)*(2*REF(DEA,1)*(M-1)+REF(MACD,1)*(M+1)))/(2*(M+1)*(M-1))+(REF(EMA(C,26),1)*(26-1)/(26+1))-(REF(EMA(C,12),1)*(12-1)/(12+1)))*(12+1)*(26+1)/(2*(26-12));
{DRAWNUMBER(DIF>DEA,TOZ,BARSLAST(CROSS(DIF,DEA))+1),COLORRED;
DRAWNUMBER(DIF<DEA,TOZ,BARSLAST(CROSS(DEA,DIF))+1),COLORGREEN;}
ES:=REF(EMA(C,26),1);
EP:=REF(EMA(C,12),1);
DI:=REF(DIF,1);
DIF穿零價(jià):((12+1)*(26-1)*ES-(26+1)*(12-1)*EP)/(2*(26+1)-2*(12+1)),NODRAW,COLORWHITE;
{DRAWTEXT_FIX(1,0.6,0.94,0,STRCAT('DIF拐頭價(jià): ',CON2STR(DIF拐頭價(jià),2))),COLORYELLOW;
DRAWTEXT_FIX(1,0.7,0.94,0,STRCAT('柱變向價(jià): ',CON2STR(柱變向價(jià),2))),COLORRED;
DRAWTEXT_FIX(1,0.5,0.94,0,STRCAT('DIF穿零價(jià): ',CON2STR(DIF穿零價(jià),2))),COLORRED;}
DRAWTEXT_FIX(1,0.7,0.01,0,STRCAT('金死叉價(jià): ',CON2STR(金死叉價(jià),2))),COLORCYAN;
ZJ:=DIF>DEA;
HY:=DIF<DEA;
XG1:=ZJ AND C>死收 AND C>多空分界;
STICKLINE(XG1,L,H,0,0),COLOR0000AA;?
STICKLINE(XG1,CLOSE,OPEN,3,0),COLOR000055;
STICKLINE(XG1,CLOSE,OPEN,2.8,0),COLOR000066;
STICKLINE(XG1,CLOSE,OPEN,2.5,0),COLOR000077;
STICKLINE(XG1,CLOSE,OPEN,2.2,0),COLOR000088;
STICKLINE(XG1,CLOSE,OPEN,1.7,0),COLOR000099;
STICKLINE(XG1,CLOSE,OPEN,1.2,0),COLOR0000AA;
STICKLINE(XG1,CLOSE,OPEN,0.7,0),COLOR0000CC;
STICKLINE(XG1,CLOSE,OPEN,0.2,0),COLOR0000FF;
W1:= C<死收 AND ZJ;
STICKLINE(W1,H,L,0,1),COLORFF55FF;
STICKLINE(W1,C,O,3.2,0),COLOR880088;
STICKLINE(W1,C,O,2.6,0),COLORAA00AA;
STICKLINE(W1,C,O,1.9,0),COLORCC00CC;
STICKLINE(W1,C,O,1.1,0),COLOREE00EE;
STICKLINE(W1,C,O,0.3,0),COLORFF44FF;
W2:= C<多空分界 AND ZJ;
STICKLINE(W2,H,L,0,1),COLORFF55FF;
STICKLINE(W2,C,O,3.2,0),COLOR880088;
STICKLINE(W2,C,O,2.6,0),COLORAA00AA;
STICKLINE(W2,C,O,1.9,0),COLORCC00CC;
STICKLINE(W2,C,O,1.1,0),COLOREE00EE;
STICKLINE(W2,C,O,0.3,0),COLORFF44FF;
XG2:=C<DIF拐頭價(jià) AND HY;
STICKLINE(XG2,H,L,0,0),COLOR00FF00;
STICKLINE(XG2,C,O,3,0),COLOR009900;
STICKLINE(XG2,C,O,2,0),COLOR00BB00;
STICKLINE(XG2,C,O,1,0),COLOR00DD00;
STICKLINE(XG2,C,O,0.3,0),COLOR00FF00;
XG3:=C>DIF拐頭價(jià) AND HY;
STICKLINE(XG3,H,L,0,0),COLOR00FF00;
STICKLINE(XG3,C,O,3,0),COLOR009900;
STICKLINE(XG3,C,O,2,0),COLOR00BB00;
STICKLINE(XG3,C,O,1,0),COLOR00DD00;
STICKLINE(XG3,C,O,0.3,0),COLOR00FF00;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:SMA(RSV,3,1),COLORWHITE,LINETHICK1,NODRAW;
D:SMA(K,3,1),COLORYELLOW,LINETHICK1,NODRAW;
LC:=REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
IF(COUNT(RSI1>80,3)=3,H,DRAWNULL),POINTDOT,COLORGREEN,LINETHICK8;
IF(COUNT(RSI1<20,3)=3,L,DRAWNULL),POINTDOT,COLORYELLOW,LINETHICK8;?
IF(COUNT(K>80,3)=3,H,DRAWNULL),POINTDOT,COLORGREEN,LINETHICK5;
IF(COUNT(K<20,3)=3,L,DRAWNULL),POINTDOT,COLORFF33FF,LINETHICK5;?
今日空間:=C-REF(金死叉價(jià),1)COLORGREEN,NODRAW;
尾盤空間:C-金死叉價(jià),NODRAW;
{DRAWTEXT_FIX(1,0.4,0.09,0,STRCAT('今日浮動(dòng)空間: ',CON2STR(今日空間,2))),COLORCYAN;}
DRAWTEXT_FIX(1,0.6,0.09,0,STRCAT('尾盤5分鐘差值: ',CON2STR(尾盤空間,2))),COLORCYAN;
A0:=最大虧損;
今日開倉(cāng):=A0/今日空間,NODRAW;
尾盤開倉(cāng):A0/尾盤空間,NODRAW;
DRAWTEXT_FIX(ISLASTBAR,0.0,0.09,0.0,'資金管理:單筆最大損失確定的情況下交易更從容')COLORRED;
DRAWTEXT_FIX(1,0.7,0.09,0,STRCAT('尾盤最大開倉(cāng)股數(shù): ',CON2STR(尾盤開倉(cāng),2))),COLORMAGENTA;
<!-- 咨詢內(nèi)容：附件 :
-->?
?來(lái)源:程序化99網(wǎng)（ m.kzuj.com.cn ）
博易技術(shù)人員： 麻煩老師改一下 來(lái)源 程序化久久網(wǎng)
有思路，想編寫各種指標(biāo)公式，交易模型，選股公式，還原公式的朋友
可聯(lián)系技術(shù)人員 QQ: 262069696 或微信號(hào)：cxh99cxh99 進(jìn)行 有償收費(fèi) 編寫！
（怎么收費(fèi)，代編流程等詳情請(qǐng)點(diǎn)擊閱讀！）
(注：由于人數(shù)限制，QQ或微信請(qǐng)選擇方便的一個(gè)聯(lián)系我們就行，加好友時(shí)請(qǐng)簡(jiǎn)單備注下您的需求，否則無(wú)法通過(guò)。謝謝您！)
相關(guān)文章
-
沒有相關(guān)內(nèi)容
會(huì)員登錄/注冊(cè)