程序源碼

{顯示基本信息}

流通值:=FINANCE(46)*C/100000000;

所屬板塊:=STRCAT(STRCAT(' [●]：',HYBLOCK),STRCAT(STRCAT(' [●]：',GNBLOCK),STRCAT(STRCAT(' [●]：',DYBLOCK),STRCAT(STRCAT(STRCAT(' 市值Z: ',CON2STR(流通值,2)),'億'),STRCAT(STRCAT(' 流通盤: ',CON2STR(CAPITAL/1000000,2)),'億')))));

DRAWTEXT_FIX(ISLASTBAR,0,0,0,所屬板塊),COLORYELLOW;

DRAWTEXT_FIX(1,0.00,0.10,0,STRCAT('機構(gòu)評級：',EXTERNSTR(1,10017))),COLORYELLOW;

DRAWTEXT_FIX(C>0,0.00,0.05,0,STRCAT('策略：',EXTERNSTR(1,10013))),{COLOR888888;}COLOR00C5FF ;

DRAWTEXT_FIX(C>0,0.20,0.05,0,STRCAT('實際控制：',EXTERNSTR(1,10008))),{COLOR888888;}COLOR00C5FF ;

DIF:=(EMA(C,10)-EMA(C,22));

DEA:=EMA(DIF,8);

macd1:=2*(DIF-DEA);

DRAWKLINE(H,O,L,C);

{漲跌停變色}

NE:=IF(FINANCE(3)=3 OR FINANCE(3)=4,0.2,0.1);

漲停:=C+0.01>=ZTPRICE(REF(C,1),NE) AND C=H;

ZT:=C/REF(C,1)>1.095 AND H=C;

跌停:=C-0.01<=DTPRICE(REF(C,1),NE) AND C=L;

STICKLINE(漲停,O,HIGH,3,0),COLORFF00FF;

STICKLINE(跌停,LOW,HIGH,3,0),COLORYELLOW;

{大單ddx}

大單動向:=(LARGEINTRDvol-LARGEOUTTRDVOL)*10000/FINANCE(46);

DRAWTEXT(大單動向>1,L*1.02,'大單'),COLORYELLOW;

{炸板標識}

KCBB:=IF(CODELIKE('68') OR CODELIKE('30'),1,0);

ZF0:=IF(KCBB=1,1.195,1.095);

炸板1:=H>REF(C,1)*ZF0 AND C<H;

漲停10:=C>REF(C,1)*ZF0;

炸板2:=IF(炸板1 AND NOT(漲停10),1,0);

LX11:=BArslAST(炸板2>0);

炸板3:IF(炸板1 AND NOT(漲停10),H*1,DRAWNULL),POINTDOT,COLORFF00FF,LINETHICK9;

DRAWTEXT_FIX(INBLOCK('近期解禁'),0,0.28,0,'近期解禁')COLORYELLOW;

DRAWTEXT_FIX(INBLOCK('擬減持'),0.07,0.28,0,'擬減持')COLORYELLOW;

DRAWTEXT_FIX(INBLOCK('連續(xù)虧損'),0.14,0.28,0,'連續(xù)虧損')COLORYELLOW;

DRAWTEXT_FIX(INBLOCK('高管減持'),0.21,0.28,0,'高管減持')COLORYELLOW;

DRAWTEXT_FIX(INBLOCK('業(yè)績預(yù)升'),0.28,0.28,0,'業(yè)績預(yù)升')COLORRED;

DRAWTEXT_FIX(INBLOCK('業(yè)績預(yù)降'),0.35,0.28,0,'業(yè)績預(yù)降')COLORGREEN;

DRAWTEXT_FIX(INBLOCK('商譽減值'),0.42,0.28,0,'商譽減值')COLORGREEN;

DRAWTEXT_FIX(INBLOCK('股東減持'),0.49,0.28,0,'股東減持')COLORGREEN;

DRAWTEXT_FIX(INBLOCK('風險提示'),0.56,0.28,0,'風險提示')COLORGREEN;

持股線:(EMA(CLOSE,3)+EMA(CLOSE,5)+EMA(CLOSE,10)+EMA(CLOSE,20))/4,COLORCYAN;

加倉線:EMA(持股線,10),LINETHICK1,COLORRED;

趨勢線:EMA(持股線,20),LINETHICK1,COLORFF00FF;

DRAWICON(crOSS(持股線,趨勢線),趨勢線,34);

年線:MA(C,250),LINETHICK3,COLORRED;

{日MacD紅翻綠劃線}

TT:=BARSLAST(MACD1<0 AND REF(MACD1,1)>0 AND MIN(DIF,DEA)>0),NODRAW;

HH:REF(H,TT),COLORYELLOW,NODRAW;

STICKLINE(BACKSET(ISLASTBAR,BARSLAST(TT)+TT+1),HH,HH*1.003,2.5,0),COLORGREEN;

{60日前高劃線}

LT:=LLVBARS(L,60);

LTT:=BARSLAST(CURRBARSCOUNT=CONST(LT)+1);

HT:=FINDHIGHBARS(H,LT+1,60,1);

EXT1:DRAWLINE(CURRBARSCOUNT=CONST(HT)+1,H,ISLASTBAR,REF(H,HT),0),COLOR7CAE39,LINETHICK1,DOTLINE;

TT1:=BARSLAST(CURRBARSCOUNT=CONST(HT)+1);

DRAWTEXT(TT1=0,REF(H,TT1)*1.03,VARCAT(VARCAT('撐：',VAR2STR(REF(H,TT1),2)),'元'))COLOR7CAE39;

換手率Z:=V*10000/FINANCE(46),COLORCYAN,LINETHICK1;

IF(換手率Z>=50,持股線,DRAWNULL),LINETHICK2,COLORBLUE;

注：

       館內(nèi)各種公式為學習編程而保存，實戰(zhàn)使用前一定要看其中是否有未來函數(shù)并自己親自測試成功率，決不能依據(jù)公式名稱的描述和形容去投資，據(jù)此入市造成投資損失由投資者自己承擔。

       發(fā)文不易，如獲益，歡迎贊賞，贊賞必復(fù)！