こんにちは~。皆様いつもお世話になってます。

さて、いままでもダイエットの為のエクササイズなどの質問は沢山でており恐縮ですが、私のケースでアドバイスいただけたら幸いです。

現在、週2-3回ジムに通っています。ジムには、ウォーキングマシーン、ダンベル、プール、スタジオなどがありますが、このうち私のお気に入りはウォーキングとプールです。

ジムに一回通う毎にかけられる時間は大体60-90分(着替えは除く)です。

いまのところ、ジムに着いてから
ウォーキング(30分)
腹筋・ダンベルエクササイズ(15分)
ストレッチ (15分)
プール(30分)

をこなしていますが、脂肪燃焼&筋肉増強を狙った場合はプールかウォーキングどちらかに絞って利用したほうがよいのでしょうか?

ウォーキング、ランニングも水泳も大好きなので、できれば両方やってすかっとしたい!!って感じなのですが、ちょっとせわしないのと、効果が出にくいかもなあと思い、悩んでます。

特に水泳をやる前には軽くストレッチとウォーミングアップをしておいたほうが泳ぎやすいようにも感じてるし、かといってこれ以上時間は割けないし。

どうしたらいいかなあ?

このQ&Aに関連する最新のQ&A

A 回答 (2件)

しろうと考えでしかないので難しいことはわかりませんが、私だったら一駅前でおりて徒歩でジムまで行くと思います。

もちろん器具をつかったトレーニングとはまったく同じ効果ではありませんが、個人的にはあの歩いても何処にも行かれない器具が好きになれないので…。歩いて行けば、ある程度のウォームアップにもなるし、ウォーキングをする時間分泳ぎにまわして泳ぎ放題の方が楽しいと思います。特にこれからの季節は暑くなるので水泳いいですよね。
両方を一度にこなすのは、ちょっと忙しすぎそうな感じがします。でも、どっちも好きとのことなので、一回の通いでひとつずつ交代でやるのも良いと思いますよ~。いつも全く同じじゃあなくても良いんではないでしょうか?
    • good
    • 0

この状態でしたら運動不足解消にはなると思いますがウォーキングも中途半端で、一応脂肪燃焼と言うことであれば開始後20分から始まると言う事なので10分だけの効果ですよね、筋力トレーニングの前に体を温める為にしているのであれば20分もすれば良いと思います。

そしてponsukeさんの年齢にも関係します年齢によってトレーニングの仕方も変わります、もうひとつはponsukeさんの体型です平均的な人と肥満ぎみでもトレーニングの仕方が変わります。一応、30代位までで平均的なスタイルだとしたら。
1.体を温める為に20分の軽いランニング(これをしないで筋トレするとケガの  もと)
2.ここで筋力トレーニング(ダンベルエクササイズ)を15分を2セット。
3.ストレッチを15分。
4.プール25分(スイミング)

     以上が筋肉増強のトレーニング

1.ウォーキング50分(脈拍120~130位に)脂肪燃焼には有酸素運動が必  要、それ以上脈拍を上げてしまうと脂肪燃焼しにくい。
2.ストレッチを15分。
3.プールでウォーキング(プールの歩き方ご存じですか?幾つかありますのでジ  ムのインストラクターに教えてもらって下さい)これはウォーキングマシンの
  2倍(30分水中で歩けば陸では60分歩いた計算になります。)なので時間  の許す限り存分に楽しんで下さい。

     以上が脂肪燃焼コース

週に2回なら筋トレコース1回と脂肪燃焼コース1回
週に3回なら筋トレ、脂肪燃焼、筋トレ(筋肉増強すれば脂肪燃焼率が上がります)
   以上、頑張って下さい応援してます。(無理はしないで!)  
  
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QExcelで、数字の組み合わせの合計が一定数になるパターンの抽出

Excelで、数字の組み合わせの合計が一定数になるパターンの抽出

