滝の音

滝の音

名こそ流れてなお聞こえけれ

5*5高頻度ルーティーンって？　VBAによるワークアウト自動作成プログラム付き

5*5高頻度ルーティーン 筋トレ

 

現在「実験 5*5高頻度ルーティーンって効果あるの？」の企画をやっているのですが

肝心の「5*5高頻度ルーティーンって？」の記事を書いていませんでした笑

 

といっても別に僕が発明したシステムでもないのですが。。

 

  • 5*5高頻度ルーティーンって？

5*5高頻度ルーティーンは

現在1レップ挙がる重量が

最終的に5レップ挙がるようになるプログラムです。

 

16回のワークアウトによってそれを達成するのですが

この記事ではそのワークアウト内容について書きたいと思います。

 

  • プログラムの中身

5*5の名前のとおり

1回のワークアウトで5セット5レップ行います。

ここまでは簡単なのですが。

 

5*5高頻度ルーティーンでは各セットで扱う重量が異なります。

しかもワークアウトを行うごとに扱う重量が単調増加するわけではないです。

行ったり来たり式で重量を増していきます。

 

 

その数値変化のルールを書きますね。

端的に言うと2歩進んで1歩下がる式なのですが。

 

現在のマックス重量をMとします。

 

day1

M*55% M*60% M*65% M*70% M*75%

 

day2

前回のワークアウトの各セットのパーセンテージを5%up

 

day3

前回のワークアウトの各セットのパーセンテージを5%down

 

day4

前回のワークアウトの各セットのパーセンテージを5%up

 

day5

前回のワークアウトの各セットのパーセンテージを5%up

 

と続いていきます。

day2,day5,day8,day11,day14が新しい重量にチャレンジするタイミングになっています。

 

。。。

 

わかりにくいですね。

とりあえずmax100kg,max80kgの2パターンの写真をのせます。

f:id:nozomi-hayashi:20180411185506p:plain

  • VBAによるワークアウト自動作成プログラム付き

エクエルの使える方はぜひ使ってください

 

　

Sub プログラム5_5_16()

 Dim tytle As Range
 Dim max_weight As Range
 Dim hiduke As Range
 Dim omosa As Range
 Dim set_number As Range
 Dim rep_number As Range
 
 Dim i As Integer
 Dim ii As Integer
 Dim p As Single
 Dim x As Single
 Dim y As Single
 
 
 Cells.ClearContents
 
 Set tytle = Cells(6, 2)
 Set max_weight = tytle.Offset(0, 2)
 Set hiduke = tytle.Offset(2, 0)
 Set omosa = tytle.Offset(2, 1)
 Set set_number = tytle.Offset(2, 2)
 Set rep_number = tytle.Offset(2, 3)
 
 tytle = "プログラム5*5"
 
 'MAX重量の設定
 m = InputBox("MAX重量を半角数字で入力。下1ケタまで。")
 max_weight = "max " & m & "kg"

 '日数設定
 hiduke = "day"
 For i = 1 To 16
    hiduke.Offset(i, 0) = "day" & i
 Next
 
 '重量設定
 omosa = "重量(kg)"
 
 
 For i = 0 To 5
    For ii = 0 To 4
       
        p = 0.05 * (i + ii)
       
        Select Case i
        Case 0
            omosa.Offset(3 * i + 1, ii) = m * (0.55 + p)
            omosa.Offset(3 * i + 2, ii) = m * (0.6 + p)
       
        Case 5
            omosa.Offset(3 * i, ii) = m * (0.5 + p)
            omosa.Offset(3 * i + 1, ii) = m * (0.55 + p)
        Case Else
            omosa.Offset(3 * i, ii) = m * (0.5 + p)
            omosa.Offset(3 * i + 1, ii) = m * (0.55 + p)
            omosa.Offset(3 * i + 2, ii) = m * (0.6 + p)
        End Select
    Next
 Next
 
 '重量の調整
 For i = 1 To 16
    For ii = 0 To 4
        x = omosa.Offset(i, ii) * 10
        y = x - Int(x / 25) * 25
       
        If y > 12.5 Then
            x = x + (25 - y)
        Else
            x = x - y
        End If
       
        omosa.Offset(i, ii) = x / 10
    Next
 Next
 
 'set数とrep数の設定
 set_number = ""
 rep_number = "各5レップ"
 
End Sub