通達信龍骨架主圖指標 股票的強勢起漲點 源碼 貼圖

DRAWGBK(C>0,RGB(0,10,10),RGB(88,0,0),0,'0',0);
DRAWGBK(C>0,RGB(40,120,20),RGB(00,00,00),0,'0',1);
DRAWGBK(C>0,RGB(80,100,120),RGB(00,00,00),0,'0',1);
DRAWKLINE(H,O,L,C);
DRAWTEXT_FIX(FINANCE(51)<>0,0.85,0.02,0,'含可轉債')COLORYELLOW;
{尋龍訣色帶}
強弱分界:=EMA(COST(85),10){,PRECISION2,LINEDOT},COLORRED,DOTLINE;
分界:=EMA(COST(99),10){,PRECISION2,LINEDOT},COLORGREEN,DOTLINE;
{DRAWBAND(強弱分界,RGB(80,80,20), 分界,RGB(60,60,18));
DRAWKLINE(H,O,L,C);}
{龍骨架——MACD日周月共振主圖}
月DIF:=(EMA(CLOSE,12*4*4)-EMA(CLOSE,26*4*4));
月DEA:=EMA(月DIF,9*4*4);
月MACD:=2*(月DIF-月DEA),COLORSTICK,COLOR111111;
月柱:=月MACD,COLOR99EEEE,LINETHICK3;
周DIF:=(EMA(CLOSE,12*4)-EMA(CLOSE,26*4));
周DEA:=EMA(周DIF,9*4),COLORWHITE,DOTLINE;
周MACD:=2*(周DIF-周DEA),COLORSTICK,COLOR111111;
周柱:=周MACD,COLORFFCC00,LINETHICK2;
日DIF:=(EMA(CLOSE,12)-EMA(CLOSE,26));
日DEA:=EMA(日DIF,9);
日MACD:=2*(日DIF-日DEA),COLORWHITE;
日柱:=日MACD,COLORRED;
{MACD日周月共振線}
{頂部}
VAR10:=日柱;
VAR11:=HHV(HHV(LOW,14),40);
上一:EMA(EMA(VAR11,14)+2*STD(VAR11,14),8),LINETHICK2,COLORRED;
VAR20:=周柱;
VAR21:=HHV(HHV(LOW,14),120);
上二:EMA(EMA(VAR21,14)+2*STD(VAR21,14),8),,LINETHICK2,COLORMAGENTA;
VAR30:=月柱;
VAR31:=HHV(HHV(LOW,14),240);
上三:EMA(EMA(VAR31,14)+2*STD(VAR31,14),8),LINETHICK3,COLORYELLOW;
{底部}
VAR15:=LLV(LLV(HIGH,14),40);
VAR16:=LLV(MA((L+H+C)/3,8),40),COLORFF00FF;
下一:=EMA(EMA(VAR15,14)+2*STD(VAR15,14),8),LINETHICK1,COLORCYAN;
VAR25:=LLV(LLV(HIGH,14),120);
VAR26:=LLV(MA((L+H+C)/3,8),120),COLORFF00FF;
下二:=EMA(EMA(VAR25,14)+2*STD(VAR25,14),8),LINETHICK2,COLORGREEN;
VAR35:=LLV(LLV(HIGH,14),240);
VAR36:=LLV(MA((L+H+C)/3,8),240),COLORFF00FF;
下三:=EMA(EMA(VAR35,14)+2*STD(VAR35,14),8),LINETHICK3,COLORBLUE;
{漲停K線}{股票下載網www.mangamilk.com}
漲停:=IF(REF(C,1)*1.1-C<0.01 ,1,0);
STICKLINE(漲停,OPEN,CLOSE,3,0),COLORRED;
STICKLINE(漲停,OPEN,CLOSE,2,0),COLORYELLOW;
STICKLINE(漲停,H,L,0,0),COLORYELLOW;
{無拋壓縮量板}
無量停板7:=MA(C,5)>REF(MA(C,5),1) AND C/REF(C,1)>1.099 AND V<MA(V,5)COLOR7210CD;
STICKLINE(無量停板7,C,O,3,0) ,COLOR7210CD;
{板塊市值業績}
Z111:=STRCAT(HYBLOCK,'----');
Z211:=STRCAT(Z111,FGBLOCK);
Z311:=STRCAT(Z211,DYBLOCK);
Z411:=STRCAT(Z311,'----');
DRAWTEXT_FIX(1,0.00,0.06,0,'【主題概念】：')COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR,0.07,0.06,0,STRCAT(Z411,GNBLOCK)),COLORCYAN;
DRAWTEXT_FIX(1,0.07,0.24,0,EXTERNSTR(0,14))COLORYELLOW;
總股本:=STRCAT(STRCAT(' 總股本:',CON2STR(TOTALCAPITAL/1000000,2)),'億');
流通盤:=STRCAT(STRCAT(' 流通盤:',CON2STR(CAPITAL/1000000,2)),'億');
全流通:=STRCAT(STRCAT(' 全流通:',CON2STR(CAPITAL/TOTALCAPITAL*100,2)),'％');
市值:=STRCAT(STRCAT(' 流通市值:',CON2STR((CAPITAL/1000000)*C,2)),'億');
上市日期:=STRCAT(' 上市日期: ',CON2STR(HHV((BARSCOUNT(C)=0)*(DATE+19000000),0),0));
DRAWTEXT_FIX(ISLASTBAR,0.005,0.005,0,上市日期),COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR,0.099,0.005,0,總股本),COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR,0.175,0.005,0,流通盤),COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR,0.260,0.005,0,市值),COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR,0.01,0.12,0,STRCAT(STRSPACE(DYBLOCK),HYBLOCK)),COLORCYAN;
DRAWTEXT_FIX(FINANCE(51)<>0,0.1,0.12,0,'含可轉債')COLORYELLOW;