メスティンで蒸し鶏

 メスティンで蒸し鶏

蒸し豚を作った時、タマネギが底に焦げ付いたので、アルミ箔を敷くことにした。

キッチンペーパーを、濡らして間に挟むと良いと何かの雑誌に書いてあった気がする。

底に敷く

キャベツを敷いて、鶏肉（９０ｇ）を載せたが、隙間ができた。

シャウエッセンも入れた。

カエン２５ｇ一個で調理

鶏肉が縮んで、隙間だらけ。

本日の河上選手：江戸川　4日目（最終日）

    最終日に、3着が一番似合う男の本領発揮

　　２R　5号艇　3着　¥5,320

　　６R　2号艇　3着　¥7,380　①④の事故があったのでタナボタ

配当的には、イマイチだが！

メスティンで蒸し豚

 蒸し豚

　豚バラ　100g

　玉ねぎ　適当

　キャベツ　適当

キャベツ、玉ねぎを入れて、肉を置く

カエンを一個

出来上がり、これに、焼き肉のタレをかけて食べた。

しかし、玉ねぎが焦げてこびり付いた。

少し酢を入れて、湯を沸かす。

きれいに取れた。

本日の河上選手：江戸川　3日目

　　１R　6号艇　6コース進入で5着

　１０R　７R以降中止、１０Rも当然中止

固形燃料 カエンニューエースE 25g

2年前に買った固形燃料　カエンニューエースE （２５ｇ）劣化を見るために開封した。

エスビットのポケットストーブとメスティン TR-210を使用

ストーブ幅に合わせて、横に2個並べた。

見た目は、問題なさそうだ。

室温19度

点火

3分経過

　　　　泡が出始める。

7分経過

　　　　ボコボコになる。

15分経過　ボコボコ言わなくなった。

　　　　　火力が落ちてきた。

20分経過　　鎮火

未開封なので、問題はなかった。

本日の河上選手：江戸川　2日目

　５R　3号艇　3コース進入で2着

PowerShell 丸め 筋肉量計算 + 基礎代謝

筋肉量計算に基礎代謝を追加して、四捨五入で小数点1位まで表示するように変更

 

function fround($val) # 小数点第二位を四捨五入して第一位までの値とする。

{

    $num = [Math]::Round($val, 1, [MidpointRounding]::AwayFromZero);

    return $num

}

# 体重と体脂肪率の入力

$iWeight = Read-Host "体重（㎏）　　"

$iSibou = Read-Host  "体脂肪率（％）"

$Sibou=1* $iSibou

$Weight=1* $iWeight

$SibouRyou=$Weight * ($Sibou/100)

$jyosiboutaijyuu = $Weight - $SibouRyou

$KinnikuRyou = $jyosiboutaijyuu /2

$KinnikuRitu =$KinnikuRyou / $Weight *100

# 30．9％以下は低い

# 31．0～34．9％は標準

# 35．0～38．9％はやや高い

# 39．0％以上は高い

$kMark = "低い"

$kColor = "Red"

if (( $KinnikuRitu -ge 31 ) -and ( $KinnikuRitu -lt 35 ))

{

    $kMark = "標準"

    $kColor = "White"

}

if (( $KinnikuRitu -ge 35 ) -and ( $KinnikuRitu -lt 39 ))

{

    $kMark = "やや高い"

    $kColor = "Green"

}

if ( $KinnikuRitu -ge 39 ) 

{

    $kMark = "高い"

    $kColor = "Cyan"

}

$kiso = fround (370 + 21.6 * $jyosiboutaijyuu)

write-host "`r`n基礎代謝  　= "　$kiso "Cal"   

$wVal =  fround($SibouRyou)

write-host "`r`n体脂肪量　　= "　$wVal "Kg"

$wVal =  fround($jyosiboutaijyuu)

write-host "除脂肪体重　= "　$wVal "Kg"

$wVal =  fround($KinnikuRyou)

write-host "筋肉量　　　= "　$wVal "Kg"

$wVal =  fround($KinnikuRitu)

write-host "筋肉率　　　= "　$wVal "%" $kMark -ForegroundColor  $kColor 

実行結果

本日の河上選手：お休み

　11/26　～　　　江戸川

前節の河上選手

住之江　11/11　～　11/16　

マスターズリーグ　報知新聞社賞ダイナミック敢闘旗

なんと、3着が1度もない！

６４５２２２５５４

次節　11/26　～　11/19　江戸川　

Excel Sheet 一覧

久しぶりにExcelを使ったら、シート一覧を取り出す方法を忘れていたので、覚書 

①　ALT+F11
➁　CTRL+Gで「イミディエイト」ウィンドウを表示する
➂　”For Each i In ThisWorkbook.Sheets: debug.print i.name : next i” を貼り付ける

④　ENTER
➄　シート名一覧が表示される。

本日の河上選手：　住之江　マスターズリーグ　初日

　1R　2号艇　2コース進入で、ドベ！

PowerShell 筋肉量計算

 筋肉量を計算するPowerShellを組んだ。

# 体重と体脂肪率の入力

$iWeight = Read-Host "体重（㎏）　　"

$iSibou = Read-Host  "体脂肪率（％）"

$Sibou=1* $iSibou

$Weight=1* $iWeight

$SibouRyou=$Weight * ($Sibou/100)

$jyosiboutaijyuu = $Weight - $SibouRyou

$KinnikuRyou = $jyosiboutaijyuu /2

$KinnikuRitu = $KinnikuRyou / $Weight *100

# 30．9％以下は低い

# 31．0～34．9％は標準

# 35．0～38．9％はやや高い

# 39．0％以上は高い

$kMark = "低い"

$kColor = "Red"

if (( $KinnikuRitu -ge 31 ) -and ( $KinnikuRitu -lt 35 ))

{

    $kMark = "標準"

    $kColor = "White"

}

if (( $KinnikuRitu -ge 35 ) -and ( $KinnikuRitu -lt 39 ))

{

    $kMark = "やや高い"

    $kColor = "Green"

}

if ( $KinnikuRitu -ge 39 ) 

{

    $kMark = "高い"

    $kColor = "Blue"

}

write-host "体脂肪量　　= "　$SibouRyou "Kg"

write-host "除脂肪体重　= "　$jyosiboutaijyuu "Kg"

write-host "筋肉量　　　= "　$KinnikuRyou "Kg"

write-host "筋肉率　　　= "　$KinnikuRitu "%" $kMark -ForegroundColor $kColor

実行結果

　

本日の河上選手：お休み

　11/11～　住之江

ゴルゴ13×BR大村コラボSGﾀﾞｰﾋﾞｰTシャツ

すっかり忘れていた大村のポイントが、10月末に失効するので、Tシャツと交換した。

ゴルゴ13×BR大村コラボSGﾀﾞｰﾋﾞｰTシャツ（XLサイズ・ブラック）

本日の河上選手：お休み

　　次節　11/11　～　住之江　マスターズリーグ