No.7ベストアンサー
- 回答日時:
ミス入力がありました。
修正します。a=x-7[x/7]より
順にx=0,1,2,3,4,5,6ではa=01,2,3,4,5,6
順にx=7,8,9,10,11,12,13ではa=01,2,3,4,5,6
順にx=14,15,16,17,18,19,20ではa=01,2,3,4,5,6
・・・とうまく繰り返されます。
後ろの10×[x/7]ですが、
順にx=0,1,2,3,4,5,6では10×[x/7]=0
順にx=7,8,9,10,11,12,13では10×[x/7]=10
順にx=14,15,16,17,18,19,20では10×[x/7]=20
・・・・と十の位もうまくいきます。
ご教授ありがとうございました。なんとかやりたいことができました。ちょっと強引でしたが、つぎのようなものです。
Dim x, y, z As Integer
For z = 0 To 190 Step 10
For x = -1 To 6
For i = 0 To 3
y = Fix(((6 - x) / 2) * (-1) ^ (x + 1) - 4)
Sheets(a).Cells(12 + z, 4).Offset(y, i) = Sheets(b).Cells(4 + x, 7).Offset(0, i)
Next i
Next x
Next z
ちょっとxを-1からスタートさせているのが邪道っぽいんですが、動作は意図したものになりました。ほんとうはx=0からスタートしたかったのですが、十分です。
d-l_-b様をはじめ、ご教授くださった皆様本当にありがとうございました。
No.8
- 回答日時:
EXCELで計算するなら、
変数(x)をA1からAnのセルにいれて、
=IF(INT((A1-1)/7)<0,0,-4+(-1)^(MOD(7-MOD(A1,7),7)+1)*INT((MOD(7-MOD(A1,7),7)+1)/2)-10*INT((A1-1)/7))
を関数値(y)のセルB1に入れて、B1のセルをB2からBnのセルまでコピーすればできあがりです。
ありがとうございます。
オ~!と思い、関数欄に貼り付けて、マクロをとろうとしましたが、
#NAME?でした。
=IF(INT((A1-1)/7)<0,0,-4+(-1)^(MOD(7-MOD(A1,7),7)+1)*INT((MOD(7-MOD(A1,7),7)+1)/2)-10*INT((A1-1)/7))
No.6
- 回答日時:
No4です
>>結局xの値が8個取得される毎に、次回のyの値は-10されながら
上記の決まりで決定していくという式です。
x=0のときy=-7のようですね。
-7,-1,-6,-2,-5,-3,-4,-17,-11,-16,-12,-15,-13,-14,-27,-21,-26,-22,-25,-23,-24,,-37,-31,-36,-32,-35,-33,-34
ですが一の位は7,1,6,2,5,3,4の繰り返しですね。
私の回答を微調整(x=0でy=-7となり、繰り返しが起こるようにして、更に十の位もあうように)して
y=-7+(7/2){1-(-1)^a}+{(-1)^a-1}/4-{(a(-1)^(a+1)}/2-10×[x/7]
ただしa=x-7[x/7]
でうまくいかないでしょうか。
ちなみに[A]はAを越えない最大の整数です。
-7,-1,-6,-2,-5,-3,-4,I-17,-11,-16,-12,-15,-13,-14,I-27,-21,-26,-22,-25,-23,-24,I-37,-31,-36,-32,-35,-33,-34,I
このように区切ってやってみました。
a=x-7[x/7]より
順にx=0,1,2,3,4,5,6ではy=01,2,3,4,5,6
順にx=7,8,9,10,11,12,13ではy=01,2,3,4,5,6
順にx=14,15,16,17,18,19,20ではy=01,2,3,4,5,6
・・・とうまく繰り返されます。
後ろの10×[x/7]ですが、
順にx=0,1,2,3,4,5,6では10×[x/7]=0
順にx=7,8,9,10,11,12,13では10×[x/7]=10
順にx=14,15,16,17,18,19,20では10×[x/7]=20
・・・・と十の位もうまくいきます。
For x = 0 To 7
a = x - 7 * (x / 7)
y = -7 + (7 / 2) * (1 - (-1) ^ a) + ((-1) ^ a - 1) / 4 - ((a * (-1) ^ (a + 1)) / 2 - 10 * (x / 7))
Cells(x + 1, 7) = y
Next x
-7
-5.571428571
-4.142857143
-2.714285714
-1.285714286
0.142857143
1.571428571
3
式ですが、VBA用に上記のように書き換えましたが、違っているでしょうか。結果がその下のようになりました。
No.5
- 回答日時:
No.3です。
第8項、第16項、第24項…と8の倍数の項から-10ずつ加えていくのであれば、先ほどの式にガウス記号を使い
-10×[x/8]
と言うものを加えればできます。
エクセルで行うのであれば別のアプローチも考えてみます。
ありがとうございます。実は、何名かの方からいただいた式をVBAでやってみたのですが、私のxとyの値の示し方が悪かったようで、正しく出てきませんでした。x=0のときはy=0です。x=0のときy=-7と捕らえられてしまっていたようで。パソコンで計算しているので、数学上は正解でも、2進法上の誤差がでるので正しく出ないのかもしれませんが。
No.4
- 回答日時:
数列と考えれば-7,-1,-6,-2,-5,-3,-4 から階差(隣り合う2項の差)をとって
6,-5,4,-3,2,-1
この数列b(n)=(7-n)(-1)^(n-1)
x-1
Σb(n)=(7/2){1-(-1)^(x-1)}+{(-1)^(x-1)-1}/4-{(x-1)(-1)^x}/2=B
n=1
よって
y=-7+B=-7+(7/2){1-(-1)^(x-1)}+{(-1)^(x-1)-1}/4-{(x-1)(-1)^x}/2
となります。
x=1ならy=-7
x=2ならy=-1
x=3ならy=-6
x=4ならy=-2
x=5ならy=-5
x=6ならy=-3
x=7ならy=-4
となります。
No.3
- 回答日時:
方程式でしょうか?
その数列の続きはどうなりますか?
一応数列すべてに4をたすと
-3,3、-2,2、-1,1,0
となります。ガウス記号を使おうか考えましたが純粋に数列でいくと、符号は頭にcos(πx)をつければよいので
3,3,2,2,1,1,0について考えると
階差数列0,-1,0,-1,0,-1
Bn=-1/2cos(πx)-1/2
元の数列An=3+ΣBk
=3-1/2Σcos(πx)-1/2(x-1)
=7/2-1/2(x)-1/2Σcos(πk)
大元の数列は
cos(πx){7/2-1/2(x)-1/2Σcos(πk)}-4:Σはk=1からx-1までの和
確かめてませんし、全然正解だとは思えませんが。もうチョット条件があれば補足ねがえますか?
すごいですね!ありがとうございます。xの値が8まで変化したときまでがでればなんとか・・・。でも本当は、次のようになる方程式を導きだせると最高なのですが、無理とあきらめています。xの値は1ずつ変化。それに伴うyの値は、
-7,-1,-6,-2,-5,-3,-4,-17,-11,-16,-12,-15,-13,-14,-27,-21,-26,-22,-25,-23,-24,,-37,-31,-36,-32,-35,-33,-34,
xの値が0~7まで変化したあと、yの値が+10されて同じように変化する。結局xの値が8個取得される毎に、次回のyの値は-10されながら
上記の決まりで決定していくという式ですが。あまりにも難しそうで。
可能でしょうか?
No.1
- 回答日時:
方程式? 関数といった方がピンとくるけど・・・
最初の-7のときのxの値を0とすると次のような例を挙げることができます。
y=[(7-x)/2](-1)^(x+1)-4
>数学から離れてもう、25年
ということなので解説を少し。[x]はxを越えない最大の整数。x≧0ではエクセルのint()と同じだと思っていいです。
^はべき乗。(-1)^(x+1)は、x=0から-1,1、-1,1、・・・となります。
ただし上の関数は与えられた7点を通る関数の一例に過ぎません。他にも答えは色々あるでしょう。
この回答への補足
ありがとうございます。実はエクセルで使用しようとしているので、エクセルにこれを簡単に出せる関数があるんであれば、最高なのですが。
int()の引数にはiを入れればいいのでしょうか?
Dim y,i as integer
for i = 0 to 7
y=int(i)
next i
?????????????
もしお分かりになるのであれば、ぜひ教えてください!
For x = 0 To 7
y = ((7 - x) / 2) * (-1) ^ (x + 1) - 4
y = Fix(y)
Cells(x + 1, 7) = y
Next x
Fixで小数点以下を切り捨てました!すると、yの値が期待したような値になりました!
ただ、x=0のときy=0で、x=1のとき、y=-7となるといいのですが。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 数学 2次方程式の「(x-3)^2=4」を解くとき、 そのまま解くことも可能ですが A=x-3と置いて、A 3 2023/01/27 18:20
- 数学 連立方程式についての疑問 7 2022/06/19 19:48
- 高校 対数方程式につきまして 4 2022/05/05 07:55
- 数学 連立方程式 6 2022/06/19 15:03
- 数学 方程式についての疑問 6 2022/08/25 18:34
- 物理学 微分方程式の物理現象への適用について 3 2023/05/14 12:22
- 工学 ロジスティック方程式について 1 2022/05/14 21:44
- 物理学 ファンデルワールス状態方程式の臨界時の状態量を求める際、臨界体積VrはVの3次関数の極値でもあり変曲 1 2023/03/25 17:51
- 数学 (x-1)(x-2)=0のような因数分解された形でも二次方程式であることには変わりないのでしょうか? 6 2022/08/25 20:11
- 物理学 波動方程式のようなもの 1 2023/05/13 07:23
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
2÷3などの余りについて
-
信頼区間の1.96や1.65ってどこ...
-
マイナスからプラスへ転じた時...
-
EXCELの分散分析表のP-値が....
-
エクセルで可視セルにのみ値貼...
-
Excelで1つしかない値だけを抽...
-
根号内が負になり、エクセルで...
-
ある商品のロス率を5%見込み、...
-
1/fゆらぎの傾きについて
-
この極限値
-
値差の%計算方法について
-
変数とパラメータとは違うもの...
-
ニューラルネットワークの重み...
-
lim{x→0} cos(1/x)...
-
20'(角度)の計算がわかりま...
-
大きな負の値?負の大きな値???
-
分散分析における誤差項が負値...
-
「Aに対するBの割合」と「Aに対...
-
制御工学解ける方!!
-
エックスの値は5cmですか?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
マイナスからプラスへ転じた時...
-
2÷3などの余りについて
-
信頼区間の1.96や1.65ってどこ...
-
Aの値からBの値を除するとは??
-
エクセルで可視セルにのみ値貼...
-
変数とパラメータとは違うもの...
-
ある商品のロス率を5%見込み、...
-
値差の%計算方法について
-
エックスの値は5cmですか?
-
a^2の√=a が成り立たない場合
-
Excelで1つしかない値だけを抽...
-
20'(角度)の計算がわかりま...
-
「an=(n-1)/(n+1)のときlim[n→∞...
-
EXCELの分散分析表のP-値が....
-
「Aに対するBの割合」と「Aに対...
-
10%引いた元の数字を出すには?
-
パーセントの出し方を教えて下さい
-
楕円の外周の計算方法
-
中学生で数学です。 √84nが自然...
-
教えてください。数学Bの二項分...
おすすめ情報