たとえば、つぎの配列があるとします。
A(5){10,20,30,40,50}要素数が5つ1..5、{}は内容
このなかで二つ以上の組み合わせで和が60になる組み合わせを出したいとします
答えは
パタン1:1,2,3  /* 10+20+30 */
パタン2:1,5 /* 10+50 */
パタン3:2,4 /* 20+40 */

同じような処理をExcelの関数では実現できますでしょうか?

また上記のような組み合わせのパタンの総数を求める公式はありますか?
初歩的な高等数学で恐縮です。

Aベストアンサー

> 同じような処理をExcelの関数では実現できますでしょうか?

VBA の既製の関数にはご質問のものはありません。
ただし、質問者さんご自身が Excel の VBA で その関数を作るのは簡単です。
リカージョンのお手本みたいなアルゴリズムでしょうね。

Qプール通い(水泳・水中ウォーキング)されている方

ここ2年間ほど、ほぼ引きこもりの生活をしています。
更にこの半年間は病気をして手術から化学療法を受けていたのでますます体力がなくなっています。


治療も一段落したので体力作りにプールに通ったり、たまには小一時間ウォーキングをし始めましたが、プールでは25メートル泳いでは立って何十秒か休み、また25メートル泳ぎの繰り返しです。


しかし、プールでお見かけする方々はゆったりとしたペースでも何百メートルも連続で泳ぎ続けていらっしゃいます。

私のようにしょっちゅう立ち上がって休憩していては混んでいるときは迷惑なので、空いている時間や時期以外は水中ウォーキングのみにしています。
プールで過ごす1時間は大体10分毎にウォーキングと水泳を交互に行っています。

今はこの程度の運動を週に2~3回のペースで行っていますが、せめて100メートル位は連続で泳いでいられるようになりたいです。


今はアラフォーですが、子供の頃は水泳を習っていて大会に出てもいましたので泳ぎが不得意というわけではありません。
それもあって運動するならプールと思い立った訳です。


今のような状態だとプール通いに挫折してしまいそうで、目標を立てる目安が欲しいと思っています。

私のように初めは連続して泳げなかった方、どれ位で連続して泳げるようになられたのでしょうか。
また、泳ぐようになって何が変わったかやコツなど、いろいろと教えてください。

ここ2年間ほど、ほぼ引きこもりの生活をしています。
更にこの半年間は病気をして手術から化学療法を受けていたのでますます体力がなくなっています。


治療も一段落したので体力作りにプールに通ったり、たまには小一時間ウォーキングをし始めましたが、プールでは25メートル泳いでは立って何十秒か休み、また25メートル泳ぎの繰り返しです。


しかし、プールでお見かけする方々はゆったりとしたペースでも何百メートルも連続で泳ぎ続けていらっしゃいます。

私のようにしょっちゅう立ち上がって休憩して...続きを読む

Aベストアンサー

私も去年プールに通ってました。(現在は臨月な為控えてます)
まず、最初一時間程水中ウォーキングし
それから時間が許す限り泳げばいいと思います。
私もプールは小さい頃習っていた時期もあり不得意ではなかったのですが
10年振りくらいに行った為、最初は25m泳ぐのこんなにきつかったっけ!?
ってくらいキツく、25m泳いじゃ休憩し~。
それから無理のない程度で徐々に続けて泳げる距離を伸ばして行きました。
結果、三ヶ月程通い(週に2回程)500mは泳げるようになりました。
まだ定期的に通えてれば普通に1kmやそれ以上泳げるようになると思います。
プールに通って出た成果は階段を登っても息切れしなくなり(体力がついた?)
体全体が絞まり旦那から「どんどん絞まっていってるね」って言われる程でした。
あと、普通に泳ぐのに飽きたとき合間に潜水の練習をしてました。
最初は25mの3分の1しかいけなかったんですが
25m潜水出来るようになり、それもちょっとした自分の目標でした。

こんな感じですかね(^^)
あと、プールって以外とモクモク歩いたり泳いだりして飽きてきたりするので
水中でも使える防水ウォークマン(小型で耳に着けるだけ)
が1万円程度で売ってあるので音楽を聴きながらスポーツをするのもオススメです。

