分享一個通達信股票主圖指標源碼,主要看資料,資金,版塊等等,源碼自己導入網上有教程非常簡單
源碼:
{基本資料}
品種類型:=FINANCE(3);
所屬板塊:=HYBLOCK;
上市天數:=FINANCE(42);
股總市值:=ROUND(FINANCE(41)/100000000);
流通市值:=ROUND(FINANCE(40)/100000000);
股東人數:=FINANCE(8);
人均持股:=ROUND(FINANCE(7)/FINANCE(8));
{}
DRAWTEXT_FIX(1,0.008,0.01,0,'基本資料:'),COLORFFCC99;
DRAWTEXT_FIX(1,0.008,0.05,0,'品種類型:'),COLOR99CCFF;
DRAWTEXT_FIX(1,0.008,0.09,0,'行業板塊:'),COLOR99CCFF;
DRAWTEXT_FIX(1,0.008,0.13,0,'上市天數:'),COLOR99CCFF;
DRAWTEXT_FIX(1,0.008,0.17,0,'股東人數:'),COLOR99CCFF;
DRAWTEXT_FIX(1,0.008,0.21,0,'人均持股:'),COLOR99CCFF;
{}
DRAWTEXT_FIX(品種類型=1,0.055,0.05,0,'滬 深 A 股'),COLORYELLOW;
DRAWTEXT_FIX(品種類型=2,0.055,0.05,0,' 中 小 板'),COLORYELLOW;
DRAWTEXT_FIX(品種類型=3,0.055,0.05,0,' 創 業 板'),COLORYELLOW;
DRAWTEXT_FIX(1,0.055,0.09,0,HYBLOCK),COLORYELLOW;{行業板塊}
{數值}
DRAWNUMBER_FIX(1,0.050,0.13,0,上市天數),COLORGREEN;
DRAWNUMBER_FIX(1,0.050,0.17,0,股東人數),COLORGREEN;
DRAWNUMBER_FIX(1,0.050,0.21,0,人均持股),COLORGREEN;
{單位}
DRAWTEXT_FIX(1,0.08,0.13,0,'天'),COLORWHITE;
DRAWTEXT_FIX(1,0.08,0.17,0,'人'),COLORWHITE;
DRAWTEXT_FIX(1,0.08,0.21,0,'股'),COLORWHITE;
{所屬板塊}
DRAWTEXT_FIX(1,0.008,0.25,0,'地區板塊:')COLOR99CCFF;
DRAWTEXT_FIX(1,0.048,0.25,0,DYBLOCK)COLORGREEN;
DRAWTEXT_FIX(1,0.088,0.25,0,'概念板塊:')COLOR99CCFF;
DRAWTEXT_FIX(1,0.128,0.25,0,GNBLOCK)COLORGREEN;
DRAWTEXT_FIX(1,0.008,0.29,0,'風格板塊:')COLOR99CCFF;
DRAWTEXT_FIX(1,0.048,0.29,0,FGBLOCK)COLORGREEN;
獲利籌碼:IF(WINNER(CLOSE),WINNER(CLOSE)*100,0),NODRAW,COLOR0080FF;
淨資產:FINANCE(34),NODRAW,COLORRED;
公積金:FINANCE(18),NODRAW,COLORGREEN;
未分利潤:FINANCE(32),NODRAW,COLORMAGENTA;
淨資收益率:=STRCAT('淨資收益率: ',CON2STR(FINANCE(29)/FINANCE(19)*100,2));
每股收益:=STRCAT(' 每股收益: ',CON2STR(FINANCE(38),2));
主營利潤率:=STRCAT(' 主營利潤率 ',CON2STR(FINANCE(23)/FINANCE(20)*100,2));
當前業績:=STRCAT(' ',STRCAT(STRCAT(淨資收益率,每股收益),主營利潤率));
DRAWTEXT_FIX(ISLASTBAR,0.62,1.2,0,當前業績),COLORRED; {主圖顯示}
利潤增長:FINANCE(43),COLORYELLOW,NODRAW;開幅:100*(O/REF(C,1)-1),COLORYELLOW,NODRAW;
箱頂:HHV(MA((LOW+HIGH+CLOSE+O)/4,5),58),DOTLINE,COLORCYAN,LINETHICK1;
N3:=60;
B3:=EMA(C,3);
B4:=SMA(SMA(B3,2,1),2,1);
LLV(EMA(B4,1),N3),DOTLINE,COLORCYAN,LINETHICK1;
F:EMA(CLOSE,21),COLORRED,LINETHICK2;
IF(F>REF(F,1),F,DRAWNULL),LINETHICK2,COLORRED;
IF(F 網13:EXPMA(CLOSE,13),COLORGRAY,LINETHICK1; {黃金分割線} M:=13; 頂1:=REFDATE(HHV(H,M),DATE); 底1:=REFDATE(LLV(L,M),DATE); H1:=頂1-(頂1-底1)*0.191; H2:=頂1-(頂1-底1)*0.382; H3:=頂1-(頂1-底1)*0.5; H4:=頂1-(頂1-底1)*0.618; H5:=頂1-(頂1-底1)*0.809; 頂部:REFDATE(頂1,DATE),COLOR666666; %19.8:REFDATE(H1,DATE),COLOR666666; %38.2:REFDATE(H2,DATE),COLOR666666; %50:REFDATE(H3,DATE),COLOR666666; %61.8:REFDATE(H4,DATE),COLOR666666; %80.9:REFDATE(H5,DATE),COLOR666666; 底部:REFDATE(底1,DATE),COLOR666666; DRAWTEXT(ISLASTBAR,頂部,' 頂部'),COLORGREEN; DRAWTEXT(ISLASTBAR,%19.8,' 19.8%'),COLORMAGENTA; DRAWTEXT(ISLASTBAR,%38.2,' 38.2%'),COLORYELLOW; DRAWTEXT(ISLASTBAR,%50,' 50%'),COLORWHITE; DRAWTEXT(ISLASTBAR,%61.8,' 61.8%'),COLORYELLOW; DRAWTEXT(ISLASTBAR,%80.9,' 80.9%'),COLORMAGENTA; DRAWTEXT(ISLASTBAR,底部,' 底部'),COLORRED; {BS標誌} DRAWICON((ZIG(3,5)>REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)<=REF(ZIG(3,5),2)) AND (REF(ZIG(3,5),2)<=REF(ZIG(3,5),3)),LOW*0.98,7); DRAWICON((ZIG(3,5)=REF(ZIG(3,5),2)) AND (REF(ZIG(3,5),2)>=REF(ZIG(3,5),3)),HIGH*1.02,8); {箱體} { 箱頂:PEAK(CLOSE,N,1)*0.98,POINTDOT,LINETHICK3,COLORYELLOW; 箱底:TROUGH(CLOSE,N,1)*1.02,POINTDOT,LINETHICK3,COLORFFFF00; 箱高:100*(箱頂-箱底)/箱底,NODRAW; }; 總額:=AMOUNT; 買:=IF(O=C AND (C-REF(C,1))/REF(C,1)*100>9.8,AMOUNT,AMOUNT/((H-L)*2-ABS(O-C))*(C-L)); 買%:=買/AMOUNT*100; 流入:=AMOUNT*買%/10000000000; 流出:=AMOUNT/100000000-流入; 淨流:=(流入-流出); 總額3:=SUM(AMOUNT,3); 流入3:=SUM(流入,3); 流出3:=SUM(流出,3); 淨流3:=SUM(流入-流出,3); 總額5:=SUM(AMOUNT,5); 流入5:=SUM(流入,5); 流出5:=SUM(流出,5); 淨流5:=SUM(流入-流出,5); 總額10:=SUM(AMOUNT,10); 流入10:=SUM(流入,10); 流出10:=SUM(流出,10); 淨流10:=SUM(流入-流出,10); 畫:=CONST(FINDHIGH(總額10,0,190,1)); DRAWTEXT_FIX(1,0.71,0.07,0,'淨流(億):'),COLORMAGENTA,LINETHICK1;
DRAWTEXT_FIX(1,0.78,0.05,0,'1日'),COLORMAGENTA,LINETHICK1;
DRAWTEXT_FIX(1,0.83,0.05,0,'3日'),COLORMAGENTA,LINETHICK1;
DRAWTEXT_FIX(1,0.88,0.05,0,'5日'),COLORMAGENTA,LINETHICK1;
DRAWTEXT_FIX(1,0.93,0.05,0,'10日'),COLORMAGENTA,LINETHICK1;
DRAWNUMBER_FIX(1,0.78,0.10,0,CONST((淨流))),COLORYELLOW;
DRAWNUMBER_FIX(1,0.83,0.10,0,CONST((淨流3))),COLORYELLOW;
DRAWNUMBER_FIX(1,0.88,0.10,0,CONST((淨流5))),COLORYELLOW;
DRAWNUMBER_FIX(1,0.93,0.10,0,CONST((淨流10))),COLORYELLOW;
DRAWKLINE(HIGH,OPEN,LOW,CLOSE);MA5:=MA(C,5);MA10:=MA(C,10);MA30:=MA(C,30);
FA:=BARSLAST(CROSS(MA10,MA5))
AND CROSS(MA5,MA10);
FB:=FA AND MA5>MA30 AND MA10>MA30 AND
MA10>REF(MA10,1);
{過左峰提示粉色}
VAR121:=ZIG(3,6)=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3);
VAR141:=ZIG(3,22)=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3);
VAR161:=ZIG(3,51)=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3);
VAR181:=ZIG(3,72)=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3);
賣:=(VAR121+VAR141+VAR161+VAR181),LINETHICK2;SQ:DRAWLINE(賣,H,BARSLAST(賣)>=1,REF(H,BARSLAST(賣)),1),COLORWHITE,LINETHICK2;
過峰:=C>SQ AND REF(C,1)
VVOL:=IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,DRAWNULL),NODRAW;
預量:=VVOL/REF(V,1)>1.8;
現量:=V/REF(V,1)>1.5;
過峰1:STICKLINE( 過峰,C,O,5,0)COLORFF00FF;
預量1:DRAWICON(過峰 AND 預量, H*1.01,14);
現量1:DRAWICON(過峰 AND 現量,(O+C)/2,23);
前次低點:LLV(L*1,250)POINTDOT,COLORFF00FF,LINETHICK4;
閱讀更多 優兔爆笑 的文章