Notitle

ゲームのレビュー、PCについての雑記

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
  1. --/--/--(--) --:--:--|
  2. スポンサー広告

ActiveBasicについて 2回目

今回は前回のコードにこんなのを追加しました。

'Loop文用
Dim KUI As Double
Dim LI As Double
Dim XI As Double
Dim YI As Double
Dim RI As Double



'表
do
if RI>100 Then RI=100
LI=A^2/RI
XI=LI*(1-LI^2/(40*RI^2)+LI^4/(3456*RI^4))
YI=LI^2/(6*RI)*(1-LI^2/(40*RI^2)-LI^4/(7040*RI^4))
PRINT USING "R=###.### L=######.## X= ######.### Y= ######.###";RI,LI,XI,YI
if RI>=100 then exit do
RI=RI+KUI
loop

です。


なぜかXIとYIが正しい値にならない・・・・
Lもおかしいかも知れないし・・・・


まだまだ改良が必要です。
スポンサーサイト
  1. 2009/01/30(金) 21:20:58|
  2. 学校
  3. | トラックバック:0
  4. | コメント:0
<<ActiveBasicについて 3回目(一応最終回) | ホーム | ActiveBasicについて>>

コメント

コメントの投稿


管理者にだけ表示を許可する

トラックバック

トラックバックURLはこちら
http://nomame0delete.blog33.fc2.com/tb.php/21-94424030
この記事にトラックバックする(FC2ブログユーザー)

プロフィール

e3jp

Author:e3jp
たまにしか更新しませんがいろいろと書いていけたらと思っています。

リンクフリーです

最新記事

最新コメント

最新トラックバック

月別アーカイブ

カテゴリ

東方人形劇 (5)
製品紹介? (2)
PC (8)
未分類 (10)
学校 (3)
雑記 (3)
ギター (2)
txt (1)

アクセスカウンター

アクセスカウンター

現在の閲覧者数
:

フリーエリア

Firefox ブラウザ無料ダウンロード

検索フォーム

RSSリンクの表示

リンク

このブログをリンクに追加する

QRコード

QRコード

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。