私も去年プールに通ってました。(現在は臨月な為控えてます)
まず、最初一時間程水中ウォーキングし
それから時間が許す限り泳げばいいと思います。
私もプールは小さい頃習っていた時期もあり不得意ではなかったのですが
10年振りくらいに行った為、最初は25m泳ぐのこんなにきつかったっけ!?
ってくらいキツく、25m泳いじゃ休憩し~。
それから無理のない程度で徐々に続けて泳げる距離を伸ばして行きました。
結果、三ヶ月程通い(週に2回程)500mは泳げるようになりました。
まだ定期的に通えてれば普通に1kmや...続きを読む

QExcelで組み合わせ!8人で3コースを巡回するパターンを作成したい

Excel初心者です
8人でA,B,Cの3コースを巡回する組み合わせを作成したいのですが、
例えば、Aコースが1番目の人と2番目の人が組で
以下Bが3&4,Cが5&6、で7&8は休みでスタートします
こういうのを一つのパターンとして、次回は同じコースを回らずかつ
違う人と組んでさらに休みも同じように振り分けたいのです

補足として、1年間の日程で巡回するのは決まった曜日です
組み合わせとして1番目の人は他の2~7番目の人と組む形が
できるようにしたいです。(8人全員に当てはまります)

ちなみに、コースが三つなので8×3で
24パターンあるってことですよね
休みを含めると8×4で32あることになるのかな?

よろしくお願いします

Aベストアンサー

補足です。

> 2520通りということですが

これは8人の組合わせの数です。
4組が休みを入れた4つのコースを取る、というのは
24通りありますから

2520×24となります。これは一日に取り得るパターン
の数です。
これを次回のコースの取り方を考慮したら順列組合せ
となり、2520の24乗となり、いや、24の2520乗かな?
分からない・・・その中から良いものを探すというこ
とです。まあ、あっという間に天文学的数字を超えます。

全宇宙の素粒子の数を集めても10の74乗程度でしか
ありません。

これは答えの無い問題、と私は言い切ります。少しずつ
昔を思い出してきました。
ベストでは答えがありませんが、ベターな答えは出せ
ます。最低で2千万円のプロジェクト、答えに欲出せば
1億円のプロジェクトと見積もります。それでもベター
な回答しかえられません。

しかし順列は諦めるという割きりがあります。大して
意味ないでしょう。得られない答えなんだから。
従って、私なら2520×24の組合せを作って、乱数で今回
は、これにすると決めます。次回は1度使ったパターンを
消して、残りで乱数で選びます。たまたま休みが続く人
が出ても仕方が無い、とせざるを得ません。あるいは
休みが続かない、だけを条件に選び直しはありそうですね。

補足です。

> 2520通りということですが

これは8人の組合わせの数です。
4組が休みを入れた4つのコースを取る、というのは
24通りありますから

2520×24となります。これは一日に取り得るパターン
の数です。
これを次回のコースの取り方を考慮したら順列組合せ
となり、2520の24乗となり、いや、24の2520乗かな?
分からない・・・その中から良いものを探すというこ
とです。まあ、あっという間に天文学的数字を超えます。

全宇宙の素粒子の数を集めても10の74乗程度でしか
ありません。

...続きを読む

Q梅雨時のウォーキングとしてプールでのウォーキングをするつもりですが・・

梅雨時のウォーキングとしてプールでのウォーキングをするつもりですが・・・

通常のウォーキングとプールウォーキングでは、後者の方が効果があると
よく聞きますが本当でしょうか?
何か注意する点とかあるでしょうか?
市民プールでだいたい1回につき1時間程度歩くつもりです。

Aベストアンサー

