HaP MACD 指標詳解：更快回應的動量與趨勢識別工具

1
// This Pine Script® code is subject to the terms of the Mozilla Public License 2.0 at https://mozilla.org/MPL/2.0/
2
// © agahakanaga
3

4
//@version=6
5
indicator("HaP MACD", shorttitle="HaP MACD", timeframe = "", timeframe_gaps = true)
6

7
// --- 輸入參數 ---
8
float  sourceInput  = input.source(close, "數據源")
9
int    fastLenInput = input.int(12, "快線週期",   1)
10
int    slowLenInput = input.int(26, "慢線週期",   1)
11
int    sigLenInput  = input.int(9,  "信號線週期", 1)
12
string oscTypeInput = input.string("EMA", "振盪器MA類型", ["EMA", "SMA"])
13
string sigTypeInput = input.string("EMA", "信號線MA類型",     ["EMA", "SMA"])
14

15
// --- 函數定義 ---
16
f_dema(source, length) =>
17
    ema1 = ta.ema(source, length)
18
    ema2 = ta.ema(ema1, length)
19
    2 * ema1 - ema2
20

21
ma(float source, int length, simple string maType) =>
22
    switch maType
23
        "EMA" => ta.ema(source, length)
24
        "SMA" => ta.sma(source, length)
25

26
// --- 1. 標準MACD計算 ---
27
float maFast = ma(sourceInput, fastLenInput, oscTypeInput)
28
float maSlow = ma(sourceInput, slowLenInput, oscTypeInput)
29
float macd   = maFast - maSlow
30
float signal = ma(macd, sigLenInput, sigTypeInput)
31
float hist   = macd - signal
32

33
// --- 2. DEMA MACD計算 (用於信號點) ---
34
fast_dema = f_dema(sourceInput, fastLenInput)
35
slow_dema = f_dema(sourceInput, slowLenInput)
36
dema_macd_line = fast_dema - slow_dema
37
dema_signal_line = f_dema(dema_macd_line, sigLenInput)
38

39
// --- 條件和交叉判斷 ---
40
dema_ustunde = dema_macd_line > dema_signal_line
41
dema_signal_egim_pozitif = dema_signal_line > dema_signal_line[1]
42
buy_condition = dema_ustunde and dema_signal_egim_pozitif
43
is_first_signal = buy_condition and not buy_condition[1]
44

45
// 出場點邏輯
46
// 如果前一根K線有信號點而當前沒有，則顯示紅色點
47
orange_dot_condition = buy_condition[1] and not buy_condition
48

49
bull_cross = ta.crossover(macd, signal)
50
bear_cross = ta.crossunder(macd, signal)
51

52
// --- 顏色邏輯 (信號點用) ---
53
color dot_color = if is_first_signal
54
    color.blue
55
else if buy_condition
56
    macd > macd[1] ? color.green : color.orange
57
else
58
    na
59

60
// --- 繪圖 ---
61
hline(0, "零軸", color=color.new(color.gray, 50))
62

63
hColor = hist >= 0 ? hist > hist[1] ? #26a69a : #b2dfdb : hist > hist[1] ? #ffcdd2 : #ff5252
64
plot(hist, "柱狀圖", hColor, style = plot.style_columns, display = display.none)
65

66
plot(macd, "MACD線", color=color.black, linewidth=1)
67
plot(signal, "信號線", color=#ff6d00, linewidth=1)
68

69
// 1. DEMA信號點 (藍色, 綠色, 橙色)
70
plotshape(buy_condition ? macd : na,
71
     title="HaP信號點",
72
     style=shape.circle,
73
     location=location.absolute,
74
     color=dot_color,
75
     size=size.tiny)
76

77
// 出場點
78
plotshape(orange_dot_condition ? macd : na,
79
     title="HaP出場點",
80
     style=shape.circle,
81
     location=location.absolute,
82
     color=color.red,
83
     size=size.tiny)
84

85
// 3. 交叉信號
86
// 金叉 (買入)
87
plotshape(bull_cross ? macd : na,
88
     title="MACD金叉",
89
     style=shape.triangleup,
90
     location=location.absolute,
91
     color=color.lime,
92
     size=size.small, display = display.none)
93

94
// 死叉 (賣出)
95
plotshape(bear_cross ? macd : na,
96
     title="MACD死叉",
97
     style=shape.triangledown,
98
     location=location.absolute,
99
     color=color.red,
100
     size=size.small, display = display.none)