ページ 1 ／ 1
折れ線グラフ
Posted: 2007年3月29日(木) 22:39
by 初心者 嵐
血圧の値を折れ線グラフにしたいと思います。サンプルプログラムがありましたら教えてください。
Posted: 2007年3月29日(木) 23:21
by konisi
その、「血液の値」の取得方法は全くもって分からんのですが、その値が全て配列mmHg[]に入っていて、そのインデックス数がidxに入っているものとして話を進めます。
コード: 全て選択
#N88BASIC
Dim UmmHg(500) As Long,DmmHg(500) As Long,idx As Long,i As Long
'適当に初期化。ファイルから読み取るなりして最も適当な値に初期化しておくこと。
randomize
UmmHg(0)=80
idx=500
For i=0 To idx-1
UmmHg(i+1)=UmmHg(i)+Int(Rnd()*3)-1
If UmmHg(i+1)<0 then UmmHg(i+1)=0
Next i
DmmHg(0)=65
For i=0 To idx-1
DmmHg(i+1)=DmmHg(i)+Int(Rnd()*3)-1
If DmmHg(i+1)>UmmHg(i+1) then DmmHg(i+1)=UmmHg(i+1)-1
If DmmHg(i+1)<0 then DmmHg(i+1)=0
Next i
'表示
Line (0,200)-(idx,200),7'0ライン
Line (0,150)-(idx,150),2'50ライン
Line (0,120)-(idx,120),4'80ライン
Line (0,50)-(idx,50),2'150ライン
PSet(0,200-UmmHg(0)),2
For i=0 To idx
Line -(i,200-UmmHg(i)),2
Next i
PSet(0,200-DmmHg(0)),1
For i=0 To idx
Line -(i,200-DmmHg(i)),1
Next i
かなり手抜きですが、こんな具合でしょうか？
折れ線グラフ
Posted: 2007年3月30日(金) 23:14
by 初心者 嵐
暇人13世さんありがとうございます。参考にして作ってみます。
Posted: 2007年5月04日(金) 16:46
by ゲスト
> その、「血液の値」の取得方法は全くもって分からんのですが、その値が全て配列mmHg[]に入っていて、そのインデックス数がidxに入っているものとして話を進めます。
>
>
コード: 全て選択
#N88BASIC
> Dim UmmHg(500) As Long,DmmHg(500) As Long,idx As Long,i As Long
> '適当に初期化。ファイルから読み取るなりして最も適当な値に初期化しておくこと。
> randomize
> UmmHg(0)=80
> idx=500
> For i=0 To idx-1
> UmmHg(i+1)=UmmHg(i)+Int(Rnd()*3)-1
> If UmmHg(i+1)<0 then UmmHg(i+1)=0
> Next i
> DmmHg(0)=65
> For i=0 To idx-1
> DmmHg(i+1)=DmmHg(i)+Int(Rnd()*3)-1
> If DmmHg(i+1)>UmmHg(i+1) then DmmHg(i+1)=UmmHg(i+1)-1
> If DmmHg(i+1)<0 then DmmHg(i+1)=0
> Next i
>
> '表示
> Line (0,200)-(idx,200),7'0ライン
> Line (0,150)-(idx,150),2'50ライン
> Line (0,120)-(idx,120),4'80ライン
> Line (0,50)-(idx,50),2'150ライン
> PSet(0,200-UmmHg(0)),2
> For i=0 To idx
> Line -(i,200-UmmHg(i)),2
> Next i
> PSet(0,200-DmmHg(0)),1
> For i=0 To idx
> Line -(i,200-DmmHg(i)),1
> Next i
かなり手抜きですが、こんな具合でしょうか？