市民プールは様々な人がいます。当然トラブルはつき物です。真剣にウオーキングするとしても果たして何処まで集中して出来るかどうか?
理由は中高年のオヤジ、爺さん達が一緒にいるとどうしてもレーンの占有してしまうので出来なくなりやめてしまう女性が多いです。
泳ぐとしてもレベル高ければ続きますが・・・結局レーンを一時間集中して出来るかどうかの環境があります。レーン、時間帯選んで行かないと出来ませんよ!!その都度考えていくとなると時間調整しなければならなくなりやる気なくし止めてしまいます。
今は何処でも暇な中高年のオヤジ、爺さんたちがいます。寂しいからチョッカイ出している輩もいます。当然彼らは混んでいる時間帯しか来ません。
少ない時間帯に来てもやる気無しで帰ります。
結果求めてやるとなると暇人さん達の仲間に入る事になる可能性もあります。何も結果で無くメタボのまま!!惰性で流されていく!!

こうなると自分の目標が無くなりただの暇人さん達の付き合いとなってしまいます。
金払って結果出したければ本当にそれなりの環境の場所に行かないと暇人さん達の仲間にされてしまいますよ!!
気をつけて!!

市民プールは様々な人がいます。当然トラブルはつき物です。真剣にウオーキングするとしても果たして何処まで集中して出来るかどうか?
理由は中高年のオヤジ、爺さん達が一緒にいるとどうしてもレーンの占有してしまうので出来なくなりやめてしまう女性が多いです。
泳ぐとしてもレベル高ければ続きますが・・・結局レーンを一時間集中して出来るかどうかの環境があります。レーン、時間帯選んで行かないと出来ませんよ!!その都度考えていくとなると時間調整しなければならなくなりやる気なくし止めてしまいま...続きを読む

Q組み合わせパターンを作りたいのですが、どのようにすれば効率的ですか?

こんにちは。

現在、以下のアンケートがあります。

         選択肢(Aはよい、Bはふつう、Cは悪い)
問1 ××× A B C
問2 ××× A B C
問3 ××× A B C



問11 ××× A B C

ここで、問1~問11までの設問全体の組み合わせのパターンがどれだけどんなものがあるのか一気に出したいのですが、どのような方法がありますでしょうか?もし、ソフトがあればご紹介して頂ければ幸いです。

例えば、
パターン1としては、問1~問11までが全てAというパターン、
パターン2としては、問1~問11までが全てBというパターン、
パターン3としては、問1~問11までが全てCというパターン、
パターン4としては、問1~問10まではAで問11だけがBというパターン



など、3の11乗パターン存在すると思ってます。
こうしたパターンの一覧表を一気に作りたいのですが、どのようにすればよろしいでしょうか。

ご教示頂ければ幸いです。宜しくお願い申し上げます。

Aベストアンサー

下記のプログラムをVB6で作ってみました。(あまりきれいではないですけど)pen4-2.8G メモリ512MBで90秒ほどで修了しました。 エクセルのことはよくわかりませんがそんなに難しくはないと思います。

Private Sub Command1_Click()
Dim str_out As String
s_time = Now()
str_out = ""
For i1 = 1 To 3
For i2 = 1 To 3
For i3 = 1 To 3
For i4 = 1 To 3
For i5 = 1 To 3
For i6 = 1 To 3
For i7 = 1 To 3
For i8 = 1 To 3
For i9 = 1 To 3
For i10 = 1 To 3
For i11 = 1 To 3
str_out = i11 & i10 & i9 & i8 & i7 & i6 & i5 & i4 & i3 & i2 & i1
Debug.Print str_out
str_out = ""
Next i11
Next i10
Next i9
Next i8
Next i7
Next i6
Next i5
Next i4
Next i3
Next i2
Next i1
Debug.Print s_time
Debug.Print Now
End Sub

下記のプログラムをVB6で作ってみました。(あまりきれいではないですけど)pen4-2.8G メモリ512MBで90秒ほどで修了しました。 エクセルのことはよくわかりませんがそんなに難しくはないと思います。

Private Sub Command1_Click()
Dim str_out As String
s_time = Now()
str_out = ""
For i1 = 1 To 3
For i2 = 1 To 3
For i3 = 1 To 3
For i4 = 1 To 3
For i5 = 1 To 3
For i6 = 1 To 3
For i7 = 1 To 3
For i8 = 1 To 3
For i9 = 1 To 3
For i10 = 1 To 3
For i11 = 1 To 3
str_out = i11 &...続きを読む

