通達信夢操作系統主圖指標公式
2021/1/30 17:55:09
DRAWGBK(C>O,RGB(8,28,47),RGB(0,0,0),0,'1',0);
DRAWKLINE(H,O,L,C);
長期循環線:EMA(C,68)COLORLICYAN,LINETHICK1,CIRCLEDOT;
IF(長期循環線>REF(長期循環線,1),長期循環線,DRAWNULL),COLORRED,LINETHICK1,CIRCLEDOT;
IF(長期循環線<REF(長期循環線,1),長期循環線,DRAWNULL),COLORLICYAN,LINETHICK1,CIRCLEDOT;
操作線:EMA(C,12),COLORLICYAN,LINETHICK2;
IF(操作線>REF(操作線,1),操作線,DRAWNULL),COLORYELLOW,LINETHICK2;
IF(操作線<REF(操作線,1),操作線,DRAWNULL),COLORLICYAN,LINETHICK2;
MA8:EMA(C,23),COLORRED,POINTDOT;
IF(MA8<REF(MA8,1),MA8,DRAWNULL),COLORGREEN,POINTDOT;
MA9:EMA(C,25),COLORRED,POINTDOT;
IF(MA9<REF(MA9,1),MA9,DRAWNULL),COLORGREEN,POINTDOT;
短循環線:EMA(C,24),COLORRED,DOTLINE;
IF(短循環線>REF(短循環線,1),短循環線,DRAWNULL),COLORRED,DOTLINE;
IF(短循環線<REF(短循環線,1),短循環線,DRAWNULL),COLORGREEN,DOTLINE;
{基本面}
總股本:=STRCAT(STRCAT('總股本: ',CON2STR(TOTALCAPITAL/1000000,2)),'億');
流通盤:=STRCAT(STRCAT(' 流通盤: ',CON2STR(CAPITAL/1000000,2)),'億');
市值:=STRCAT(STRCAT(' 流通市值: ',CON2STR((CAPITAL/1000000)*C,2)),'億');
上市日期:=STRCAT(' 上市天數: ',CON2STR(FINANCE(42),0));
股本市值:=STRCAT('股本市值: ',STRCAT(STRCAT(STRCAT(總股本,流通盤),市值),上市日期));
DRAWTEXT_FIX(ISLASTBAR,0.02,0.06,0,股本市值),COLORGRAY;
DRAWTEXT_FIX(ISLASTBAR=1 ,0.295,0.01,1,'【 操作原則 】: 小三線順上短線做多；五線順上中線做多 '),COLORLIGRAY;
{所屬板塊、概念}
DRAWTEXT_FIX(1,0.02,0.115,0,'行業地域：'),COLORGRAY;
DRAWTEXT_FIX(1,0.07,0.115,0,HYBLOCK),COLORGRAY;{所屬行業}
DRAWTEXT_FIX(1,0.12,0.115,0,GNBLOCK),COLORGRAY;{所屬概念};
AAA:=(3*C+H+L+O)/6;
VAR1AA:=(8*AAA+7*REF(AAA,1)+6*REF(AAA,2)+5*REF(AAA,3)
+4*REF(AAA,4)+3*REF(AAA,5)+2*REF(AAA,6)+REF(AAA,8))/36;
波段線:VAR1AA,COLORRED,LINETHICK1;
{<<波段絕品>>}
SHORT:=12;LONG:=26;MID:=9;
DIF:=EMA(CLOSE,SHORT)-EMA(CLOSE,LONG);
DEA:=EMA(DIF,MID);
空頭:STICKLINE((REF(MACD,1)>MACD ) AND (C<波段線 OR (C>波段線 AND 波段線<REF(波段線,1))),C,O,3,0),COLOR808000;
STICKLINE((REF(MACD,1)> MACD AND C<波段線),H,L,0,0),COLOR808000;
頭:STICKLINE(C<波段線,C,O,3,0),COLOR808000;
STICKLINE(( C<波段線),H,L,0,0),COLOR808000;
STICKLINE(空頭,C,O,2.8,0),COLOR555500;
STICKLINE(空頭,C,O,2,0),COLOR888800;
STICKLINE(空頭,C,O,1.5,0),COLORAAAA00;
STICKLINE(空頭,C,O,1,0),COLORCCCC00;
STICKLINE(空頭,C,O,0.5,0),COLOREEEE00;
STICKLINE(頭,C,O,2.8,0),COLOR555500;
STICKLINE(頭,C,O,2,0),COLOR888800;
STICKLINE(頭,C,O,1.5,0),COLORAAAA00;
STICKLINE(頭,C,O,1,0),COLORCCCC00;
STICKLINE(頭,C,O,0.5,0),COLOREEEE00;
{漲停}{跌停}
AAK:=CLOSE/REF(C,1)>=1.097 AND C=H AND C>EMA(C,68);
STICKLINE(AAK,C,O,1.5,0),COLORYELLOW;
STICKLINE(AAK,O,C,0.2,0),COLOR0000FF;
{共振漲板三色花}
超短:=100*(C-LLV(L,3))/(HHV(C,3)-LLV(L,3));
短期:=100*(C-LLV(L,5))/(HHV(C,5)-LLV(L,5));
中期:=100*(C-LLV(L,10))/(HHV(C,10)-LLV(L,10));
中長:=100*(C-LLV(L,20))/(HHV(C,20)-LLV(L,20));
長期:=100*(C-LLV(L,30))/(HHV(C,30)-LLV(L,30));
T2X:=MA(C,20)>REF(MA(C,20),1);
T3X:= V>MA(V,5) AND V>MA(V,63);
T4:=MACD.DIF>REF(MACD.DIF,1) AND MACD.DIF>MACD.DEA;
T5:= KDJ.K>REF(KDJ.K,1) AND KDJ.K>50;
T6:=短期>=99 AND 中期>=99 AND 中長>=99 AND 長期>=99;
T7:=H>=REF(C,1)*1.099 AND C>REF(C,1);
TTS:=T2X AND T3X AND T4 AND T5 AND T6,NODRAW;
漲停1:=C>=REF(C,1)*1.0990 AND C=H AND C>EMA(C,24);
STICKLINE(漲停1 AND TTS,O,C,2,0),COLOR0000FF;
STICKLINE(漲停1 AND TTS,O,O+(C-O)*2/3,2,0),COLORYELLOW;
STICKLINE(漲停1 AND TTS,O,O+(C-O)*1/2.5,2,0),COLORFF80FF;
{攻擊點}
箱底:=TROUGH(C,10,1)*1.02;
箱底1:=TROUGH(C,10,1)*1.02;
價低箱底:=COUNT(L<箱底,3);
底箱:=TROUGH(C,10,1)*1.05,COLOR008888,LINETHICK1,DOTLINE;
白銀:=(EMA(C,24)<EMA(C,68) AND C>EMA(C,24) AND C<EMA(C,68))
OR (EMA(C,24)>EMA(C,68) AND C<EMA(C,24) AND C>EMA(C,68)) AND 價低箱底>=1 AND 箱底<EMA(C,24)
AND C>波段線 AND EMA(C,12)>REF(EMA(C,12),1) AND CROSS(C,底箱),COLOR00AAAA,NODRAW;
DRAWTEXT((EMA(C,24)<EMA(C,68) AND C>EMA(C,24) AND C<EMA(C,68))
OR (EMA(C,24)>EMA(C,68) AND C<EMA(C,24) AND C>EMA(C,68)) AND 價低箱底>=1 AND 箱底<EMA(C,24)
AND C>波段線 AND EMA(C,12)>REF(EMA(C,12),1) AND CROSS(C,底箱),L*0.98,'↖白銀'),COLORA8A8A8;
STICKLINE(白銀,OPEN,CLOSE,3.5,0),COLOR5F5F5F;
STICKLINE(白銀,OPEN,CLOSE,3.0,0),COLOR6E6E6E;
STICKLINE(白銀,OPEN,CLOSE,2.5,0),COLOR747474;
STICKLINE(白銀,OPEN,CLOSE,2.0,0),COLOR919191;
STICKLINE(白銀,OPEN,CLOSE,1.5,0),COLORA8A8A8;
STICKLINE(白銀,OPEN,CLOSE,1.0,0),COLORCDCDCD;
STICKLINE(白銀,OPEN,CLOSE,0.5,0),COLOREBEBEB;
STICKLINE(白銀,OPEN,CLOSE,0.1,0),COLORWHITE;
雜銀:=C<EMA(C,24) AND C<EMA(C,68) AND 價低箱底>=1 AND 箱底<EMA(C,24)
AND C>波段線 AND EMA(C,12)>REF(EMA(C,12),1) AND CROSS(C,底箱),COLOR00AAAA,NODRAW;
DRAWTEXT(C<EMA(C,24) AND C<EMA(C,68) AND 價低箱底>=1 AND 箱底<EMA(C,24)
AND C>波段線 AND EMA(C,12)>REF(EMA(C,12),1) AND CROSS(C,底箱),L*0.98,'↖雜銀'),COLORA8A8A8;
BG1:=(C-O);
STICKLINE(雜銀,OPEN,C,3.5,0),COLOR5F5F5F;
STICKLINE(雜銀,OPEN,C,1,0),COLORB3F5F9;
STICKLINE(雜銀,OPEN,O+BG1/2,3.5,0),COLOR5F5F5F;
STICKLINE(雜銀,OPEN,O+BG1/2,3.0,0),COLOR6E6E6E;
STICKLINE(雜銀,OPEN,O+BG1/2,2.5,0),COLOR747474;
STICKLINE(雜銀,OPEN,O+BG1/2,2.0,0),COLOR919191;
STICKLINE(雜銀,OPEN,O+BG1/2,1.5,0),COLORA8A8A8;
STICKLINE(雜銀,OPEN,O+BG1/2,1.0,0),COLORCDCDCD;
STICKLINE(雜銀,OPEN,O+BG1/2,0.5,0),COLOREBEBEB;
STICKLINE(雜銀,OPEN,O+BG1/2,0.1,0),COLORWHITE;
白金:C>EMA(C,24) AND C>EMA(C,68) AND EMA(C,24)>EMA(C,68) AND (EMA(C,24)>REF(EMA(C,24),1)
AND EMA(C,68)>REF(EMA(C,68),1)) AND 價低箱底>=1 AND 箱底<EMA(C,24) AND C>波段線 AND
EMA(C,12)>REF(EMA(C,12),1) AND CROSS(C,底箱),COLOR00AAAA,NODRAW;
DRAWTEXT(C>EMA(C,24) AND C>EMA(C,68) AND EMA(C,24)>EMA(C,68) AND (EMA(C,24)>REF(EMA(C,24),1)
AND EMA(C,68)>REF(EMA(C,68),1)) AND 價低箱底>=1 AND 箱底<EMA(C,24) AND C>波段線 AND
EMA(C,12)>REF(EMA(C,12),1) AND CROSS(C,底箱),L*0.98,'↖白金'),COLOR00CCCC;
STICKLINE(白金,OPEN,CLOSE,3.5,0),COLOR008888;
STICKLINE(白金,OPEN,CLOSE,1.6,0),COLOR00AAAA;
STICKLINE(白金,OPEN,CLOSE,0.8,0),COLOR00CCCC;
STICKLINE(白金,OPEN,CLOSE,0.2,0),COLOR00FFFF;
黃金:C>EMA(C,24) AND C>EMA(C,68) AND EMA(C,24)<EMA(C,68)
AND 價低箱底>=1 AND 箱底<EMA(C,24) AND C>波段線 AND
EMA(C,12)>REF(EMA(C,12),1) AND CROSS(C,底箱),COLOR00AAAA,NODRAW;
DRAWTEXT(C>EMA(C,24) AND C>EMA(C,68) AND EMA(C,24)<EMA(C,68)
AND 價低箱底>=1 AND 箱底<EMA(C,24) AND C>波段線 AND
EMA(C,12)>REF(EMA(C,12),1) AND CROSS(C,底箱),L*0.98,'↖黃金'),COLOR00CCCC;
BG:=(C-O);
STICKLINE(黃金,OPEN,C,3.5,0),COLOR008888;
STICKLINE(黃金,OPEN,C,1,0),COLORWHITE;
STICKLINE(黃金,OPEN,O+BG/2,3.5,0),COLOR008888;
STICKLINE(黃金,OPEN,O+BG/2,1.6,0),COLOR00AAAA;
STICKLINE(黃金,OPEN,O+BG/2,0.8,0),COLOR00CCCC;
STICKLINE(黃金,OPEN,O+BG/2,0.2,0),COLOR00FFFF;
IF(波段線<REF(波段線,1),波段線,DRAWNULL),COLORGREEN,LINETHICK1;
攻擊線:MA(C,3),COLORGRAY,LINETHICK1,DOTLINE;
IF(攻擊線>REF(攻擊線,1),攻擊線,DRAWNULL),COLORWHITE,LINETHICK1,DOTLINE;
IF(攻擊線<REF(攻擊線,1),攻擊線,DRAWNULL),{COLOR045324}COLORGRAY,LINETHICK1,DOTLINE;
低點轉折:=DRAWICON(CROSS(ZIG(3,6),REF(ZIG(3,6),1)),L*0.98,9) ;
DRAWTEXT((低點轉折=1),L*0.99,'↖撈'),COLOR1665F8;
高點轉折:=DRAWICON(CROSS(REF(ZIG(3,4),1),ZIG(3,4)),H*1.015,15);
DRAWTEXT((高點轉折=1),H*1.01,'↙衰'),COLOR77EE3E;
{KD\MACD金叉、死叉顯示}
金叉:=CROSS(KDJ.J,KDJ.D);
死叉:=CROSS(KDJ.D,KDJ.J);
CO1:=(C-O);
STICKLINE(金叉,O,C,0,0),COLORYELLOW;
STICKLINE(金叉,O,O+CO1/2,0.01,0),COLORYELLOW;
STICKLINE(金叉,O,O+CO1/2,0,0),COLORRED;
STICKLINE(金叉,O,O+CO1/5,3.4,0),COLOR335555;
STICKLINE(金叉,O,O+CO1/5,2,0),COLOR338888;
STICKLINE(金叉,O,O+CO1/5,1.5,0),COLOR33AAAA;
STICKLINE(金叉,O,O+CO1/5,1,0),COLOR33CCCC;
STICKLINE(金叉,O,O+CO1/5,0,0),COLOR33EEEE;
金:=CROSS(MACD.DIF,MACD.DEA);
CO11:=(C-O);
STICKLINE(金,O,C,0,0),COLORYELLOW;
STICKLINE(金,O,O+CO11/2,0.3,0),COLORYELLOW;
STICKLINE(金,O,O+CO11/2,0,0),COLORRED;
STICKLINE(金,O,O+CO11/5,3.4,0),COLOR000055;
STICKLINE(金,O,O+CO11/5,2,0),COLOR000088;
STICKLINE(金,O,O+CO11/5,1.5,0),COLOR0000AA;
STICKLINE(金,O,O+CO11/5,1,0),COLOR0000CC;
STICKLINE(金,O,O+CO11/5,0,0),COLOR0000EE;
STICKLINE(死叉,O,O+CO1/5,1.4,0),COLOR4BFE59;
看股 吧公式 www.kangu ba.com
其它股票公式列表
