新しく発言する EXIT インデックスへ
教えてください
　　教えてください 学生 2006/06/09 16:20:20 
　　└配列の添え字に小数を指定すると，整数に丸... 白石　和夫 2006/06/09 18:41:21 
　　　└わかりました。 学生 2006/06/13 13:34:13 

　　教えてください 学生 2006/06/09 16:20:20  ツリーへ

教えてください 返事を書く
学生 2006/06/09 16:20:20
次のプログラムで数値計算をさせグラフィック化したいのですが、
数値計算は正しくできているけれど、
グラフィック化すると滑らかな曲線になりません。どうしたら
良いのか教えてください。

!メインプログラム
option base 0
dim y(300)
let m=5
let k=5
let c=2
let f=1
call keisan(m,k,c,f,y)
call graph10(y)
END
!-------------------------------------------
!　計算部分
external sub keisan(m,k,c,f,y())
set window -5,30,-1,2
draw grid
let w=sqr(k/m)
let z=c/(2*sqr(m*k))
let l=sqr(1-z^2)
let o=atn(l/z)
for t=0 to 30 step 0.1
let Y1=(-z*w*t)
let Y2=exp(Y1)
let Y3=w*t*l+o
let Y4=sin(Y3)
let Y24=Y2*Y4
let Y5=1-(Y24/l)
let Y5fk=Y5*f/k
let y(t)=Y5fk*5
print t;"Y5fk=";Y5fk;"Y=";y(t)
next t
end sub
!-------------------------------------------
!グラフ化部分
external sub graph10(y())
set window -5,30,-1,2
draw grid
for t=0 to 30 step 0.1
plot lines:t,y(t);
next t
end sub
 

　　└配列の添え字に小数を指定すると，整数に丸... 白石　和夫 2006/06/09 18:41:21  ツリーへ

Re: 教えてください 返事を書く
白石　和夫 2006/06/09 18:41:21
配列の添え字に小数を指定すると，整数に丸められます。
たとえば，y(1.1)はy(1)を意味します。
dim y(300)で300個の配列を用意しているので，
tの値を10倍したものを添え字として使うようにすればいいと思います。
つまり，
t=0.1に対応するyの値を入れる添え字付き変数をy(1)，
t=0.2に対応するyの値を入れる添え字付き変数をy(2)，
・・・・
のようにするということです。
 

　　　└わかりました。 学生 2006/06/13 13:34:13  ツリーへ

Re: 配列の添え字に小数を指定すると，整数に丸... 返事を書く
学生 2006/06/13 13:34:13
わかりました。
ありがとうございました。

インデックスへ EXIT
新規発言を反映させるにはブラウザの更新ボタンを押してください。