Qウォーキングで、ダンベルを持つのは何故?

目下、毎早朝ウォーキング(=「速歩」=有酸素運動)を1時間、
その後自宅で階段踏み(5分)をして、ダイエットしている中年男です。
身長は、171Cm、体重は(7/10で91.5Kg、今朝で85.8Kg・体脂肪率26.9%)です。
当初はBMI判定で「高度肥満」、それから一念発起、ダイエットに「速歩」をして、
なんとか「肥満」まできました。

早朝にウォーキングしていると、小さなダンベルを両手に持って、ウォーキングしている方が、数人おられます。
あれは、腕等の筋肉トレーニングを兼ねて運動してるのでしょうか?
また、筋トレとしたら、そんなに効果があるものなのでしょうか?
不思議なのは、そのダンベル(1つ1Kgくらい?)を持って歩いてる方は、
何故かみんな「速歩」をせず、普通の速度で歩いているのです。
何故「速歩」をしないのでしょうか?
メインはウォーキング(=「速歩」)によるダイエットだと思うのですが、
そうでない方もおられるのでしょうか?
私は、「速歩」をしない→有酸素運動をしていない、と思っています。

どなたか、この4つの疑問に答えてくださいませ。

目下、毎早朝ウォーキング(=「速歩」=有酸素運動)を1時間、
その後自宅で階段踏み(5分)をして、ダイエットしている中年男です。
身長は、171Cm、体重は(7/10で91.5Kg、今朝で85.8Kg・体脂肪率26.9%)です。
当初はBMI判定で「高度肥満」、それから一念発起、ダイエットに「速歩」をして、
なんとか「肥満」まできました。

早朝にウォーキングしていると、小さなダンベルを両手に持って、ウォーキングしている方が、数人おられます。
あれは、腕等の筋肉トレーニングを兼ねて運動してるのでし...続きを読む

Aベストアンサー

こんばんは!
#2です。お礼、ありがとうございます。

>1、「一時、61kgまで体重を落としました( 現在リバウンド中^^; )。」
  って、何故リバウンド中なのでしょう?

減量を始めたのは、2000年7月下旬で、最初の二ヶ月は毎月ほぼ7kgのペースで
体重が減りました。(ちなみに、減量を始める直前の体重は90kg以上、
《94kgくらいかなぁ、はっきりとは憶えておりません》あったとおもいます。
体脂肪率は44%! 乗るだけで量れる体脂肪計測つき体重計なので、正確では
ないのかも知れませんが、太りすぎですね^^;)
以降少しペースが落ちまして、2000年の大晦日に「60キロ台になった!」というのを憶えています。
その後、満一年経ったころには、60kgは切らなかったものの、61~2kgあたり
になっていました。

体脂肪率は、経験から申しますと、体重のほうが先に減って、体脂肪率は遅れて
減っていきました。最低のときは、16%でした。

正直、予想以上というか、あまりにも体重が減っていくので、ちょっとコワク
なってしまって、病院でみてもらったりしました。糖尿病とか、を疑った
わけです。結果は問題なしでしたが、はっきり言って、当時体調はあまり
よくありませんでした。しゃがんでいて立ち上がると、立ち眩みがしました。

で、意図的に減量のペースを落とし、62kgあたりで落ち着かせようとした
のですが、それが最も難しかったのです。

食べると太ります。確実に。
それまでは、二食分を三食に分ける食べ方(具体的には、夜は納豆だけとか、
お豆腐だけ、というふう一品だけを選んで、ごく軽くして、朝は軽めのものを
ふだんどおり、昼はふつうの人と同じくらいに食べてしました)をしていたのを
夜ちょっと食べはじめたり、歩くのをサボったりしてしてしまいました。

そして、決定的だったのが、昨年の夏、あまりにも暑かったので(いい訳^^;)
歩くのをサボり始めたことです。そうするうちに、夜中オリンピック中継を観ながら
夜食を摂ったり....、要するに、「楽なほうに流れてしまった」のです。

