打印本文
關閉窗口
相關標簽:pid控制算法公式 、 mt4指標編寫 、 算法與程序設計知識點 、 通達信指標公式源碼 、 手機通信達指標公式 、 主力控盤指標公式源碼 、 股票公式源碼大全 、 股票量化指標源碼 、 股票公式指標大全 、 股票指標 公式源碼doc下載 、 股票軟件指標公式 、 通達信指標公式大全 、
?
H黑馬升級
?
原理解析：
?
?來源:程序化99（ www.weiqiv.net.cn ）
源碼：
?
?
MA(CLOSE,P1);
MA(CLOSE,P2);
MA(CLOSE,P3);
MA(CLOSE,P4);
MA(CLOSE,P5);
MA(CLOSE,P6);
上:=(SMA(HIGH,21,2) * 1.05);
DRAWTEXT(FILTER(((((CLOSE < REF(CLOSE,1)) AND (CLOSE < REF(CLOSE,1))) AND (HIGH > 上)) AND (CLOSE < 上)),5),(HIGH + 0.05),'-減倉'),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;
{stickline((((AA12 <= AA10) AND (BB12 >= 1)) AND (BB10 >= 1)),AA10,AA12,4,0),color0000FF;
stickline((((AA12 >= AA10) AND (BB10 <= 1)) AND (BB10 <= 1)),AA10,AA12,4,0),color00FF00;}
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);
均線30:=MA(CLOSE,30);
均線89:=MA(CLOSE,89);
均線:=MA(CLOSE,16);
均線34:=MA(CLOSE,34);
均線55:=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;
均線20:=MA(CLOSE,20);
均線120:=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 > 均線120) AND (均線20 < 均線120)) AND (LOW <= 均線120)) AND ((均線20 - REF(均線20,1)) > 0)) AND (CLOSE > OPEN)) AND ((均線120 - REF(均線120,1)) > 0)) AND (HIGH < RH5)) AND (CLOSE >= 均線120)),15),LOW,'120跳馬'),color0089E0;
DRAWTEXT((((VA AND ((均線120 - REF(均線120,1)) > 0)) AND (HIGH < RH5)) AND (CLOSE > OPEN)),LOW,'寶馬望月'),colorFFFFFF;}
DRAWTEXT((((((均線 - REF(均線,1)) > 0) AND CROSS(均線20,均線120)) AND (LOW <= 均線120)) AND (CLOSE >= 均線120)),LOW,'三線開花'),colorFFFFFF;
短期底部2: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 > 短期底部2)) AND (HIGH < 壓力位)),10),LOW,'短線5%'),color9DC522;
DRAWTEXT(((((((HIGH >= 均線120) AND (CLOSE < REF(CLOSE,1))) AND (CLOSE < REF(CLOSE,1))) AND (HIGH > 上)) AND (CLOSE < 上)) AND (CLOSE < 均線120)),(HIGH + 0.05),'減倉'),color00FF00;
DRAWTEXT(FILTER(((HIGH > 阻擋) AND (CLOSE < 阻擋)),5),(HIGH + 0.15),'←逃命');
DRAWTEXT(((VE > VG) AND (HIGH < 阻擋)),(LOW - 0.65),'黑馬短線'),color00FFFF;
DRAWTEXT(FILTER(((((((((((OPEN < X2) AND (CLOSE > X2)) AND ((支撐 - REF(支撐,1)) > 0)) AND ((支撐 - REF(支撐,1)) > 0)) AND (CLOSE < 阻擋)) AND ((均線 - REF(均線,1)) > 0)) AND (CLOSE >= 均線)) AND (HIGH < 阻擋)) AND ((AA10 - REF(AA10,1)) > 0)) AND ((阻擋 - REF(阻擋,2)) > 0)),11),(LOW - 0.11),'快馬加鞭'),color0000FF;
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,(HIGH * 1.03),'出貨'),color9000F5;
DRAWTEXT((((黑馬起步 > 0) AND (LOW <= X2)) AND ((均線 - REF(均線,1)) > 0)),(LOW - 0.11),'黑馬起步'),color00FF00;
DRAWTEXT((逃遁 > 0),(HIGH * 1.14),'●逃命'),color0000FF;
RDV:=SMA(LOW,8,1);
DRAWTEXT(((((CROSS(K,D) AND (CLOSE >= OPEN)) AND ((X2 - REF(X2,1)) > 0)) AND ((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 <= 均線30) AND ((AA10 - REF(AA10,1)) > 0)) AND ((均線 - REF(均線20,1)) > 0)) AND ((趨勢線 - REF(趨勢線,1)) > 0)) AND (CLOSE >= 均線30)) AND (WINNER(CLOSE) < 0.15)) AND ((CLOSE / OPEN) > 1.01)),3),LOW,'天馬奔月'),color76B0FC;
DRAWTEXT((((((OPEN <= 均線) AND ((均線30 - REF(均線30,1)) > 0)) AND (CLOSE > 均線89)) AND (BB10 > 1)) AND ((CLOSE / OPEN) > 1.04)),LOW,'天馬過橋'),colorCC99FF;
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,9,0),colorFF5B00;
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,8,0),colorFF6C00;
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,7,0),colorFF7B00;
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,6,0),colorFF9C00;
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,5,0),colorFFBE00;
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,3.5,0),colorFFCC00;
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,1.5,0),colorFFFF00;
STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,9,0),color070084;
STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,8,0),color0000A3;
STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,7,0),color0000B7;
STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,6,0),color0000CD;
STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,5,0),color0000E9;
STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,3,0),color0754E9;
STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,1.5,0),color076EF3;
STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,1,0),color077BF3;
STICKLINE((CLOSE > OPEN),OPEN,LOW,1,0),color0726CA;
STICKLINE((CLOSE > OPEN),CLOSE,HIGH,1,0),color0726CA;
STICKLINE((OPEN > CLOSE),CLOSE,LOW,1,0),colorDE9100;
STICKLINE((OPEN > CLOSE),OPEN,HIGH,1,0),colorDE9100;
STICKLINE(((((CLOSE / OPEN) > 1.04) AND (CLOSE < 阻擋)) AND ((CLOSE - REF(CLOSE,1)) > 0)),CLOSE,OPEN,9,0),color0090FF;
STICKLINE(((((CLOSE / OPEN) > 1.04) AND (CLOSE < 阻擋)) AND ((CLOSE - REF(CLOSE,1)) > 0)),CLOSE,OPEN,8,0),color009FFF;
STICKLINE(((((CLOSE / OPEN) > 1.04) AND (CLOSE < 阻擋)) AND ((CLOSE - REF(CLOSE,1)) > 0)),CLOSE,OPEN,4,0),color00B5FF;
STICKLINE(((((CLOSE / OPEN) > 1.04) AND (CLOSE < 阻擋)) AND ((CLOSE - REF(CLOSE,1)) > 0)),CLOSE,OPEN,2,0),color00E4FF;
STICKLINE(((((CLOSE / OPEN) > 1.04) AND (CLOSE < 阻擋)) AND ((CLOSE - REF(CLOSE,1)) > 0)),OPEN,LOW,0.7,0),color00FFFF;
STICKLINE(((((CLOSE / OPEN) > 1.04) AND (CLOSE < 阻擋)) AND ((CLOSE - REF(CLOSE,1)) > 0)),CLOSE,HIGH,0.7,0),color00FFFF;
STICKLINE(((((CLOSE < REF(CLOSE,1)) AND (CLOSE < REF(CLOSE,1))) AND (HIGH > 阻擋)) AND (CLOSE < 阻擋)),OPEN,LOW,0.7,0),colorFF76FF;
STICKLINE(((((CLOSE < REF(CLOSE,1)) AND (CLOSE < REF(CLOSE,1))) AND (HIGH > 阻擋)) AND (CLOSE < 阻擋)),CLOSE,HIGH,0.7,0),colorFF76FF;
STICKLINE(((((CLOSE < REF(CLOSE,1)) AND (CLOSE < REF(CLOSE,1))) AND (HIGH > 阻擋)) AND (CLOSE < 阻擋)),CLOSE,OPEN,9,0),colorFF00FF;
STICKLINE(((((CLOSE < REF(CLOSE,1)) AND (CLOSE < REF(CLOSE,1))) AND (HIGH > 阻擋)) AND (CLOSE < 阻擋)),CLOSE,OPEN,6,0),colorFF62FF;
STICKLINE(((((CLOSE < REF(CLOSE,1)) AND (CLOSE < REF(CLOSE,1))) AND (HIGH > 阻擋)) AND (CLOSE < 阻擋)),CLOSE,OPEN,4,0),colorFF76FF;
STICKLINE(((((CLOSE < REF(CLOSE,1)) AND (CLOSE < REF(CLOSE,1))) AND (HIGH > 阻擋)) AND (CLOSE < 阻擋)),CLOSE,OPEN,2,0),colorFFA8FF;
?
公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】
?