金の生る樹

プログラム・ソースの先頭に必ず、御自身のKEYを設定した共通関数を組み込んでください。

#共通処理
Function Get-Header($Query){...}    ☜  共通関数を組み込んで下さい。

#
#        *** 売買シグナルを通知する樹 ***
#
function Convert-UnixTimeToDateTime($unixTimestamp){
 # $origin = New-Object -Type DateTime -ArgumentList 1970, 1, 1, 0, 0, 0, 0
 # $origin.AddSeconds($unixTime)

#  $unixTimestamp = <unix timestampの値></p>
    $utcDate = ([DateTime]::Parse("1970/01/01 00:00:00")).addSeconds($unixTimestamp);
    $localDate = [TimeZoneInfo]::ConvertTimeFromUtc($utcDate, [TimezoneInfo]::Local);
    return $localDate
}

# 現物公開API関数　初期設定

#現在の終値を取得
Function last_price($pair){
    $Url = "https://api.zaif.jp/api/1/last_price/$pair"
    $res = Invoke-RestMethod $Url -Method GET
    return $res
}

# 現物取引API関数　初期設定

#   単純移動平均シグナル

Function move_average($pair,$long,$short){   #単純移動平均シグナル

$range = @(0..1)
    $range[0] = $short  * 60 / 2  #移動平均（short）   [0]
    $range[1] = $long   * 60 / 2  #移動平均（long）  [1]

[int]$tmp_weit = $range[1] * 2
    $startdate = (Get-Date).AddSeconds($tmp_weit)     # 準備完了予定時刻を $range[$param.long] と同じにする
    Write-Host $startdate

Switch ($pair) {
        "btc_jpy"  { $asset = "btc";  [float]$unit = 0.0001; $column = "#,0"}
        "xym_jpy"  { $asset = "XYM";  [float]$unit = 0.1;    $column = "#,0.0000"}
        "xem_jpy"  { $asset = "xem";  [float]$unit = 0.1;    $column = "#,0.0000"}
        "cicc_jpy" { $asset = "CICC"; [float]$unit = 0.1;    $column = "#,0.0000"} 
        "zaif_jpy" { $asset = "ZAIF"; [float]$unit = 0.1;    $column = "#,0.0000"} 
        "mona_jpy" { $asset = "mona"; [float]$unit = 1;      $column = "#,0.0000"} 
    }
    $res = last_price  $pair               #初期設定値として現在の終値を取得
    $act_price = $res.last_price
    Write-Host "現在値 = $act_price"

$history = 1..$range[1]
    for ($i = 0; $i -lt $history.length; $i++) {
        $history[$i] = $act_price                     #履歴初期化
    }

$pack       = @(0..1)                      # 移動合計　　
    $move       = @(0..1)                      # 移動平均

$mssg   = "準備中"
    $exec   = "no"
    $old    = "--"
    $vector = "--"
    while($true) {
        $start_slice = (Get-Date)
        $now = (Get-Date)
        cls
        if ($startdate -gt $now) {       # 再開時刻に達していない 準備・売却・購買　待機中である。
            Write-Host -NoNewline "$mssg " -ForegroundColor Red
            [string]$time_left = $startdate - $now          # 残り時間算出
            $time_left = $time_left.Substring(0,8)
            if ($mssg -eq "準備中") {
                $starttemp = $startdate.ToString("MM/dd HH:mm:ss")
            #   $nowtemp   = $now.ToString("MM/dd HH:mm:ss")
                Write-Host "開始時刻 : $starttemp  残り : $time_left"
            }
            $exec = "no"
        }else{                            # 処理開始
            $mssg = ""
            $exec = "ok"
        }
        
        for ($i = 0; $i -le 1; $i++) {                             #ループ毎に初期設定
            $pack[$i]  = 0
            $move[$i]  = 0
        }

for ($i = $history.length - 1; $i -ge 0;$i--) {
            if ($i -eq 0) {
                $res = last_price $pair                     #現在の終値を取得
                $act_price = $res.last_price
                $history[0] = $act_price
            }else{
                $history[$i] = $history[$i-1]                          #履歴作成（データ移動）
            }
            for ($j = 1; $j -ge 0; $j--) {
                if (($range[$j] -gt $i) -and ($i -ge 0)) {               #update
                    $pack[$j] = $pack[$j] + $history[$i]
                }
            }
        }

for ($j = 0; $j -le 1; $j++) {
            $move[$j] = $pack[$j] / $range[$j]      # 移動平均値の算出
        }
        $display0 = $act_price.Tostring("#,#")
        $display1 = $move[0].Tostring("#,#")
        $display2 = $move[1].Tostring("#,#")
        Write-Host -NoNewline "現在値        = " $display0 ;  Write-Host "円 " 
        Write-Host -NoNewline "移動平均（短）= " $display1 ;  Write-Host "円("$short"分)" #
        Write-Host -NoNewline "移動平均（長）= " $display2 ;  Write-Host "円("$long"分)"  #

if ($move[0] -gt $move[1]) {
            $parsent = ($move[0] - $move[1]) / $move[0] * 100
        }else{
            $parsent = ($move[1] - $move[0]) / $move[1] * 100
        }

if ($move[0] -eq $move[1]) {   
            $vector = $vector   # 現ベクトル値を引き継ぐ
        }elseif ($move[0] -gt $move[1]) {  #  short > long   上向き
            $vector = "HI"
        }elseif ($move[0] -lt $move[1]) {  #  short < long   下向き
            $vector = "LW"
        }else{
            $vector = $vector   # 現ベクトル値設定
        }

if ($vector -ne $old) { 
            if ($old -eq "--") {      # 最初はグー
                $old    = $vector
            }else{                    # シグナル発生
                if(($vector -eq "HI") -and ($exec -eq "ok")) {
                    $x=New-Object -ComObject SAPI.SpVoice
                    $x.Speak("ゴールデンクロスが発生しました。・・・ゴールデンクロスが発生しました。")
                    $old = $vector
                }elseif (($vector -eq "LW") -and ($exec -eq "ok")) {
                    $x=New-Object -ComObject SAPI.SpVoice
                    $x.Speak("デッドクロスが発生しました。・・・デッドクロスが発生しました。")
                    $old = $vector
                }
            }
        }

$color = "White"
        $disp  = $parsent.Tostring("#,0.##")
        $disp2 = "　　"
        if ($exec -eq "ok") {
            if ($vector -eq "LW") {$color = "Red";  $disp2 = "下降"}
            if ($vector -eq "HI") {$color = "Green";$disp2 = "上昇"}
        }
        Write-Host -NoNewline "傾向 = " 
        Write-Host -NoNewline $disp2 -ForegroundColor $color     
        Write-Host -NoNewline "  移動平均線乖離率 = $disp%"       # Idling
        Write-Host ""    # new line

$ts = New-TimeSpan $start_slice (Get-Date)
        $slice = [Math]::Truncate($ts.TotalMilliseconds)
    #   Write-Host -NoNewline "slice  = $slice" ; Write-Host "ms (display +1s)"
        if ($slice -lt 2000) {
            $wait = 2000 - $slice
            Start-Sleep -Milliseconds $wait
        }else{
            Start-Sleep -Milliseconds 1000
        }
    }
    if ($param.log -ne "nop") { echo "movement 移動平均の推移　終了" }
}
#Function move_average($pair,    $long,$short)  # 移動平均シグナル
                     # 仮想通貨
                     #           移動平均（長）分
                     #                 移動平均（短）分
          move_average "btc_jpy" 30    1

実行結果です。

プログラム・ソースは画面左上のファイル(F)をクリックし、任意の名前を付けて保存して下さい。

売買シグナルを検出する樹

仕様

留意事項

プログラム・ソース

ページ切り替え