>2、「ウォーキングに慣れてきたために、何か変化を付けたくて、」
 ということで負荷にダンベル?

そうです。私の経験から申しますと、あまりに速く歩くのはキツかったです。
調子が乗ってくると、「ジョギングしようかな」と色気が出てきましたが、
一キロくらい走ると、しんどくてイヤになります。休みたくなります。イヤだと
続かないのが私の性分なので、減量は続けたいという気持ちもあったので、
自分のペースで歩くことを選択しました。というか、それしか出来ませんでした。

あと、負荷に関しては、ダンベルは気分転換程度です。おススメは、じつは、
「時間」です。
私の場合、45分歩いた所に、大型ショッピングセンターがありまして、まず、
そこまで歩きます。そこのセルフの食堂でお水を拝借して、そのまま帰って
きます。平日はその繰り返しでした。とくに、ウォーキングフォームなどは
気を使ったことはありませんでした。私は、あまりそちらに気をとられると、
自分自身に縛りをかけているようで窮屈で歩くのがイヤになってしまいます。
歩いているときは、しぜんと、何か楽しいことを企んでいたように思います。
今度あんなことしよう、とか、自分がサッカー日本代表を選ぶならどの選手を
選ぶか、などアホなことです。

土日は、二時間ほどを中で休みを入れながら、山のほうに向かって、歩いて
帰ってきていました。ハイキング気分でしたね。この点、私はまわりの自然
環境にも恵まれていたと思います。

>3、「疲れてくると手をふって歩いてしまいがちなので、」

じつは、よくテレビで紹介されているウォーキングフォームは、平日の街中を
歩くときは、恥ずかしくて、したくても出来ませんでした^^;
今でこそ、私のまわりでも歩いている人は多いですが、当時、五年前は、
ジョギングしている人はいても、所謂ウォーキングしている人はまったく見かけ
ませんでした。ですので、恥ずかしくて、早足の散歩程度を装って歩いていました。
もちろん、ミエミエでしたでしょうけど....。呼吸法は、「腹筋が動く」イメージを
意識してはいましたが、どうでしょう、軽く息が上がってくると、しぜんと
そうなっていたような気がします。

とこんなところですが、「お答え」になったでしょうか?

現在、再び減量を試み中、ですが、加齢のせいもあるのか、また、安きに流れて
しまうクセがついたためか、思うようには進んでいません。

mouse1948さんのダイエット方法は、私なんかよりも正しいと思いますよ。
是非、あまり無理をせずにご自身のペースで頑張ってくださいね。

こんばんは!
#2です。お礼、ありがとうございます。

>1、「一時、61kgまで体重を落としました( 現在リバウンド中^^; )。」
  って、何故リバウンド中なのでしょう?

