程序源碼
{顯示基本信息}
流通值:=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('機構評級：',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('連續虧損'),0.14,0.28,0,'連續虧損')COLORYELLOW;
DRAWTEXT_FIX(INBLOCK('高管減持'),0.21,0.28,0,'高管減持')COLORYELLOW;
DRAWTEXT_FIX(INBLOCK('業績預升'),0.28,0.28,0,'業績預升')COLORRED;
DRAWTEXT_FIX(INBLOCK('業績預降'),0.35,0.28,0,'業績預降')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;
注：
館內各種公式為學習編程而保存，實戰使用前一定要看其中是否有未來函數并自己親自測試成功率，決不能依據公式名稱的描述和形容去投資，據此入市造成投資損失由投資者自己承擔。
發文不易，如獲益，歡迎贊賞，贊賞必復！
