shewerlu的部落格

經由 E大的分享該文出處(http://ebigmoney.pixnet.net/blog/post/190418427) ，本人只是將該工具實現而已

如果有誤請各位先進賜教

此買賣力道 可以畫兩條線 

程式架構  (可到此下載 程式匯入檔   https://www.dropbox.com/s/os7hzi930mbd5y1/%E8%B2%B7%E8%B3%A3%E5%8A%9B%E9%81%93.SPE?dl=0)

指標程式(設定參數 畫圖)---->

                 函式(BuySaleRatio(Length)   計算 N天的買賣力道  將 N天的買賣張數相除

                               (SaleRatio_value  BuyRatio_value )  將買賣比例  * 當日成交量 即為當日 買賣張數

                                        (BuyRatio/SaleRatio) 計算當天的買賣比例

---- 指標程式( 建立指標程式 )

Param: Length_F(10),Length_S(20),up(1.2),down(0.8)
// N天 賣指標 買指標   快線   慢線    上線  下線 參數
//Var: buytotal(0),saletotal(0),ratio(0)
Value1=BuySaleRatio(length_F) // 計算 買賣力道值
Value2=BuySaleRatio(Length_S)

Drawbase1(1,"中線",green)
Drawbase2(up,"賣",blue)
Drawbase3(down,"買",red)

draw1(Value1,"力道F",green,green)

draw2(value2,"力道S",red,red)

------------ END-----

---- 買買力道函式 ---   BuySaleRatio(Length)

Param: Length(Numeric)
// 計算 買賣力道比值 N天賣張 / N天買張

BuySaleRatio =Sum(SaleRatio_Value,Length)/Sum(BuyRatio_Value,Length)

 ---------END

---- 當日買張函式  BuyRatio_value  -----

BuyRatio_Value= BuyRatio * V

---- END ----

---- 當日賣張函式  SaleRatio_value  -----

SaleRatio_Value= SaleRatio * V

----END

-- 當日買力比率  BuyRatio

// 算出當天收盤成交量 買張比率
var: yy(0)
yy= abs(open - close[1]) // 今開- 昨收
if c >=o then // 如果 收大於 開 則 買力道= 高-低
      BuyRatio=CNDL_Height
else
      BuyRatio=CNDL_Height-CNDL_Body // 否則 買力= 上影線+ 下影線 (高-低 - 身)
end if

if o>= c[1] then // 如果 今開>= 昨收 買力 再加上 yy
      BuyRatio= BuyRatio + yy
end if

BuyRatio= BuyRatio / (CNDL_Height + CNDL_Height-CNDL_Body + yy ) // 計算 買力比率

---------- END

--- 當日賣力比率  SaleRatio

// 計算 賣力比例
var: yy(0)
yy= abs(open - close[1]) // 今開-昨收
if c < o then // 收盤 < 開盤 則 賣力 =K線全距
      SaleRatio=CNDL_Height
else // 否則 賣力= 上影+ 下影 ( 全K - K身)
       SaleRatio=CNDL_Height - CNDL_Body //
end if

if o < c[1] then // 開盤 < 昨收 則 賣力 再加上 yy
       SaleRatio= SaleRatio + yy
end if

SaleRatio= SaleRatio / (CNDL_Height + CNDL_Height-CNDL_Body + yy )

---- END