Ⅰ 求助老師給編寫一個macd選股公式
金叉並非萬能，有時剛剛進入金叉或准金叉狀態，也可能是上一波反彈的結束，下一波下跌的開始。只有當金叉周期的前後周期均為上漲趨勢，金叉的威力才最大。業績的持續增長才是技術指標的前提和保證。
1、0軸上方第一次金叉選股公式：
DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);DEA := EMA(DIFF,9);MACD := 2*(DIFF-DEA);select:cross(diff,dea) and dea>-1.0 and dea<0.5 and CLOSE>ref(CLOSE,1) and CLOSE>=ma(c,60);
或：
DIF:=EMA(CLOSE,12)-EMA(CLOSE,26); DEA:=EMA(DIF,9); XG:DIF>0 AND DEA>0 AND CROSS(DIF,DEA);
2、0軸上方二次金叉的選股公式：
JC:IF(SUM(IF(MACD>0 AND CROSS(MACD.DIF,MACD.DEA),1,0),0)-HHV(IF(IF(CROSS(MACD.DEA,0),1,0),SUM(IF(MACD>0 AND CROSS(MACD.DIF,MACD.DEA),1,0),0),0),0)=2 AND SUM(IF(MACD>0 AND CROSS(MACD.DIF,MACD.DEA),1,0),0)>REF(SUM(IF(MACD>0 AND CROSS(MACD.DIF,MACD.DEA),1,0),0),1),10,0);
3.0軸下方一次金叉的選股公式：
DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIFF,9),COLORFFFF00;
MACD:=(DIFF-DEA)*2;
低位金叉:CROSS(DIFF,DEA) AND DIFF<-0.1;
4、0軸下方二次金叉且第二次金叉高於第一次金叉：
DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIF,9);
AA:=BARSLAST(REF(CROSS(DIF,DEA),1));
二次金叉:CROSS(DIF,DEA) AND DIF>REF(DIF,AA+1) AND AA<20 AND DIF<0;
5、0軸下方二次金叉選股公式：
DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26); {選股設JC=10即可}
DEA:=EMA(DIFF,9);
MACD:=2*(DIFF-DEA),COLORSTICK;
A:=IF(CROSS(0,DEA),1,0);
A1:=IF(DIFF<0 AND CROSS(DIFF,DEA),1,0);
SS:=IF(A,SUM(A1,0),0);
SSB:=HHV(SS,0);
SSS:=SUM(A1,0);
JC:IF(SSS-SSB=2 AND SSS>REF(SSS,1),10,0);
股市平衡論---畫線指標公式
指南針指標大全
地尺指標素材
公式編寫(2)
主\副圖BS指標
加碼價與買進價豎線指標
2>1技術
6、縮量橫盤突破選股：
WH01:=(HHV(C,10)-LLV(C,10))/LLV(C,10)*100<=10;
WH02:=SUM(VOL,10)/CAPITAL*100<45;
WH03:=REF(WH01,1);
WH04:=HHVBARS(HIGH,55)>20 OR C=HHV(H,55);
WH05:=WH02 AND WH03 AND WH04 AND C>REF(HHV(H,10),1);
WH05 AND REF(NOT(WH05),1);
7、均線、KDJ、MACD金叉的預警選股公式
完全符合以下條件：
1、5日線上穿10日線
2、MACD金叉
3、KDJ金叉（KDJ數值由9、3、3調整為9、9、9）
4、成交量指標金叉
日線MACD的一個長期參數，對於研判大盤的中長期走勢有非常好的幫助，現在拿出來無私奉獻給大家，希望對大家有用，只要你覺得不是水貨，就頂一下，讓更多的人看到。
1：MACD（13 ，154，9）
2：用它數波浪將不再困難。
3：用它可以判斷一個中期波段絕對的頂和絕對的底。
4：在這里金叉和死叉將非常值錢。
通達信預警選股公式
A1:=CROSS(MA(C,5),MA(C,10));
A2:=CROSS("MACD.DIF","MACD.DEA");
A3:=CROSS("KDJ.K"(9,9,9),"KDJ.D"(9,9,9));
A4:=CROSS(MA(V,5),MA(V,10));
XG:A1 AND A2 AND A3 AND 4;
三金叉選股完整源碼，絕無未來函數
均線、成交量、MACD同時金叉
MA1:=MA(CLOSE,5);
MA2:=MA(CLOSE,10);
AA:=CROSS(MA1,MA2);
AAA:=COUNT(AA,3)>=1;
T1:=MA(VOL,5);
T2:=MA(VOL,10);
BB:=CROSS(T1,T2);
BBB:=COUNT(BB,3)>=1;
DIF:=EMA(CLOSE,12) - EMA(CLOSE,26);
DEA:=EMA(DIF,9);
MACD:=(DIF-DEA)*2;
CC:=CROSS(DIF,DEA);
CCC:=COUNT(CC,3)>=1;
三金:=AAA AND BBB AND CCC;
三金叉:FILTER(三金,3),COLORFF00FF;
使用說明：該選股公式適合超級短線，快進快出具有一定的風險因素，此時的股價往往處於拉高拔升階段。要求使用者特別關注股價所處的位置，如果過於高位防止莊家誘多。低位可大膽搏殺，短期回檔被套也有迴旋餘地。
------------------------------------------------------------------
6、四線粘合
N1:=5;N2:=10;N3:=20;M:=1;
MA1:=MA(C,N1);MA2:=MA(C,N2);MA3:=MA(C,N3);
A3:=V>REF(V,1)*1.5 AND V>MA(V,5);
MAX(MA1,MAX(MA2,MA3))/MIN(MA1,MIN(MA2,MA3))<1+0.01*M
AND C>O AND V> REF(V,1) AND FINANCE(7)<=300000000
AND A3 AND CAPITAL<=300000000;
7、均線粘合
M:=1;
M5:=MA(CLOSE,5);
M10:=MA(CLOSE,10);
M20:=MA(CLOSE,20);
K1:=MAX(MAX(M5,M10),MAX(M10,M20));
K2:=MIN(MIN(M5,M10),MIN(M10,M20));
A:=MAX(M5,MAX(M10,M20))/MIN(M5,MIN(M10,M20))<1+0.01*M;
A1:=(K1/K2-1)<0.005;
A2:=(K1/K2-1)<0.005;
A3:=V>REF(V,1)*1.5 AND V>MA(V,5);
XG:A AND A1 AND A2 AND A3 ;
8、多線粘合
V0:=EMA(C,5);
V1:=EMA(C,10);
V2:=EMA(C,15);
V3:=EMA(C,30);
V4:=EMA(C,60);
M1:=1000*V1/V4<=1015 AND 1000*V1/V4>=975;
M2:=1000*V2/V4<=1020 AND 1000*V2/V4>=980;
M3:=1000*V3/V4<=1015 AND 1000*V3/V4>=985;
M4:=M1 AND M2 AND M3 AND CROSS(V0,V1);
M5:=M1 AND M2 AND M3 AND CROSS(V0,V3);
M4 OR M5;
9、MACD天天掙錢選股指標公式
DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIFF,9);
XG:CROSS(REF(DEA,1),REF(DIFF,1)) AND CROSS(DIFF,DEA);
10、短線之王
VAR1:=(-100)*(HHV(HIGH,3)-CLOSE)/(HHV(HIGH,3)-LLV(LOW,3));
CROSS(VAR1,-87) AND OPEN=1.099*REF(CLOSE,1) AND INDEXC>0.98*REF(INDEXC,1) AND CLOSE<=1.47*LLV
(CLOSE,58);
---------------------------------------------------------------------
以上公式經過驗證有效！下面公式有待驗證。
---------------------------------------------------------------------
股市平衡論---畫線指標公式
指南針指標大全
地尺指標素材
公式編寫(2)
主\副圖BS指標
加碼價與買進價豎線指標
2>1技術
【通達信】超准MACD（低位金叉、頂背離、零下二次金叉）-指標公式源碼
SQX:=(C-MA(CLOSE,13))*100;
DIFF:EMA(MA(SQX,7),1),COLORWHITE;
DEA:EMA(DIFF,7),COLORYELLOW;
MACD:(DIFF-DEA)*2,COLORSTICK;
低位金叉:IF(CROSS(DIFF,DEA) AND DIFF<-0.1,15,DRAWNULL),COLORYELLOW,LINETHICK4,CROSSDOT;
JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));
二次金叉:IF(CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1,28,DRAWNULL),COLORFF00FF,LINETHICK4,CROSSDOT;
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
底背離:IF(REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA),40,DRAWNULL),COLORRED,LINETHICK4,CROSSDOT;
勢:DRAWLINE(A1=0,DEA,底背離,DEA,0),COLORGREEN;{,COLORRED;}
A2:=BARSLAST(REF(CROSS(DEA,DIFF),1));
頂背離:=REF(CLOSE,A2+1)DIFF AND CROSS(DEA,DIFF),COLORWHITE;
頂背離_:IF(REF(CLOSE,A2+1)DIFF
AND CROSS(DEA,DIFF),66,DRAWNULL)
,COLORF08000,LINETHICK4,CROSSDOT;
壓:DRAWLINE(A2=0,DEA,頂背離,DEA,0),COLORFFBB99;
A3:=CROSS(DIFF,DEA) AND DEA<0;
Ⅱ 最佳MACD拉升預警指標公式
公式：
1.SHORT:=6;LONG:=30;MID:=9;DIFF:
EMA(CLOSESHORT)-EMA(CLOSE,LONG);
DEA:EMA(DIFF,MID);
MACD:2*(DIFF-DEA),
COLORSTICK,LINETHICK2;
低位金叉:=CROSS(DIFFDEA)AND DIFF<-0.1;
2.STICKLINE(低位金叉,000860),COLORYELLOW;
DRAWTEXT(低位金叉016，低位金叉'),COLORWHITE;
JCCOUNT-COUNTICROSSIDIFEDEALBARSL
AST(DEA>=0));
二次金叉:=CROSS(DIFFDEA)AND DEA<0
AND COUNT(JCCOUNT=2,21)=1;
STICKLINE(二次金叉00.0660)COLORFFOFF;
DRAWICON(二次金叉DEA*091);
DRAWTEXT(二次金叉02二次金叉'),COLORYELLOW;
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
3.底背離:=REF(CLOSEA1+1)>CLOSEAND
DIFF>REF(DIFFA1+1)AND CROSS(DIFF,DEA)
STICKLINE(底背離000360)COLOROOFF00:
底背:DRAWLINE(A1=0,DEA,底背
離,DEAO)COLORRED,LINETHICK4;
DRAWTEXT(底背離012，底背會 COLOREFOOFF
拓展資料：
一、MACD稱為異同移動平均線，是從雙指數移動平均線發展而來的，由快的指數移動平均線（EMA12）減去慢的指數移動平均線（EMA26）得到快線DIF，再用2×（快線DIF-DIF的9日加權移動均線DEA）得到MACD柱。MACD的意義和雙移動平均線基本相同，即由快、慢均線的離散、聚合表徵當前的多空狀態和股價可能的發展變化趨勢，但閱讀起來更方便。MACD的變化代表著市場趨勢的變化，不同K線級別的MACD代表當前級別周期中的買賣趨勢。
二、MACD在應用上應先行計算出快速（一般選12日）移動平均值與慢速（一般選26日）移動平均值。以這兩個數值作為測量兩者（快速與慢速線）間的「差離值」依據。所謂「差離值」（DIF），即12日EMA數值減去26日EMA數值。因此，在在持續的漲勢中，12日EMA在26日EMA之上。其間的正差離值（+DIF）會愈來愈大。反之在跌勢中，差離值可能變負（-DIF），此時是絕對值愈來愈大。至於行情開始回轉，正或負差離值要縮小到一定的程度，才真正是行情反轉的信號。MACD的反轉信號界定為「差離值」的9日移動平均值（9日DIF）。 在MACD的異同移動平均線計算公式中，都分別加T+1交易日的份量權值，以現在流行的參數12和26為例，其公式如下：
三、首先計算出快速移動平均線（即EMA1）和慢速移動平均線（即EMA2），以此兩個數值，來作為測量兩者（快慢速線）間的離差值（DIF）的依據，然後再求DIF的N周期的平滑移動平均線DEA（也叫MACD、DEM）線。以EMA1的參數為12日EMA2的參數為26日，DIF的參數為9日為例來看看MACD的計算過程
1、計算指數移動平均值（EMA）
12日EMA的算式為
EMA（12）=前一日EMA（12）×11/13+今日收盤價×2/13
26日EMA的算式為
EMA（26）=前一日EMA（26）×25/27+今日收盤價×2/27
2、計算離差值（DIF）
DIF=今日EMA（12）－今日EMA（26）
3、計算DIF的9日EMA
根據離差值計算其9日的EMA，即離差平均值，是所求的MACD值。為了不與指標原名相混淆，此值又名
DEA或DEM。
今日DEA（MACD）=前一日DEA×8/10+今日DIF×2/10。
4、計算出的DIF和DEA的數值均為正值或負值。
用（DIF-DEA）×2即為MACD柱狀圖。
故MACD指標是由兩線一柱組合起來形成，快速線（白色線）為DIF，慢速線（黃色線）為DEA，柱狀圖為MACD。
五、在各類投資中，有以下方法供投資者參考：
1.當DIF和DEA均大於0(即在圖形上表示為它們處於零線以上)並向上移動時，一般表示為行情處於多頭行情中，可以買入開倉或多頭持倉；
2.當DIF和DEA均小於0(即在圖形上表示為它們處於零線以下)並向下移動時，一般表示為行情處於空頭行情中，可以賣出開倉或觀望。
3.當DIF和DEA均大於0(即在圖形上表示為它們處於零線以上)但都向下移動時，一般表示為行情處於下跌階段，可以賣出開倉和觀望；
4.當DIF和DEA均小於0時(即在圖形上表示為它們處於零線以下)但向上移動時，一般表示為行情即將上漲，股票將上漲，可以買入。
Ⅲ 最佳MACD拉升預警指標公式
低位金叉:=crOSS(DIFF,DEA) AND DIFF<-0.1;
STICKLINE(低位金叉,0,0.08,6,0),COLORYELLOW;DRAWTEXT(低位金叉,0.16,' 低位金叉'),COLORWHITE;JCCOUNT:=COUNT(CROSS(DIFF,DEA),BArslAST(DEA>=0));二次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;STICKLINE(二次金叉,0,0.06,6,0),COLORFF00FF;DRAWICON(二次金叉,DEA*0.9,1) ；DRAWTEXT(二次金叉,0.2,' 二次金叉'),COLORYELLOW;A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));底背離:=REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA);
拓展資料：
1. MACD稱為異同移動平均線，是從雙指數移動平均線發展而來的，由快的指數移動平均線（EMA12）減去慢的指數移動平均線（EMA26）得到快線DIF，再用2×（快線DIF-DIF的9日加權移動均線DEA）得到MACD柱。MACD的意義和雙移動平均線基本相同，即由快、慢均線的離散、聚合表徵當前的多空狀態和股價可能的發展變化趨勢，但閱讀起來更方便。MACD的變化代表著市場趨勢的變化，不同K線級別的MACD代表當前級別周期中的買賣趨勢。
2. MACD應首先計算應用中的快速（通常為12天）移動平均線和慢速（通常為26天）移動平均線。這兩個值用作測量兩條線（快線和慢線）之間「差值」的基礎。所謂差值（DIF）是12天EMA值減去26天EMA值。因此，在持續上漲中，12日均線高於26日均線。正偏差（+DIF）將變得越來越大。相反，在下降趨勢中，差值可能變為負值（-DIF），此時絕對值越來越大。隨著市場開始轉向，正偏差或負偏差應在一定程度上減小，這才是市場反轉的真正信號。MACD的反轉信號定義為「差值」（9天DIF）的9天移動平均值。在MACD的異同移動平均線計算公式中，分別增加了T+1交易日的權重。以常用參數12、26為例，公式如下：首先計算快速移動平均（即ema1）和慢速移動平均（即ema2），並將這兩個值作為測量兩條（快速線和慢速線）之間偏差（DIF）的基礎，然後計算出DIF的N圈平滑移動平均DEA（也稱MACD和DEM）線。以ema1為12天，ema2為26天，dif為9天為例，了解MACD的計算過程1.計算指數移動平均值（EMA）12天EMA的計算公式為均線（12）=前一日均線（12）×11/13+今日收盤價×2/1326日EMA的計算公式為均線（26）=前一日均線（26）×25/27+今日收盤價×2/272.計算偏差（DIF）DIF=今日均線（12）-今日均線（26）3.計算dif的9天均線9天均線，即平均偏差，根據偏差計算，即計算得出的MACD值。為了不與指示器的原始名稱混淆，此值也被稱為DEA或DEM。今天的DEA（MACD）=前一天的DEA×8/10+今天的dif×2/10DIF和DEA的計算值為正或負。對於（dif-dea）×2是MACD直方圖。
Ⅳ macd指標的計算公式
MACD稱為指數平滑異同移動平均線，是從雙移動平均線發展而來的，由快的移動平均線減去慢的移動平均線，MACD的意義和雙移動平均線基本相同，但閱讀起來更方便。當MACD從負數轉向正數，是買的信號。當MACD從正數轉向負數，是賣的信號。當MACD以大角度變化，表示快的移動平均線和慢的移動平均線的差距非常迅速的拉開，代表了一個市場大趨勢的轉變。
DIF線（Difference）收盤價短期、長期指數平滑移動平均線間的差 DEA線（Difference Exponential Average）DIFF線的M日指數平滑移動平均線 MACD線DIFF線與DEA線的差，彩色柱狀線 參數：SHORT(短期)、LONG(長期)、M天數，一般為12、26、9 公式如下所示：
加權平均指數（DI）=（當日最高指數+當日收盤指數+2倍的當日最低指數）
十二日平滑系數（L12）=2/（12+1）=0.1538
二十六日平滑系數（L26）=2/（26+1）=0.0741
十二日指數平均值（12日EMA）=L12×當日收盤指數 + 11/（12+1）×昨日的12日EMA
二十六日指數平均值（26日EMA）=L26×當日收盤指數 + 25/（26+1）×昨日的26日EMA
DIFF : EMA(CLOSE,SHORT) - EMA(CLOSE,LONG);
DEA : EMA(DIFF,M);
MACD : 2*(DIFF-DEA), COLORSTICK
Ⅳ 求大師分享，告訴我這個紅綠背景主圖是什麼指標公式源碼。那裡可以下載
NA:=STRCAT(CON2STR(YEAR,0),' 年 ');
YA:=STRCAT(CON2STR(MONTH,0),' 月 ');
RA:=STRCAT(CON2STR(DAY,0),' 日 ');
SJ:=STRCAT(STRCAT(NA,YA), RA);
DRAWTEXT_FIX(C>0,0.88,0,0,SJ);
{布林+寶塔+藍灰操盤}
{藍灰底}
買線:=EMA(C,2);
賣線:=EMA(SLOPE(C,21)*20+C,42);
STICKLINE(買線>=賣線,HHV(H,60),LLV(L,60),5,0),COLOR000045;
STICKLINE(買線<賣線,HHV(H,60),LLV(L,60),5,0),COLOR004500;
{紅軌道}
紅軌道:=MA(MA(CLOSE,3),1),LINETHICK1,COLORYELLOW;
軌道:MA(MA(CLOSE,3),3),COLOR32CD32,LINETHICK2;
SHENG:=IF(紅軌道>=軌道,軌道,DRAWNULL);
升:SHENG,COLORMAGENTA,LINETHICK2;
{變色K線}
N1:=14;
M:=6;
TR1:=EXPMEMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),N1);
HD :=HIGH-REF(HIGH,1);
LD :=REF(LOW,1)-LOW;
DMP:=EXPMEMA(IF(HD>0&&HD>LD,HD,0),N1);
DMM:=EXPMEMA(IF(LD>0&&LD>HD,LD,0),N1);
PDI:=DMP*100/TR1,LINETHICK2;
MDI:=DMM*100/TR1;
ADX:=EXPMEMA(ABS(MDI-PDI)/(MDI+PDI)*100,M);
ADXR:=EXPMEMA(ADX,M);
VAR1:=CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2);
VAR2:=REF(VAR1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR3:=REF(VAR2,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR4:=REF(VAR3,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR5:=REF(VAR4,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR6:=REF(VAR5,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR7:=REF(VAR6,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR8:=REF(VAR7,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR9:=REF(VAR8,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VARA:=REF(VAR9,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VARB:=REF(VARA,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VARC:=REF(VARB,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
STICKLINE(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA OR VARB OR VARC,CLOSE,REF(CLOSE,1),3,1),COLOR0000FF;
VARD:=CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2);
VARE:=REF(VARD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VARF:=REF(VARE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR10:=REF(VARF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR11:=REF(VAR10,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR12:=REF(VAR11,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR13:=REF(VAR12,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR14:=REF(VAR13,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR15:=REF(VAR14,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR16:=REF(VAR15,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR17:=REF(VAR16,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR18:=REF(VAR17,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
STICKLINE(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,CLOSE,REF(CLOSE,1),3,0),COLORC08000;
VAR19:=REF(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,1) AND VAR1;
STICKLINE(VAR19,REF(CLOSE,1),REF(CLOSE,2),3,0),COLORMAGENTA ;
VAR1A:=REF(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA OR VARB OR VARC,1) AND VARD;
STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),3,0) ,COLOR00FF00; }
{箱體線}
N:=7;
T1:=CONST(LLVBARS(LOW,N));
T1HIGH:=CONST(REF(HIGH,T1));
CC:=CONST(CURRBARSCOUNT);
T2:=CONST(BARSLAST((CURRBARSCOUNT >(CC+T1)) AND (HIGH>T1HIGH)));
T2HIGH:=CONST(REF(HIGH,T2));
T3:=CONST(BARSLAST((CURRBARSCOUNT >(CC+T2)) AND (HIGH>T2HIGH)));
T3HIGH:=CONST(REF(HIGH,T3));
突破殺入線:DRAWLINE(CURRBARSCOUNT=T3+1, T3HIGH, ISLASTBAR, T3HIGH, 1),LINETHICK1,COLORYELLOW;
DRAWTEXT(ISLASTBAR, T3HIGH, '殺入線!'),LINETHICK1,COLORYELLOW;
AB:=EMA(((2*C+H+L)/4-LLV(LOW,30))/(HHV(HIGH,30)-LLV(LOW,30))*100,8);
BA:=EMA(AB,5);
A1{高}:=REFDATE(REF(HHV(H,96),5),DATE);
B1{低}:=REFDATE(REF(LLV(L,96),5),DATE);
DY{中}:=((A1)+(B1))/2;
箱頂:IF(AB>0 AND AB-BA<=0,A1,A1),COLORGREEN,DOTLINE;
箱腰:IF(AB>0 AND AB-BA<=0,DY,DY),COLORYELLOW,DOTLINE;
箱低:IF(AB>0 AND AB-BA<=0,B1,B1),COLORRED,DOTLINE;
DRAWTEXT(ISLASTBAR,箱頂,'箱頂'),COLORYELLOW;
DRAWTEXT(ISLASTBAR,箱腰,'箱腰'),COLORYELLOW;
DRAWTEXT(ISLASTBAR,箱低,'箱低'),COLORYELLOW;
VARAA:=IF(CLOSE>150,91.3,0.913);
{突破:INTPART(CLOSE/VARAA )*VARAA,POINTDOT,LINETHICK4,COLORRED;
再突破:突破+VARAA,POINTDOT,LINETHICK4,COLOR00FF00 ;
回踩:(突破+再突破)/2,POINTDOT,COLORWHITE,LINETHICK4;}
STICKLINE(CROSS(ZIG(3,5),REF(ZIG(3,5),1)),箱低,箱腰,0.1,-1),COLORRED;
STICKLINE(CROSS(REF(ZIG(3,5),1),ZIG(3,5)),箱頂,箱腰,0.1,-1),COLORGREEN;
DRAWICON(CROSS(ZIG(3,5),REF(ZIG(3,5),1)),箱腰,1);
DRAWICON(CROSS(REF(ZIG(3,5),1),ZIG(3,5)),箱腰,2);
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.02,0.01,0,'K線底部出紅色或粉色，可低吸建倉！'),COLORRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.02,0.05,0,'綠點表示長期的壓力點！'),COLORGREEN;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.02,0.10,0,'白點表示中短期的壓力和支撐點，'),COLORGREEN;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.02,0.16,0,'紅點表示有效支撐或突破長中短期壓力點！股價向下跌破，原則清倉！'),COLORGREEN;
EE:=(H+L+O+2*C)/5;
CRTP:=EE+(H-L);
CRZL:=2*EE-L;
CRZC:=2*EE-H;
CRFZ:=EE-(H-L);
高:CONST(CRTP),COLORRED;
阻:CONST(CRZL),COLORC7C9FF;
支:CONST(CRZC),COLOR7C9CFF;
反:CONST(CRFZ),COLORDD00DD;
DRAWTEXT(ISLASTBAR, 反, '反轉價'),LINETHICK1,COLORDD00DD;
DRAWTEXT(ISLASTBAR, 支, '支撐'),LINETHICK1,COLOR7C9CFF;
DRAWTEXT(ISLASTBAR, 阻, '阻力'),LINETHICK1,COLORC7C9FF;
DRAWTEXT(ISLASTBAR, 高, ' 高破線'),LINETHICK1,COLORGREEN;
均線:=EXPMA(C,12),COLORGRAY,LINETHICK2;
日:=50;
昨前:=3;
高2:=REF(HHV(H,日),昨前);
低2:=REF(LLV(L,日),昨前);
H4:=高2-(高2-低2)*0.618;
H5:=高2-(高2-低2)*0.809;
支撐80.9%:REFDATE(H5,DATE),COLORRED;
支撐61.8%:REFDATE(H4,DATE),COLORGREEN,;
STICKLINE(CURRBARSCOUNT=1,支撐80.9%,支撐80.9%,300,-1),COLORGREEN;
STICKLINE(CURRBARSCOUNT=1,支撐61.8%,支撐61.8%,300,-1),COLORRED;
DRAWTEXT(CURRBARSCOUNT=1 AND 支撐80.9%,支撐80.9%,'備錢'),COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=1 AND 支撐61.8%,支撐61.8%,'轉運'),COLORRED;
WH1:=IF(L=LLV(L,9),L,0);
WH2:=CONST(BARSLAST(WH1!=0));
WH3:=CONST(IF(WH2=0,H,REF(H,WH2)));
WH4:=CONST(REF(BARSLAST(H>WH3),WH2+1)+WH2+1);
WH5:=CONST(IF(WH4=0,H,REF(H,WH4)));
WH6:=CONST(REF(BARSLAST(H>WH5),WH4+1)+WH4+1);
WH7:IF(CURRBARSCOUNT<=WH2+10,CONST(IF(WH6=0,H,REF(H,WH6))),DRAWNULL),COLORRED,DOTLINE;
STICKLINE(CURRBARSCOUNT<=WH2+1 AND L=LLV(L,9),O,C,3,0),COLORRED;
DRAWTEXT(CURRBARSCOUNT=WH2+10,WH7,'LINE'),COLORRED;
DRAWTEXT(ISLASTBAR,WH7,'進場'),COLORRED;
WH8:IF(CURRBARSCOUNT<=WH2+1,IF(L=LLV(L,9),L,DRAWNULL),DRAWNULL),CIRCLEDOT;
H81:=IF(H=HHV(H,9),H,DRAWNULL);
H82:=CONST(BARSLAST(H81!=DRAWNULL));
H83:=CONST(IF(H82=0,L,REF(L,H82)));
H84:=CONST(REF(BARSLAST(L<H83),H82+1)+H82+1);
H85:=CONST(IF(H84=0,L,REF(L,H84)));
H86:=CONST(REF(BARSLAST(L<H85),H84+1)+H84+1);
H87:=IF(CURRBARSCOUNT<=H82+10,CONST(IF(H86=0,L,REF(L,H86))),DRAWNULL),DOTLINE;
H88:=IF(CURRBARSCOUNT<=H82+1,IF(H=HHV(H,9),H,DRAWNULL),DRAWNULL),CIRCLEDOT;
DRAWTEXT(CURRBARSCOUNT=H82+10,H87,'LINE'),COLORYELLOW;
DRAWTEXT(ISLASTBAR,H87,'止損'),COLORYELLOW;
DIF:=EMA(DCLOSE,12)-EMA(DCLOSE,26);
DEA:=EMA(DIF,9);
AAA:=(DIF-DEA)*2*60;
起爆:=CROSS(AAA-REF(AAA,1),15);
DRAWTEXT(起爆,MA(L,3),'↖暴張'),COLORYELLOW,LINETHICK2;
LC:=REF((O+H+L+2*C)/5,1);
{短線擒黑碼}
RSI:=SMA(MAX(C-LC,0),7,1)/SMA(ABS(C-LC),7,1)*10;
TYP:=(HIGH+LOW+CLOSE)/3;
CCI:=(TYP-MA(TYP,23))/(0.015*AVEDEV(TYP,23));
買:=CROSS(RSI,7.1) AND MA(V,5)>MA(V,10),COLORRED;
DRAWTEXT(CROSS(RSI,7.1) AND MA(V,5)>MA(V,10),MA(L,3),'↖◆短線擒黑碼◆'),COLORWHITE;
DRAWICON(買,MA(L,3),17);
賣:=CROSS(7.1,RSI) AND MA(V,10)>MA(V,5),COLORGREEN;
DRAWTEXT(CROSS(7.1,RSI) AND MA(V,10)>MA(V,5),箱頂,'■■逃跑■■'),COLORGREEN;
DRAWICON(賣,MA(H,3),28);
{絕密買點}
A81:=EMA(C,3),COLORWHITE;
A82:=EMA(C,5),COLORYELLOW;
A83:=EMA(C,7),COLORMAGENTA;
A84:=EMA(C,12),COLORGREEN;
A85:=EMA(C,20),COLORRED;
A86:=EMA(C,50),COLORBLUE,LINETHICK2;
SS8:=CROSS(A81,A85) AND C>O AND C>REF(C,1) AND C/REF(C,1)>=1.018 ;
SSS8:=CROSS(A81,A85) AND C>O AND C>REF(C,1) AND C/REF(C,1)>=1.018;
DRAWICON(SS8 ,MA(L,3),5);
DRAWTEXT(SS8,MA(L,3),'↖絕密買點'),COLORYELLOW;
ZYX1:="DMI.PDI"(12,6);
ZYX2:="DMI.MDI"(12,6);
ZYX3:=ZYX1>65 AND ZYX1>REF(ZYX1,1);
ZYX4:=LLV(ZYX1,0);
ZYX5:=BARSLAST(ZYX4=ZYX1);
ZYX6:=(0-REF(ZYX2,4))/(ZYX4-REF(ZYX2,ZYX5))>2;
ZYX7:=ZYX1>REF(ZYX1,1);
ZYX8:=VOL>2*MA(VOL,30);
ZYX9:="DMI.ADX"(12,6);
ZYXA:="DMI.ADXR"(12,6);
ZYXB:=CLOSE>MA(CLOSE,30) AND CLOSE<MA(CLOSE,30)*1.04;
ZYXC:=MA(CLOSE,30)>REF(MA(CLOSE,30),1);
ZYXD:=BARSLAST(CROSS(MA(CLOSE,5),MA(CLOSE,10)))<BARSLAST(CROSS(MA(CLOSE,10),MA(CLOSE,5)));
{ZYXE:=0-"MACD.DIFF"(7,21,3);}
ZYXF:=TROUGHBARS(3,15,1)<4;
ZYX10:=EMA(CLOSE,30)>REF(EMA(CLOSE,30),2);
ZYX11:=IF(ZYXF=1,50,0);
ZYX12:=CROSS(ZYX2,ZYX1) AND CROSS(ZYXA,ZYX9);
ZYX13:=CROSS(ZYX2,ZYX1) AND CROSS(ZYX9,ZYXA);
ZYX14:=ZYXB AND ZYXC AND ZYXD AND ZYX10 AND ZYX6 AND ZYX7 AND ZYX8*50;
ZYX15:=BARSLAST(CROSS(ZYX2,ZYX1)=1);
ZYX16:=BARSLAST(CROSS(ZYX1,ZYX2)=1);
ZYX17:=HHV(ZYX1,ZYX16);
ZYX18:=BARSLAST(ZYX1=ZYX17);
{STICKLINE(FILTER(ZYXF=1,5),50,0,10,0),COLORRED;}
ZYX19:=ZYX3 OR ZYX12 OR ZYX13*100;
ZYX1A:=ZYX13*100;
DRAWICON(FILTER(ZYXF=1,3),MA(L,3),23);
DRAWTEXT(FILTER(ZYXF=1,3),箱低,'■■鐵底■■'),COLORGREEN;
{量能平台}
ND:=10;
PTD:=CONST(LLVBARS(V,ND));
TDPX:IF(CURRBARSCOUNT<=ND,CONST(IF(PTD=0,O,REF(O,PTD))),DRAWNULL),COLORFF0000;
IF(CURRBARSCOUNT=PTD+1,TDPX,DRAWNULL),CIRCLEDOT,COLORFF0000,LINETHICK2;
DRAWTEXT(ISLASTBAR,TDPX,' 【地平線】'),COLORFF0000;
G21:=30;
T112:=CONST(HHVBARS(V,G21));
T122:=IF(CURRBARSCOUNT<=G21+7,CONST(IF(T112=0,H,REF(H,T112))),DRAWNULL);
T122A:=IF(CURRBARSCOUNT=T112+1,T122,DRAWNULL),CIRCLEDOT,COLORWHITE;
DRAWTEXT(ISLASTBAR,T122,'30天量能平台'),COLORWHITE;
W10:=10;
TW1:=CONST(HHVBARS(V,W10));
TW0:=IF(CURRBARSCOUNT<=W10+7,CONST(IF(TW1=0,C,REF(C,TW1))),DRAWNULL);
TW0A:=IF(CURRBARSCOUNT=TW1+1,TW0,DRAWNULL),CIRCLEDOT,COLORWHITE;
DRAWTEXT(ISLASTBAR,TW0,'10量能平台'),COLORWHITE;
W20:=20;
TW20:=CONST(HHVBARS(V,W20));
TW22:=IF(CURRBARSCOUNT<=W20+7,CONST(IF(TW20=0,C,REF(C,TW20))),DRAWNULL);
TW22A:=IF(CURRBARSCOUNT=TW20+1,TW22,DRAWNULL),COLORWHITE;
DRAWTEXT(ISLASTBAR,TW22,'20量能平台'),COLORWHITE;
MW:=10;
MW1:=CONST(LLVBARS(V,MW));
MW0:=IF(CURRBARSCOUNT<=MW+7,CONST(IF(MW1=0,O,REF(O,MW1))),DRAWNULL);
MW0A:=IF(CURRBARSCOUNT=MW1+1,MW0,DRAWNULL),CIRCLEDOT,COLORWHITE;
DRAWTEXT(ISLASTBAR,MW0,'地量反彈量能平台'),COLORWHITE;
{N1:=18;N2:=36;N3:=55;}
EM1:=EMA(C,18),NODRAW;
EM2:=EMA(C,36),COLORRED;
EM3:=EMA(C,55),COLORGREEN;
TJ8:=BETWEEN(EM2,EM1,EM3);
{DRAWICON(TJ8=0,L,14);}
B18:='<-----------------財富平台';
DRAWTEXT(VOL=HHV(VOL,20),C ,B18),COLORRED;
{超跌反彈}
RSV:=(CLOSE-LLV(LOW,11))/(HHV(HIGH,11)-LLV(LOW,11))*100;
短期底部:=LLV(OPEN,30);
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=(3*K-2*D),LINETHICK2;
D2:=SMA(J,3,1)*0.82;