3学期 |
オリエンテーション
![]() ![]() |
![]() 参考書 |
「Unix計算機を使った物理学実験」(新井/板倉) はじめに |
掲示板 |
目次第1章 諸注意
第2章 課題一覧
第3章 その他 |
Netscapeを利用する場合
目次へ戻る
Internet Explorerを利用する場合
目次へ戻る
xgの変更に伴い、プログラムについて以下の訂正が必要です。
SUBROUTINE PAINTF(IP) WRITE(1,1000) 'PAINT ',IP 1000 FORMAT(A6,1H ,I1) RETURN ENDこのサブルーチンでは
C>>>>>DRAW THE EARTH CALL PAINTF(1) CALL V$CIRC(E$XCEN,E$YCEN,E$RADI,1,0.,0.) CALL PAINTF(0)
C>>>>>TRACKING THE SATELLITE:BY RUNGE-KUTTA METHOD CALL V$LINE(S$X,S$Y,Z$X,Z$Y,2) CALL PAINTF(1) CALL V$CIRC(S$X,S$Y,0.2,4,0.,0.) CALL V$CIRC(Z$X,Z$Y,Z$RADI,1,0.,0.) CALL PAINTF(0) IF(MOD(I,2160).EQ.0) THEN CALL V$LINE(XS,YS,XZ,YZ,2) CALL PAINTF(1) CALL V$CIRC(XS,YS,0.2,4,0.,0.) CALL V$CIRC(XZ,YZ,Z$RADI,1,0.,0.) CALL PAINTF(0)