通达信操盘术主图指标公式源码

M1:=5;
M2:=10;
M3:=20;
M4:=60;
A1AA:=9;
A2AA:=(REF(CLOSE,A1AA+1) CLOSE);
VAR66:=REF(C,1);
VAR77:=SMA(maX(C-VAR66,0),6,1)/SMA(Abs(C-VAR66),6,1)*100;
DRAWGBK(C 0,RGB(10,160,0),RGB(25,15,0),0,' ',0);
上:=(SMA(HIGH,21,2) * 1.05);
DRAWTEXT(FILTER(((((CLOSE REF(CLOSE,1)) AND (CLOSE REF(CLOSE,1)))AND (HIGH 上)) AND (CLOSE 上)),5),(HIGH*0.995),'--减仓'),COLORFFFFFF;
下轨道:(SMA(LOW,21,2) * 0.969),POINTDOT,COLOR00FFFF;
BMA:=MA(CLOSE,118);
阻挡:=(SMA(HIGH,21,2) * 1.05);
RSV:=(((CLOSE - LLV(LOW,13)) / (HHV(HIGH,13) - LLV(LOW,13))) * 100);
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=((3 * K) - (2 * D));
RSV12:=(((CLOSE - LLV(LOW,34)) / (HHV(HIGH,34) - LLV(LOW,34))) * 100);
K12:=SMA(RSV12,3,1);
D12:=SMA(K12,3,1);
J12:=((3 * K12) - (2 * D12));
RSV24:=(((CLOSE - LLV(LOW,55)) / (HHV(HIGH,55) - LLV(LOW,55))) * 100);
K24:=SMA(RSV24,3,1);
D24:=SMA(K24,3,1);
J24:=((3 * K24) - (2 * D24));
支撑位:=IF(crOSS(J,J24),LOW,REF(LOW,BArslAst(CROSS(J,J24))));
压力位:IF(CROSS(J24,J),HIGH,REF(HIGH,BARSLAST(CROSS(J24,J)))),COLOR00FF00;
U2L:=IF((CLOSE = MA(CLOSE,20)),80,50);
L2L:=IF((CLOSE = MA(CLOSE,20)),50,20);
RH1:=IF(((J U2L) AND (REF(J,1) = U2L)),HHV(REF(HIGH,1),(BARSLAST(((J = U2L)AND (REF(J,1) U2L))) - 1)),REF(HHV(REF(HIGH,1),(BARSLAST(((J = U2L)AND (REF(J,1) U2L))) - 1)),BARSLAST(((J U2L) AND REF(J,1)))));
RH4:=IF((HIGH RH1),LOW,REF(LOW,BARSLAST((HIGH RH1))));
RH42:=IF((HIGH RH1),J,REF(J,BARSLAST((HIGH RH1))));
RH5:=IF((((HIGH RH4) AND (J RH42)) AND (J J24)),HIGH,REF(HIGH,BARSLAST((((HIGH RH4) AND (J RH42)) AND (J J24)))));
RL1:=IF(((J L2L) AND (REF(J,1) = L2L)),LLV(REF(LOW,1),(BARSLAST(((J = L2L)AND (REF(J,1) L2L))) - 1)),REF(LLV(REF(LOW,1),(BARSLAST(((J = L2L)AND (REF(J,1) L2L))) - 1)),BARSLAST(((J L2L) AND REF(J,1)))));
RL4:=IF((LOW RL1),HIGH,REF(HIGH,BARSLAST((LOW RL1))));
RL42:=IF((LOW RL1),J,REF(J,BARSLAST((LOW RL1))));
RL5:=IF((((LOW RL4) AND (J RL42)) AND (J J24)),LOW,REF(LOW,BARSLAST((((LOW RL4) AND (J RL42)) AND (J J24)))));
CB:=((AMOUNT / vol) / 100);
CD:=((CB HIGH) OR (CB LOW));
黑马趋势:=MA(CLOSE,3);
MAP:=MA(CLOSE,8);
AA5:=MA(CLOSE,21);
AA10:MA(CLOSE,8),COLOR0000FF;
AA12:MA(CLOSE,12),COLOR0000FF;
BB10:=((ATAN((AA10 - REF(AA10,1))) * 3.1416) * 10);
BB12:=((ATAN((AA12 - REF(AA12,1))) * 3.1416) * 10);
MA13:=MA(CLOSE,13);
DRAWTEXT(FILTER(((((((CLOSE / OPEN) 1.04) AND ((CLOSE - REF(CLOSE,1)) 0))AND (CLOSE 下轨道)) AND ((AA10 - REF(AA10,1)) 0)) AND (CLOSE 上)),3),(LOW - 0.07),'追击'),COLORD1E768;
AA100:=IF(((AA12 = AA10) AND (BB12 = 1)) AND (BB10 = 1),AA10,DRAWNULL);
AA122:=IF(((AA12 = AA10) AND (BB10 = 1)) AND (BB10 = 1),AA12,DRAWNULL);
DRAWBAND(AA100,RGB(250,0,0),AA12,RGB(0,250,0));
DRAWBAND(AA122,RGB(0,250,0),AA10,RGB(250,0,0));
VARD:=((((OPEN + LOW) + HIGH) + CLOSE) / 4);
支撑:=ema(VARD,5);
短期底部:=LLV(OPEN,30);
DRAWTEXT(((((((CROSS(黑马趋势,短期底部) AND ((RL5 - REF(RL5,1)) 0))AND ((黑马趋势 - REF(黑马趋势,1)) 0)) AND (黑马趋势 1)) AND (LOW = 支撑位))AND (CLOSE 支撑位)) AND (HIGH 压力位)),(LOW - 0.15),' 黑马发现'),COLOR00FFFF;
DRAWTEXT((((((((CROSS(黑马趋势,RL5) AND ((黑马趋势 - REF(黑马趋势,1)) 0))AND (HIGH 压力位)) AND (LOW = 短期底部)) AND (CLOSE 支撑位)) AND (CD 1))AND (CLOSE OPEN)) AND (CLOSE RL5)),LOW,' 短买'),COLOR00FF00;
DRAWTEXT(FILTER((((((((LOW = 短期底部) AND ((CLOSE - REF(CLOSE,1)) CLOSE))AND ((MA(CLOSE,10) - REF(MA(CLOSE,10),1)) 0)) AND (WINNER(CLOSE) 0.05))AND (短期底部 = RL5)) AND (LOW = RL5)) AND (HIGH 压力位)),3),LOW,'★机会难得'),COLORFFFFFF;
历史大底:DRAWTEXT(FILTER((((((LLV(LOW,0) AND (WINNER(CLOSE) 0.08))AND (LOW = 短期底部)) AND (CLOSE 短期底部)) AND (J 80))AND ((CLOSE / OPEN) 1.08)),20),(LOW - 0.45),'★★历史大底');
DRAWTEXT(FILTER(((((((((LOW = 短期底部) AND (CLOSE 压力位))AND ((AA5 - REF(AA5,1)) 0)) AND (J 80)) AND (CLOSE 支撑位))AND ((黑马趋势 - REF(黑马趋势,1)) 0)) AND (WINNER(CLOSE) 0.1))AND (CLOSE OPEN)),5),(LOW - 0.15),'★黑马登天'),COLORCDEEC5;
X1:=(((((3 * CLOSE) + HIGH) + LOW) + OPEN) / 6);
X2:=EMA(X1,10);
X3:=REF(X2,1);
X4:=((REF(HIGH,1) + REF(LOW,1)) / 2);
X5:=(MA(CLOSE,21) + (2 * STD(CLOSE,21)));
X6:=REF(CLOSE,1);
X7:=((SMA(MAX((CLOSE - X6),0),7,1) / SMA(ABS((CLOSE - X6)),7,1)) * 100);
X8:=CROSS(79,X7);
X9:=FILTER(X8,4);
MAP1:=MA(CLOSE,60);
均线３０:=MA(CLOSE,30);
均线８９:=MA(CLOSE,89);
均线:=MA(CLOSE,16);
均线３４:=MA(CLOSE,34);
均线５５:=MA(CLOSE,55);
VAR1:=EMA(CLOSE,8);
VAR2:=EMA(VAR1,20);
VAR3:=CROSS(VAR1,VAR2);
VAR4:=(VAR1 MA(CLOSE,60));
VAR5:=(((HHV(HIGH,36) - CLOSE) / (HHV(HIGH,36) - LLV(LOW,36))) * 100);
VAR6:=SMA(VAR5,5,1);
VAR7:=SMA(VAR6,8,1);
VAR8:=(CROSS(VAR6,VAR7) AND (VAR7 16));
VAR9:=((CLOSE (LLV(CLOSE,60) + (0.3 * LLV(CLOSE,60)))) AND VAR8);
VARA:=IF((CLOSE 1000),VAR8,VAR9);
黑马起步:=(VAR3 AND VAR4);
逃遁:=VARA;
均线２０:=MA(CLOSE,20);
均线１２０:=MA(CLOSE,120);
牛熊线:=MA(CLOSE,250);
VA:=CROSS(MA(CLOSE,19),MA(CLOSE,120));
VB:=(MA(CLOSE,20) MA(CLOSE,120));
VC:=CROSS(MA(CLOSE,120),MA(CLOSE,89));
VD:=(MA(CLOSE,20) MA(CLOSE,120));
VE:=CROSS(MA(CLOSE,20),MA(CLOSE,250));
VF:=(MA(CLOSE,20) MA(CLOSE,250));
VG:=CROSS(MA(CLOSE,250),MA(CLOSE,20));
DRAWTEXT(FILTER(((((((((OPEN 均线１２０) AND (均线２０ 均线１２０))AND (LOW = 均线１２０)) AND ((均线２０ - REF(均线２０,1)) 0)) AND (CLOSE OPEN))AND ((均线１２０ - REF(均线１２０,1)) 0)) AND (HIGH RH5))AND (CLOSE = 均线１２０)),15),LOW,'★120跳马'),COLOR0089E0;
DRAWTEXT((((VA AND ((均线１２０ - REF(均线１２０,1)) 0)) AND (HIGH RH5))AND (CLOSE OPEN)),LOW,'★宝马望月'),COLORFFFFFF;
DRAWTEXT((((((均线 - REF(均线,1)) 0) AND CROSS(均线２０,均线１２０))AND (LOW = 均线１２０)) AND (CLOSE = 均线１２０)),LOW,'三线开花'),COLORFFFFFF;
短期底部２:LLV(HIGH,30),LINETHICK2,COLOR0000FF;
上轨:(SMA(HIGH,21,2) * 1.092),POINTDOT,COLORFFFFFF;
中轨道:(SMA(HIGH,21,2) * 1.017),POINTDOT,COLORFFFFFF;
DRAWTEXT(FILTER(((((LOW 下轨道) AND (CLOSE MA(CLOSE,15)))AND (CLOSE 短期底部２)) AND (HIGH 压力位)),10),LOW,'★短线5%'),COLOR9DC522;
DRAWTEXT(((((((HIGH = 均线１２０) AND (CLOSE REF(CLOSE,1)))AND (CLOSE REF(CLOSE,1))) AND (HIGH 上)) AND (CLOSE 上))AND (CLOSE 均线１２０)),(HIGH + 1.05),'减仓'),COLOR00FF00;
DRAWTEXT(((VE VG) AND (HIGH 阻挡)),(LOW - 0.65),'★黑马短线'),COLOR00FFFF;
DRAWTEXT(FILTER(((((((OPEN X2) AND (WINNER(CLOSE) 0.2)) AND (CLOSE X2))AND ((X2 - REF(X2,1)) 0)) AND (HIGH 阻挡)) AND ((CLOSE - REF(CLOSE,1)) 0.35)),4),(LOW - 0.05),'★黑马狂奔'),COLORD18073;
DRAWTEXT((((((((CROSS(支撑,均线) AND (HIGH 中轨道)) AND (WINNER(CLOSE) 0.2))AND (CLOSE 阻挡)) AND (CLOSE OPEN)) AND (LOW = X2)) AND (CLOSE = X2))AND CROSS(支撑,X2)),LOW,'★黑马起步'),COLOR00FFFF;
DRAWTEXT(CROSS(X4,X5),HIGH,'●减仓'),COLOR00B4FF;
DRAWTEXT(X9 AND CROSS(82,VAR77),(HIGH * 1.03),'出货'),COLOR9000F5;
DRAWTEXT((((黑马起步 0) AND (LOW = X2)) AND ((均线 - REF(均线,1)) 0)),(LOW - 0.11),'★黑马起步'),COLOR00FF00;
DRAWTEXT((逃遁 0),(HIGH + 0.15),'●逃命'),COLORFFFFFF;
RDV:=SMA(LOW,8,1);
DRAWTEXT(((((CROSS(K,D) AND (CLOSE = OPEN)) AND ((X2 - REF(X2,1)) 0))((RDV - REF(RDV,1)) 0)) AND (K = 33)),(LOW - 0.08),'★黑马初现'),COLOR8500DE;
DRAWTEXT(FILTER((((((((LOW = 短期底部) AND (WINNER(CLOSE) 0.2))AND (CLOSE 牛熊线)) AND (HIGH 阻挡)) AND ((X2 - REF(X2,1)) 0))AND (CLOSE OPEN)) AND (HIGH = X3)),5),(LOW - 0.03),' 黑马筑底'),COLOR85B256;
RCK:=(SMA(LOW,21,2) * 0.95);
趋势线:=SMA(LOW,5,1);
大胆买入:DRAWTEXT(((CROSS(趋势线,RCK) AND (LOW = X2)) AND ((X2 - REF(X2,1)) 0)),LOW,' ★大胆买入'),COLORE50000;
B1:=(((HIGH + LOW) + CLOSE) / 3);
B6:=HHV(B1,(4 * 15));
B7:=LLV(B1,(4 * 15));
B8:=(B6 - B7);
飞龙顶底线:=(MA(((B1 - B7) / B8),2) * 80);
DRAWTEXT(FILTER(((((((飞龙顶底线 = 1) AND (WINNER(CLOSE) 0.02))AND (HIGH 趋势线)) AND (CLOSE OPEN)) AND (LOW = 短期底部))AND (CLOSE 短期底部)),8),(LOW - 0.02),' 黑马寻底'),COLORE7DD1F;
DRAWTEXT(FILTER((((((((LOW = 短期底部) AND (WINNER(CLOSE) 0.015))AND ((OPEN / CLOSE) 0.99)) AND ((J - REF(J,1)) 0)) AND (CLOSE OPEN))AND (HIGH 支撑位)) AND (CLOSE 短期底部)),25),(LOW - 0.09),' 开始建仓'),COLOR00FFFF;
DRAWTEXT(FILTER((((((((LOW = 均线３０) AND ((AA10 - REF(AA10,1)) 0))AND ((均线 - REF(均线２０,1)) 0)) AND ((趋势线 - REF(趋势线,1)) 0))AND (CLOSE = 均线３０)) AND (WINNER(CLOSE) 0.15)) AND ((CLOSE / OPEN) 1.01)),3),LOW,'★天马奔月'),COLOR76B0FC;
DRAWTEXT((((((OPEN = 均线) AND ((均线３０ - REF(均线３０,1)) 0))AND (CLOSE 均线８９)) AND (BB10 1)) AND ((CLOSE / OPEN) 1.04)),LOW,'★天马过桥'),COLORCC99FF;
DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
STICKLINE((OPEN = CLOSE),CLOSE,OPEN,2.8,0),COLORFF6C00;
STICKLINE((OPEN = CLOSE),CLOSE,OPEN,2.5,0),COLORFF7B00;
STICKLINE((OPEN = CLOSE),CLOSE,OPEN,2.2,0),COLORFF9C00;
STICKLINE((OPEN = CLOSE),CLOSE,OPEN,1.8,0),COLORFFBE00;
STICKLINE((OPEN = CLOSE),CLOSE,OPEN,1.5,0),COLORFFCC00;
STICKLINE((OPEN = CLOSE),CLOSE,OPEN,1,0),COLORFFFF00;
STICKLINE((CLOSE = OPEN),CLOSE,OPEN,2.8,0),COLOR0000A3;
STICKLINE((CLOSE = OPEN),CLOSE,OPEN,2.5,0),COLOR0000B7;
STICKLINE((CLOSE = OPEN),CLOSE,OPEN,1.8,0),COLOR0000CD;
STICKLINE((CLOSE = OPEN),CLOSE,OPEN,1.5,0),COLOR0000E9;
STICKLINE((CLOSE = OPEN),CLOSE,OPEN,1,0),COLOR0754E9;
STICKLINE((CLOSE = OPEN),CLOSE,OPEN,1,0),COLOR076EF3;
STICKLINE(((((CLOSE / OPEN) 1.04) AND (CLOSE 阻挡)) AND ((CLOSE - REF(CLOSE,1)) 0)),CLOSE,OPEN,2.5,0),COLOR009FFF;
STICKLINE(((((CLOSE / OPEN) 1.04) AND (CLOSE 阻挡)) AND ((CLOSE - REF(CLOSE,1)) 0)),CLOSE,OPEN,2,0),COLOR00B5FF;
STICKLINE(((((CLOSE / OPEN) 1.04) AND (CLOSE 阻挡)) AND ((CLOSE - REF(CLOSE,1)) 0)),CLOSE,OPEN,1.5,0),COLOR00E4FF;
STICKLINE(((((CLOSE / OPEN) 1.04) AND (CLOSE 阻挡)) AND ((CLOSE - REF(CLOSE,1)) 0)),OPEN,LOW,0,0),COLOR00FFFF;
STICKLINE(((((CLOSE / OPEN) 1.04) AND (CLOSE 阻挡)) AND ((CLOSE - REF(CLOSE,1)) 0)),CLOSE,HIGH,0,0),COLOR00FFFF;
STICKLINE(((((CLOSE REF(CLOSE,1)) AND (CLOSE REF(CLOSE,1))) AND (HIGH 阻挡)) AND (CLOSE 阻挡)),OPEN,LOW,0,0),COLORFF76FF;
STICKLINE(((((CLOSE REF(CLOSE,1)) AND (CLOSE REF(CLOSE,1))) AND (HIGH 阻挡)) AND (CLOSE 阻挡)),CLOSE,HIGH,0,0),COLORFF76FF;
STICKLINE(((((CLOSE REF(CLOSE,1)) AND (CLOSE REF(CLOSE,1))) AND (HIGH 阻挡)) AND (CLOSE 阻挡)),CLOSE,OPEN,2.5,0),COLORFF62FF;
STICKLINE(((((CLOSE REF(CLOSE,1)) AND (CLOSE REF(CLOSE,1))) AND (HIGH 阻挡)) AND (CLOSE 阻挡)),CLOSE,OPEN,2,0),COLORFF76FF;
STICKLINE(((((CLOSE REF(CLOSE,1)) AND (CLOSE REF(CLOSE,1))) AND (HIGH 阻挡)) AND (CLOSE 阻挡)),CLOSE,OPEN,1.5,0),COLORFFA8FF;
VVARA:=(CLOSE-REF(OPEN,29))/REF(OPEN,29)*100;
VVARB:=EMA(0.667*REF(VVARA,1)+0.333*VVARA,5);
DRAWTEXT(IF(VOL =1.3*MA(VOL,5) AND COUNT(VVARA =VVARB AND VVARA -17,3)AND REF(LOW,1)=LLV(LOW,120),1,0),LOW*0.95,'★注意买入');
VVAR1:=(HIGH+LOW+OPEN+2*CLOSE)/5;
VVAR2:=REF(VVAR1,1);
VVAR3:=SMA(MAX(VVAR1-VVAR2,0),10,1)/SMA(ABS(VVAR1-VVAR2),10,1)*100;