咨詢內容：
麻煩老師幫忙改成博易大師模式，非常感謝！
M:=10;
SHORT:=12;
LONG:=26;
DIF:=(EMA(CLOSE,12) - EMA(CLOSE,26)),COLORSTICK;
DEA:=EMA(DIF,9);
MACD:=(2 * (DIF - DEA)),COLORSTICK;
STICKLINE1((DIF>0),DIF,0,2,-1),COLORRED;
STICKLINE1((DIF<0),DIF,0,2,-1),COLORGREEN;
J:=DIF;
STICKLINE1(J>REF(J,1),HHV(J,3),LLV(J,3),0,0),COLORRED;
STICKLINE1(J>REF(J,1),J,REF(J,1),3,0),COLORRED;
STICKLINE1(J>REF(J,1),J,REF(J,1),2,0),COLORRED;
STICKLINE1(J>REF(J,1),J,REF(J,1),1,0),COLORRED;
STICKLINE1(J<REF(J,1),HHV(J,3),LLV(J,3),0,0),COLORCYAN;
STICKLINE1(J<REF(J,1),J,REF(J,1),3,0),COLORCYAN;
STICKLINE1(J<REF(J,1),J,REF(J,1),2,0),COLORCYAN;
STICKLINE1(J<REF(J,1),J,REF(J,1),1,0),COLORCYAN;
STICKLINE1(CROSS(J,0),J,REF(J,1),3,0),COLORMAGENTA;
STICKLINE1(CROSS(0,J),J,REF(J,1),3,0),COLORYELLOW;
JCSC:=(M-1)/(M+1)*DEA/(1-2/(M+1));
{計算出金叉死叉時的DIFF值}
DD:=(MACD/2+(DEA*(M-1)/(M+1)))/(1-2/(M+1));
{計算出明日MACD=MACD時的DIFF值}
DIF拐頭價:=(DIF*(SHORT+1)*(LONG+1)-(LONG+1)*(SHORT-1)*EMA(C,SHORT)+(SHORT+1)*(LONG-1)*EMA(C,LONG))/(2*((LONG+1)-(SHORT+1))),COLORCYAN,LINETHICK3;
柱變向價:=(DD*(SHORT+1)*(LONG+1)-(LONG+1)*(SHORT-1)*EMA(C,SHORT)+(SHORT+1)*(LONG-1)*EMA(C,LONG))/(2*((LONG+1)-(SHORT+1))),COLORGREEN;
黃銖消失見頂:=IF(柱變向價>=DIF拐頭價,DEA/2,NULL),COLORMAGENTA,CIRCLEDOT,LINETHICK1;
//股息率:FINANCE(45),COLORRED,NODRAW;
每股收益年:=GETPRICE1('季每股收益');
//凈資產:=FINANCE(34);
//年ROE:FINANCE(33)/FINANCE(34),COLORRED,NODRAW;
//PE:=DYNAINFO(39),COLORRED,NODRAW;
//PB:REFX1(C/ GETPRICE2('每股凈資產'),9999),COLOREE3AB2,NODRAW;
//投資回報率:年ROE/PB*100,COLOR0099FF,NODRAW;
回本時間:C/每股收益年,NODRAW;
//毛利:(1-FINANCE(21)/FINANCE(20))*100,COLORCYAN,NODRAW;
//{毛利太小的股票，我的看法經營已經偏離投資價值}
//資產負債率:FINANCE(9),COLORRED,NODRAW;
//現金流:FINANCE(26)/100000000,COLORRED,NODRAW;
DIFF:=(EMA(CLOSE,12) - EMA(CLOSE,26)),DOT;
交叉價格:=351/28*(EMA(DIFF,9)-11/13*EMA(C,12)+25/27*EMA(C,26)),COLORBLUE,NODRAW;
//DRAWTEXT_FIX(1,0.5,1,0,STRCAT('交叉價格: ',CON2STR(交叉價格,2))),COLORGREEN;
//DRAWTEXT_FIX(1,0.6,0.94,0,STRCAT('拐點價格:? ',CON2STR(DIF拐頭價,2))),COLORYELLOW;
//DRAWTEXT_FIX(1,0.0,0.0,0,'守住一個級別 直到下零軸，0上死叉碰0軸反彈不過新高再死叉走人'),COLORFF00FF;
{柱變與交叉臨界}
開盤價格:=O,COLORYELLOW,NODRAW;
收盤價格:=C,COLORYELLOW,NODRAW;
最高價格:=H,COLORYELLOW,NODRAW;
M:=10;
SHORT:=12;
LONG:=26;
DIF:=(EMA(CLOSE,12) - EMA(CLOSE,26)),COLORSTICK;
DEA:=EMA(DIF,9);
MACD:=(2 * (DIF - DEA)),COLORSTICK;
?
?
STICKLINE1((DIF>0),DIF,0,2,-1),COLORRED;
STICKLINE1((DIF<0),DIF,0,2,-1),COLORGREEN;
J:=DIF;
STICKLINE1(J>REF(J,1),HHV(J,3),LLV(J,3),0,0),COLORRED;
STICKLINE1(J>REF(J,1),J,REF(J,1),3,0),COLORRED;
STICKLINE1(J>REF(J,1),J,REF(J,1),2,0),COLORRED;
STICKLINE1(J>REF(J,1),J,REF(J,1),1,0),COLORRED;
STICKLINE1(J<REF(J,1),HHV(J,3),LLV(J,3),0,0),COLORCYAN;
STICKLINE1(J<REF(J,1),J,REF(J,1),3,0),COLORCYAN;
STICKLINE1(J<REF(J,1),J,REF(J,1),2,0),COLORCYAN;
STICKLINE1(J<REF(J,1),J,REF(J,1),1,0),COLORCYAN;
STICKLINE1(CROSS(J,0),J,REF(J,1),3,0),COLORMAGENTA;
STICKLINE1(CROSS(0,J),J,REF(J,1),3,0),COLORYELLOW;
JCSC:=(M-1)/(M+1)*DEA/(1-2/(M+1));
{計算出金叉死叉時的DIFF值}
DD:=(MACD/2+(DEA*(M-1)/(M+1)))/(1-2/(M+1));
{計算出明日MACD=MACD時的DIFF值}
DIF拐頭價:=(DIF*(SHORT+1)*(LONG+1)-(LONG+1)*(SHORT-1)*EMA(C,SHORT)+(SHORT+1)*(LONG-1)*EMA(C,LONG))/(2*((LONG+1)-(SHORT+1))),COLORCYAN,LINETHICK3;
柱變向價:=(DD*(SHORT+1)*(LONG+1)-(LONG+1)*(SHORT-1)*EMA(C,SHORT)+(SHORT+1)*(LONG-1)*EMA(C,LONG))/(2*((LONG+1)-(SHORT+1))),COLORGREEN;
黃銖消失見頂:=IF(柱變向價>=DIF拐頭價,DEA/2,NULL),COLORMAGENTA,CIRCLEDOT,LINETHICK1;
//股息率:FINANCE(45),COLORRED,NODRAW;
?
?
每股收益年:=GETPRICE1('季每股收益');
?
?
//凈資產:=FINANCE(34);
//年ROE:FINANCE(33)/FINANCE(34),COLORRED,NODRAW;
//PE:=DYNAINFO(39),COLORRED,NODRAW;
//PB:REFX1(C/ GETPRICE2('每股凈資產'),9999),COLOREE3AB2,NODRAW;
//投資回報率:年ROE/PB*100,COLOR0099FF,NODRAW;
回本時間:C/每股收益年,NODRAW;
//毛利:(1-FINANCE(21)/FINANCE(20))*100,COLORCYAN,NODRAW;
//{毛利太小的股票，我的看法經營已經偏離投資價值}
//資產負債率:FINANCE(9),COLORRED,NODRAW;
//現金流:FINANCE(26)/100000000,COLORRED,NODRAW;
?
?
DIFF:=(EMA(CLOSE,12) - EMA(CLOSE,26)),DOT;
交叉價格:=351/28*(EMA(DIFF,9)-11/13*EMA(C,12)+25/27*EMA(C,26)),COLORBLUE,NODRAW;
//DRAWTEXT_FIX(1,0.5,1,0,STRCAT('交叉價格: ',CON2STR(交叉價格,2))),COLORGREEN;
//DRAWTEXT_FIX(1,0.6,0.94,0,STRCAT('拐點價格:? ',CON2STR(DIF拐頭價,2))),COLORYELLOW;
?
?
//DRAWTEXT_FIX(1,0.0,0.0,0,'守住一個級別 直到下零軸，0上死叉碰0軸反彈不過新高再死叉走人'),COLORFF00FF;
{柱變與交叉臨界}
開盤價格:=O,COLORYELLOW,NODRAW;
收盤價格:=C,COLORYELLOW,NODRAW;
最高價格:=H,COLORYELLOW,NODRAW;
最低價格:=L,COLORYELLOW,NODRAW;
振幅:=(H-L)/REF(C,1)*100,COLORYELLOW,NODRAW;
柱變臨界:REF((EMA(CLOSE,12)*1134-EMA(CLOSE,26)*910-DEA*702)/224,1),COLORMAGENTA,NODRAW;
交叉臨界:351/28*(EMA(REF(DIFF,1),9)-11/13*EMA(REF(C,1),12)+25/27*EMA(REF(C,1),26)),COLORMAGENTA,NODRAW;
明日柱變臨界:(EMA(CLOSE,12)*1134-EMA(CLOSE,26)*910-DEA*702)/224,COLORRED,NODRAW;
明日交叉臨界:351/28*(EMA(DIFF,9)-11/13*EMA(C,12)+25/27*EMA(C,26)),COLORRED,NODRAW;
ES:=REF(EMA(C,26),1);
EP:=REF(EMA(C,12),1);
DI:=REF(DIFF,1);DIF拐點價:((12-1)*EP/(12+1)-(26-1)*ES/(26+1)-DI)*(26+1)*(12+1)/(2*(12+1)-2*(26+1)),COLORYELLOW,NODRAW; 最M:=10;M:=10;
SHORT:=12;
LONG:=26;
DIF:=(EMA(CLOSE,12) - EMA(CLOSE,26)),COLORSTICK;
DEA:=EMA(DIF,9);
MACD:=(2 * (DIF - DEA)),COLORSTICK;
STICKLINE1((DIF>0),DIF,0,2,-1),COLORRED;
STICKLINE1((DIF<0),DIF,0,2,-1),COLORGREEN;
J:=DIF;
STICKLINE1(J>REF(J,1),HHV(J,3),LLV(J,3),0,0),COLORRED;
STICKLINE1(J>REF(J,1),J,REF(J,1),3,0),COLORRED;
STICKLINE1(J>REF(J,1),J,REF(J,1),2,0),COLORRED;
STICKLINE1(J>REF(J,1),J,REF(J,1),1,0),COLORRED;
STICKLINE1(J<REF(J,1),HHV(J,3),LLV(J,3),0,0),COLORCYAN;
STICKLINE1(J<REF(J,1),J,REF(J,1),3,0),COLORCYAN;
STICKLINE1(J<REF(J,1),J,REF(J,1),2,0),COLORCYAN;
STICKLINE1(J<REF(J,1),J,REF(J,1),1,0),COLORCYAN;
STICKLINE1(CROSS(J,0),J,REF(J,1),3,0),COLORMAGENTA;
STICKLINE1(CROSS(0,J),J,REF(J,1),3,0),COLORYELLOW;
JCSC:=(M-1)/(M+1)*DEA/(1-2/(M+1));
{計算出金叉死叉時的DIFF值}
DD:=(MACD/2+(DEA*(M-1)/(M+1)))/(1-2/(M+1));
{計算出明日MACD=MACD時的DIFF值}
DIF拐頭價:=(DIF*(SHORT+1)*(LONG+1)-(LONG+1)*(SHORT-1)*EMA(C,SHORT)+(SHORT+1)*(LONG-1)*EMA(C,LONG))/(2*((LONG+1)-(SHORT+1))),COLORCYAN,LINETHICK3;
柱變向價:=(DD*(SHORT+1)*(LONG+1)-(LONG+1)*(SHORT-1)*EMA(C,SHORT)+(SHORT+1)*(LONG-1)*EMA(C,LONG))/(2*((LONG+1)-(SHORT+1))),COLORGREEN;
黃銖消失見頂:=IF(柱變向價>=DIF拐頭價,DEA/2,NULL),COLORMAGENTA,CIRCLEDOT,LINETHICK1;
//股息率:FINANCE(45),COLORRED,NODRAW;
每股收益年:=GETPRICE1('季每股收益');
//凈資產:=FINANCE(34);
//年ROE:FINANCE(33)/FINANCE(34),COLORRED,NODRAW;
//PE:=DYNAINFO(39),COLORRED,NODRAW;
//PB:REFX1(C/ GETPRICE2('每股凈資產'),9999),COLOREE3AB2,NODRAW;
//投資回報率:年ROE/PB*100,COLOR0099FF,NODRAW;
回本時間:C/每股收益年,NODRAW;
//毛利:(1-FINANCE(21)/FINANCE(20))*100,COLORCYAN,NODRAW;
//{毛利太小的股票，我的看法經營已經偏離投資價值}
//資產負債率:FINANCE(9),COLORRED,NODRAW;
//現金流:FINANCE(26)/100000000,COLORRED,NODRAW;
DIFF:=(EMA(CLOSE,12) - EMA(CLOSE,26)),DOT;
交叉價格:=351/28*(EMA(DIFF,9)-11/13*EMA(C,12)+25/27*EMA(C,26)),COLORBLUE,NODRAW;
//DRAWTEXT_FIX(1,0.5,1,0,STRCAT('交叉價格: ',CON2STR(交叉價格,2))),COLORGREEN;
//DRAWTEXT_FIX(1,0.6,0.94,0,STRCAT('拐點價格:? ',CON2STR(DIF拐頭價,2))),COLORYELLOW;
//DRAWTEXT_FIX(1,0.0,0.0,0,'守住一個級別 直到下零軸，0上死叉碰0軸反彈不過新高再死叉走人'),COLORFF00FF;
{柱變與交叉臨界}
開盤價格:=O,COLORYELLOW,NODRAW;
收盤價格:=C,COLORYELLOW,NODRAW;
最高價格:=H,COLORYELLOW,NODRAW;
最低價格:=L,COLORYELLOW,NODRAW;
振幅:=(H-L)/REF(C,1)*100,COLORYELLOW,NODRAW;
柱變臨界:REF((EMA(CLOSE,12)*1134-EMA(CLOSE,26)*910-DEA*702)/224,1),COLORMAGENTA,NODRAW;
交叉臨界:351/28*(EMA(REF(DIFF,1),9)-11/13*EMA(REF(C,1),12)+25/27*EMA(REF(C,1),26)),COLORMAGENTA,NODRAW;
明日柱變臨界:(EMA(CLOSE,12)*1134-EMA(CLOSE,26)*910-DEA*702)/224,COLORRED,NODRAW;
明日交叉臨界:351/28*(EMA(DIFF,9)-11/13*EMA(C,12)+25/27*EMA(C,26)),COLORRED,NODRAW;
ES:=REF(EMA(C,26),1);
EP:=REF(EMA(C,12),1);
DI:=REF(DIFF,1);
DIF拐點價:((12-1)*EP/(12+1)-(26-1)*ES/(26+1)-DI)*(26+1)*(12+1)/(2*(12+1)-2*(26+1)),COLORYELLOW,NODRAW;?
SHORT:=12;
LONG:=26;
DIF:=(EMA(CLOSE,12) - EMA(CLOSE,26)),COLORSTICK;
DEA:=EMA(DIF,9);
MACD:=(2 * (DIF - DEA)),COLORSTICK;
?
?
STICKLINE1((DIF>0),DIF,0,2,-1),COLORRED;
STICKLINE1((DIF<0),DIF,0,2,-1),COLORGREEN;
J:=DIF;
STICKLINE1(J>REF(J,1),HHV(J,3),LLV(J,3),0,0),COLORRED;
STICKLINE1(J>REF(J,1),J,REF(J,1),3,0),COLORRED;
STICKLINE1(J>REF(J,1),J,REF(J,1),2,0),COLORRED;
STICKLINE1(J>REF(J,1),J,REF(J,1),1,0),COLORRED;
STICKLINE1(J<REF(J,1),HHV(J,3),LLV(J,3),0,0),COLORCYAN;
STICKLINE1(J<REF(J,1),J,REF(J,1),3,0),COLORCYAN;
STICKLINE1(J<REF(J,1),J,REF(J,1),2,0),COLORCYAN;
STICKLINE1(J<REF(J,1),J,REF(J,1),1,0),COLORCYAN;
STICKLINE1(CROSS(J,0),J,REF(J,1),3,0),COLORMAGENTA;
STICKLINE1(CROSS(0,J),J,REF(J,1),3,0),COLORYELLOW;
JCSC:=(M-1)/(M+1)*DEA/(1-2/(M+1));
{計算出金叉死叉時的DIFF值}
DD:=(MACD/2+(DEA*(M-1)/(M+1)))/(1-2/(M+1));
{計算出明日MACD=MACD時的DIFF值}
DIF拐頭價:=(DIF*(SHORT+1)*(LONG+1)-(LONG+1)*(SHORT-1)*EMA(C,SHORT)+(SHORT+1)*(LONG-1)*EMA(C,LONG))/(2*((LONG+1)-(SHORT+1))),COLORCYAN,LINETHICK3;
柱變向價:=(DD*(SHORT+1)*(LONG+1)-(LONG+1)*(SHORT-1)*EMA(C,SHORT)+(SHORT+1)*(LONG-1)*EMA(C,LONG))/(2*((LONG+1)-(SHORT+1))),COLORGREEN;
黃銖消失見頂:=IF(柱變向價>=DIF拐頭價,DEA/2,NULL),COLORMAGENTA,CIRCLEDOT,LINETHICK1;
//股息率:FINANCE(45),COLORRED,NODRAW;
?
?
每股收益年:=GETPRICE1('季每股收益');
?
?
//凈資產:=FINANCE(34);
//年ROE:FINANCE(33)/FINANCE(34),COLORRED,NODRAW;
//PE:=DYNAINFO(39),COLORRED,NODRAW;
//PB:REFX1(C/ GETPRICE2('每股凈資產'),9999),COLOREE3AB2,NODRAW;
//投資回報率:年ROE/PB*100,COLOR0099FF,NODRAW;
回本時間:C/每股收益年,NODRAW;
//毛利:(1-FINANCE(21)/FINANCE(20))*100,COLORCYAN,NODRAW;
//{毛利太小的股票，我的看法經營已經偏離投資價值}
//資產負債率:FINANCE(9),COLORRED,NODRAW;
//現金流:FINANCE(26)/100000000,COLORRED,NODRAW;
?
?
DIFF:=(EMA(CLOSE,12) - EMA(CLOSE,26)),DOT;
交叉價格:=351/28*(EMA(DIFF,9)-11/13*EMA(C,12)+25/27*EMA(C,26)),COLORBLUE,NODRAW;
//DRAWTEXT_FIX(1,0.5,1,0,STRCAT('交叉價格: ',CON2STR(交叉價格,2))),COLORGREEN;
//DRAWTEXT_FIX(1,0.6,0.94,0,STRCAT('拐點價格:? ',CON2STR(DIF拐頭價,2))),COLORYELLOW;
?
?
//DRAWTEXT_FIX(1,0.0,0.0,0,'守住一個級別 直到下零軸，0上死叉碰0軸反彈不過新高再死叉走人'),COLORFF00FF;
{柱變與交叉臨界}
開盤價格:=O,COLORYELLOW,NODRAW;
收盤價格:=C,COLORYELLOW,NODRAW;
最高價格:=H,COLORYELLOW,NODRAW;
最低價格:=L,COLORYELLOW,NODRAW;
振幅:=(H-L)/REF(C,1)*100,COLORYELLOW,NODRAW;
柱變臨界:REF((EMA(CLOSE,12)*1134-EMA(CLOSE,26)*910-DEA*702)/224,1),COLORMAGENTA,NODRAW;
交叉臨界:351/28*(EMA(REF(DIFF,1),9)-11/13*EMA(REF(C,1),12)+25/27*EMA(REF(C,1),26)),COLORMAGENTA,NODRAW;
明日柱變臨界:(EMA(CLOSE,12)*1134-EMA(CLOSE,26)*910-DEA*702)/224,COLORRED,NODRAW;
明日交叉臨界:351/28*(EMA(DIFF,9)-11/13*EMA(C,12)+25/27*EMA(C,26)),COLORRED,NODRAW;
ES:=REF(EMA(C,26),1);
EP:=REF(EMA(C,12),1);
DI:=REF(DIFF,1);DIF拐點價:((12-1)*EP/(12+1)-(26-1)*ES/(26+1)-DI)*(26+1)*(12+1)/(2*(12+1)-2*(26+1)),COLORYELLOW,NODRAW; 低價格:=L,COLORYELLOW,NODRAW;
振幅:=(H-L)/REF(C,1)*100,COLORYELLOW,NODRAW;
柱變臨界:REF((EMA(CLOSE,12)*1134-EMA(CLOSE,26)*910-DEA*702)/224,1),COLORMAGENTA,NODRAW;
交叉臨界:351/28*(EMA(REF(DIFF,1),9)-11/13*EMA(REF(C,1),12)+25/27*EMA(REF(C,1),26)),COLORMAGENTA,NODRAW;
明日柱變臨界:(EMA(CLOSE,12)*1134-EMA(CLOSE,26)*910-DEA*702)/224,COLORRED,NODRAW;
明日交叉臨界:351/28*(EMA(DIFF,9)-11/13*EMA(C,12)+25/27*EMA(C,26)),COLORRED,NODRAW;
ES:=REF(EMA(C,26),1);
EP:=REF(EMA(C,12),1);
DI:=REF(DIFF,1);
DIF拐點價:((12-1)*EP/(12+1)-(26-1)*ES/(26+1)-DI)*(26+1)*(12+1)/(2*(12+1)-2*(26+1)),COLORYELLOW,NODRAW;?
?
?來源:程序化99網（ www.tumamayizhan.com ）
博易技術人員：
M:=10;
SHORT:=12;
LONG:=26;
DIF:=(EMA(CLOSE,12) - EMA(CLOSE,26)),COLORSTICK;
DEA:=EMA(DIF,9);
MACD:=(2 * (DIF - DEA)),COLORSTICK;
STICKLINE((DIF>0),DIF,0,2,1),COLORRED;
STICKLINE((DIF<0),DIF,0,2,1),COLORGREEN;
J:=DIF;
STICKLINE(J>REF(J,1),HHV(J,3),LLV(J,3),0,0),COLORRED;
STICKLINE(J>REF(J,1),J,REF(J,1),3,0),COLORRED;
STICKLINE(J>REF(J,1),J,REF(J,1),2,0),COLORRED;
STICKLINE(J>REF(J,1),J,REF(J,1),1,0),COLORRED;
STICKLINE(J<REF(J,1),HHV(J,3),LLV(J,3),0,0),COLORCYAN;
STICKLINE(J<REF(J,1),J,REF(J,1),3,0),COLORCYAN;
STICKLINE(J<REF(J,1),J,REF(J,1),2,0),COLORCYAN;
STICKLINE(J<REF(J,1),J,REF(J,1),1,0),COLORCYAN;
STICKLINE(CROSS(J,0),J,REF(J,1),3,0),COLORMAGENTA;
STICKLINE(CROSS(0,J),J,REF(J,1),3,0),COLORYELLOW;
JCSC:=(M-1)/(M+1)*DEA/(1-2/(M+1));
{計算出金叉死叉時的DIFF值}
DD:=(MACD/2+(DEA*(M-1)/(M+1)))/(1-2/(M+1));
{計算出明日MACD=MACD時的DIFF值}
DIF拐頭價:=(DIF*(SHORT+1)*(LONG+1)-(LONG+1)*(SHORT-1)*EMA(C,SHORT)+(SHORT+1)*(LONG-1)*EMA(C,LONG))/(2*((LONG+1)-(SHORT+1))),COLORCYAN,LINETHICK3;
柱變向價:=(DD*(SHORT+1)*(LONG+1)-(LONG+1)*(SHORT-1)*EMA(C,SHORT)+(SHORT+1)*(LONG-1)*EMA(C,LONG))/(2*((LONG+1)-(SHORT+1))),COLORGREEN;
黃銖消失見頂:=IF(柱變向價>=DIF拐頭價,DEA/2,DRAWNULL),COLORMAGENTA,CIRCLEDOT,LINETHICK1;
//股息率:FINANCE(45),COLORRED,NODRAW;
//凈資產:=FINANCE(34);
//年ROE:FINANCE(33)/FINANCE(34),COLORRED,NODRAW;
//PE:=DYNAINFO(39),COLORRED,NODRAW;
//PB:REFX1(C/ GETPRICE2('每股凈資產'),9999),COLOREE3AB2,NODRAW;
//投資回報率:年ROE/PB*100,COLOR0099FF,NODRAW;
//毛利:(1-FINANCE(21)/FINANCE(20))*100,COLORCYAN,NODRAW;
//{毛利太小的股票，我的看法經營已經偏離投資價值}
//資產負債率:FINANCE(9),COLORRED,NODRAW;
//現金流:FINANCE(26)/100000000,COLORRED,NODRAW;
DIFF:=(EMA(CLOSE,12) - EMA(CLOSE,26)),POINTDOT;
交叉價格:=351/28*(EMA(DIFF,9)-11/13*EMA(C,12)+25/27*EMA(C,26)),COLORBLUE,NODRAW;
//DRAWTEXT_FIX(1,0.5,1,0,STRCAT('交叉價格: ',CON2STR(交叉價格,2))),COLORGREEN;
//DRAWTEXT_FIX(1,0.6,0.94,0,STRCAT('拐點價格:? ',CON2STR(DIF拐頭價,2))),COLORYELLOW;
//DRAWTEXT_FIX(1,0.0,0.0,0,'守住一個級別 直到下零軸，0上死叉碰0軸反彈不過新高再死叉走人'),COLORFF00FF;
{柱變與交叉臨界}
開盤價格:=O,COLORYELLOW,NODRAW;
收盤價格:=C,COLORYELLOW,NODRAW;
最高價格:=H,COLORYELLOW,NODRAW;
M:=10;
SHORT:=12;
LONG:=26;
DIF:=(EMA(CLOSE,12) - EMA(CLOSE,26)),COLORSTICK;
DEA:=EMA(DIF,9);
MACD:=(2 * (DIF - DEA)),COLORSTICK;
?
?
STICKLINE((DIF>0),DIF,0,2,1),COLORRED;
STICKLINE((DIF<0),DIF,0,2,1),COLORGREEN;
J:=DIF;
STICKLINE(J>REF(J,1),HHV(J,3),LLV(J,3),0,0),COLORRED;
STICKLINE(J>REF(J,1),J,REF(J,1),3,0),COLORRED;
STICKLINE(J>REF(J,1),J,REF(J,1),2,0),COLORRED;
STICKLINE(J>REF(J,1),J,REF(J,1),1,0),COLORRED;
STICKLINE(J<REF(J,1),HHV(J,3),LLV(J,3),0,0),COLORCYAN;
STICKLINE(J<REF(J,1),J,REF(J,1),3,0),COLORCYAN;
STICKLINE(J<REF(J,1),J,REF(J,1),2,0),COLORCYAN;
STICKLINE(J<REF(J,1),J,REF(J,1),1,0),COLORCYAN;
STICKLINE(CROSS(J,0),J,REF(J,1),3,0),COLORMAGENTA;
STICKLINE(CROSS(0,J),J,REF(J,1),3,0),COLORYELLOW;
JCSC:=(M-1)/(M+1)*DEA/(1-2/(M+1));
{計算出金叉死叉時的DIFF值}
DD:=(MACD/2+(DEA*(M-1)/(M+1)))/(1-2/(M+1));
{計算出明日MACD=MACD時的DIFF值}
DIF拐頭價:=(DIF*(SHORT+1)*(LONG+1)-(LONG+1)*(SHORT-1)*EMA(C,SHORT)+(SHORT+1)*(LONG-1)*EMA(C,LONG))/(2*((LONG+1)-(SHORT+1))),COLORCYAN,LINETHICK3;
柱變向價:=(DD*(SHORT+1)*(LONG+1)-(LONG+1)*(SHORT-1)*EMA(C,SHORT)+(SHORT+1)*(LONG-1)*EMA(C,LONG))/(2*((LONG+1)-(SHORT+1))),COLORGREEN;
黃銖消失見頂:=IF(柱變向價>=DIF拐頭價,DEA/2,DRAWNULL),COLORMAGENTA,CIRCLEDOT,LINETHICK1;
//股息率:FINANCE(45),COLORRED,NODRAW;
?
?
?
?
DIFF:=(EMA(CLOSE,12) - EMA(CLOSE,26));
交叉價格:=351/28*(EMA(DIFF,9)-11/13*EMA(C,12)+25/27*EMA(C,26)),COLORBLUE,NODRAW;
//DRAWTEXT_FIX(1,0.5,1,0,STRCAT('交叉價格: ',CON2STR(交叉價格,2))),COLORGREEN;
//DRAWTEXT_FIX(1,0.6,0.94,0,STRCAT('拐點價格:? ',CON2STR(DIF拐頭價,2))),COLORYELLOW;
?
?
//DRAWTEXT_FIX(1,0.0,0.0,0,'守住一個級別 直到下零軸，0上死叉碰0軸反彈不過新高再死叉走人'),COLORFF00FF;
{柱變與交叉臨界}
開盤價格:=O,COLORYELLOW,NODRAW;
收盤價格:=C,COLORYELLOW,NODRAW;
最高價格:=H,COLORYELLOW,NODRAW;
最低價格:=L,COLORYELLOW,NODRAW;
振幅:=(H-L)/REF(C,1)*100,COLORYELLOW,NODRAW;
柱變臨界:REF((EMA(CLOSE,12)*1134-EMA(CLOSE,26)*910-DEA*702)/224,1),COLORMAGENTA,NODRAW;
交叉臨界:351/28*(EMA(REF(DIFF,1),9)-11/13*EMA(REF(C,1),12)+25/27*EMA(REF(C,1),26)),COLORMAGENTA,NODRAW;
明日柱變臨界:(EMA(CLOSE,12)*1134-EMA(CLOSE,26)*910-DEA*702)/224,COLORRED,NODRAW;
明日交叉臨界:351/28*(EMA(DIFF,9)-11/13*EMA(C,12)+25/27*EMA(C,26)),COLORRED,NODRAW;
ES:=REF(EMA(C,26),1);
EP:=REF(EMA(C,12),1);
DI:=REF(DIFF,1);
DIF拐點價:((12-1)*EP/(12+1)-(26-1)*ES/(26+1)-DI)*(26+1)*(12+1)/(2*(12+1)-2*(26+1)),COLORYELLOW,NODRAW; 最M:=10;M:=10;
SHORT:=12;
LONG:=26;
DIF:=(EMA(CLOSE,12) - EMA(CLOSE,26)),COLORSTICK;
DEA:=EMA(DIF,9);
MACD:=(2 * (DIF - DEA)),COLORSTICK;
謝謝老師??
來源 程序化久久網
打印本文
關閉窗口