減量を始めたのは、2000年7月下旬で、最初の二ヶ月は毎月ほぼ7kgのペースで
体重が減りました。(ちなみに、減量を始める直前の体重は90kg以上、
《94kgくらいかなぁ、はっきりとは憶えておりません》あったとおもいます。
体脂肪率は44%! 乗るだけで量れる体脂肪計測つき体重計なので、正確では
ないのかも知...続きを読む

Qvba  組み合わせパターン表示

1,2,3,--,n-1,nからm個とる組み合わせのパターンを
セル(1,1)から(nCm、nCm)に表示させる処理をVBAで記述
したいのですが、どうすればいいのでしょうか。
よろしくお願いします。

Aベストアンサー

再帰呼び出しのアルゴリズムは「自分自身を呼び出す」わけですから、普通の上から下へ
読んでいくフローとはひと味違って、考えにくいところがあります(実は私もしばらくや
ってなかったので今回少し手こずりました)。

各行の意味を書きます。


Const nStr As String = "あいうえおかきく" '←n個の文字列
Const m As Integer = 3 '←取り出す個数
Dim n As Integer '←ご質問文のn
Dim rStr As String '←m個取り出した文字列を結合したもの
Dim mRow As Integer '←エクセル表へ書き出す際の行番号
Dim Nest As Integer '←再帰呼び出しの深さ=rStrの何文字目に取り出すのか
'-----------------------
Sub combi()
n = Len(nStr) 'nStrの文字列長をnに代入
If m > n Then Exit Sub 'nよりmが大きければ終了
rStr = String(m, " ") 'rStrにm個の空白を代入
Cells.ClearContents '書き出す表をクリア
mRow = 0 '書き出す行番号0クリア
Nest = 0 '再帰呼び出し深さ0クリア
combiPr (0) 'サブルーチン combiPr を引数0で呼び出し
End Sub
'-----------------------
Sub combiPr(n1) 'サブルーチン開始 引数はその時点での開始位置(nStrの何文字目まで処理したか)
Dim mCol As Integer '←エクセル表へ書き出す際の列番号
For nn = n1 + 1 To n - m + Nest + 1 'nnを開始位置の次の文字から始めて残りの文字数の手前までFor~Nextを繰り返す
Nest = Nest + 1 '再帰呼び出しを1カウントアップ
Mid(rStr, Nest, 1) = Mid(nStr, nn, 1) 'rStrのNest番目にnStrのnn番目を代入
If Nest = m Then 'rStrに取り出したのがm文字目なら
mRow = mRow + 1 'エクセル表の次の行へ
For mCol = 1 To m 'rStrの1文字目からm文字目まで書き出す。
Cells(mRow, mCol).Value = Mid(rStr, mCol, 1)
Next
Else 'そうでなければ、つまり現在の開始位置(=nStrの何文字目まで処理したか)がm個まで達してなければ
Call combiPr(nn) '現在の到達位置(nStrの何文字目まで処理したか)にnnをセットしてcombiPrを呼び出す(再帰呼び出し)
End If
Nest = Nest - 1'再帰呼び出しを1後退
Next
End Sub


手順は原始的なものです。
あ~く まで書かれたカードを8枚ならべて3枚抜き出すことを考えればお解りになるで
しょうか。

あ を一枚抜き出し、
い を抜き出し2枚目に置きます。
う を抜き出し、3枚目とします。←これを く まで繰り返します。

次に、い を戻して う を新たな2枚目とします。
え を抜き出し、3枚目とします。←これを く まで繰り返します。

の繰り返し・・・・

を行っているわけです。

ポイントは、1枚目を抜き出すのは か までだという点です。
き まで抜き出したら(く までしかないので)3枚目のカードがなくなります。
同様に2枚目は き までしか抜き出してはいけません。
これが「For nn = n1 + 1 To n - m + Nest + 1」の「n - m + Nest + 1」の部分の意味です。

テキストベースのみの説明なので伝えにくいのですが、不明な点があったら補足説明しますの
で、またおたずねください。

再帰呼び出しのアルゴリズムは「自分自身を呼び出す」わけですから、普通の上から下へ
読んでいくフローとはひと味違って、考えにくいところがあります(実は私もしばらくや
ってなかったので今回少し手こずりました)。

各行の意味を書きます。


Const nStr As String = "あいうえおかきく" '←n個の文字列
Const m As Integer = 3 '←取り出す個数
Dim n As Integer '←ご質問文のn
Dim rStr As String '←m個取り出した文字列を結合したもの
Dim mRow As Integer '←エクセル表へ書き出す際の行番号
...続きを読む

Qダイエット&エクササイズ&ウォーキング

初めまして!
よろしくお願いします(#^.^#)

この4年で9キロ太ってしまい、最近の4月下旬からウォーキング40分を開始しました。
2キロはすぐに落ちました。
現在51キロ。
身長は154cmです。

でも昔はウォーキング40分すれば、代謝が良かったのか贅肉もすぐ取れて、体重の変化も早かったのに、今はなかなか体重が減ってくれません。

最近は、腹筋と代謝アップの体操とレッグランジを大体毎日しています。
ウォーキングも週に最低3日~5日。
4.3キロのコースを40分で歩いています。

37歳になった今、これだけではなかなか痩せないのでしょうか?
周りから見れば、痩せているよとか、また痩せたね!とか言ってくれるのですが、
年を取ったせいか、顔より下の贅肉が(T_T)

体のサイズも定期的に計っています。
数値も減ってきていますが、歩き始めて約3ヶ月も絶つのに、体重が減らない焦りが出てきました。

間食は基本的にはしません。
ただストレス&苛々したとき、突発的に食べてしまうときがあります。

朝は、バナナ2本にエスプレッソ。
昼はゴハンにふりかけ。
夕食は6時までには食べ終わっています。

それ以降、お腹が空けば、キャベツを食べたり、豆腐を食べたりしています。

どうしたら年齢に負けずに痩せる事ができますか?

よろしくお願いします。

初めまして!
よろしくお願いします(#^.^#)

この4年で9キロ太ってしまい、最近の4月下旬からウォーキング40分を開始しました。
2キロはすぐに落ちました。
現在51キロ。
身長は154cmです。

でも昔はウォーキング40分すれば、代謝が良かったのか贅肉もすぐ取れて、体重の変化も早かったのに、今はなかなか体重が減ってくれません。

最近は、腹筋と代謝アップの体操とレッグランジを大体毎日しています。
ウォーキングも週に最低3日~5日。
4.3キロのコースを40分で歩いています。

37歳になった今、これだけでは...続きを読む

Aベストアンサー

こんにちは

1時間ぐらい歩いてみてください
あとはすでに2キロ落ちたのであれば
運動はあっているようですので
運動量を増やしてみてください
休日には5キロとか8キロぐらい歩いてみるとか

Q数字の組み合わせパターンの取得について

a組 1,2,3,4,5,6,7,8,9
b組 1,2,3,4,5,6,7,8,9
c組 1,2,3,4,5,6,7,8,9

上記のような各組から、それぞれ1つずつ番号を選択し
出来上がる組み合わせパターン全てを取得したいのですが
どうしてもうまく取得できません。
各組の番号の重複はしないように取得したいので
9*8*7=154の組み合わせ全てを取得したいです。
(計算合ってますかね・・・)

例○:1,2,3 2,1,3 ・・・
例×:1,2,1 2,4,4 ・・・

質問も初めてなので、書き方など不明な点や不手際があれば
あわせてご回答いただけると感謝です。

Aベストアンサー

失礼しました。そう例示がありましたね
であれば、504通りになるのかな?

<?
$x=1;
for($i=1;$i<=9;$i++){
for($j=1;$j<=9;$j++){
if($i==$j) continue;
for($k=1;$k<=9;$k++){
if($j==$k or $i==$k) continue;
print $x++.":".$i.",".$j.",".$k."<br>\n";
}
}
}
?>

Q週3、4でウォーキング(早歩き)40分、エアロバイク30分してたら筋肉で逆に太くなってしまいますか?

週3、4でウォーキング(早歩き)40分、エアロバイク30分してたら筋肉で逆に太くなってしまいますか?
ジムで足痩せするにはどんな運動メニューがいいでしょうか??

Aベストアンサー

ウォーキングは早歩きする必要はありませんよ、トボトボと歩いてもいいですし

まず、筋力が着いたら太ります。
それは脂肪の下に筋肉があるから、今まで脂肪が体の内側と外側に向けて膨らんでいたから、体の内側に向かって膨らんでいた脂肪が筋肉が固くなることで、逃げ場を失って外側に膨らみますから、最初は太ります。

運動すると太るというのは、これが原因、ここで運動を止めてしまうから、元のように痩せる(でも脂肪の量が減ってるわけではない)

筋肉がついて、運動を続ければ今度は脂肪が燃焼されて脂肪が痩せてきますから、全体に細くなっていきます

3~6か月続いたら、細くなりますよ

>ジムで足痩せするにはどんな運動メニューがいいでしょうか??

部分的に痩せる方法は発見されていません


人気Q&Aランキング

おすすめ情報