summaryrefslogtreecommitdiff
path: root/lang/dynamo/1.8.7/src/dyn.quadrat
blob: fdd553a6c1e652c5543e8a2610c13d783ecb00e2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
NOTE  HIER BERECHNEN WIR DAS QUADRAT MITTELS ABLEITUNG !
L     F.K=F.J+2*TIME.J*DT
N     F=0
C     DT=0.01
NOTE  DT WIRD EXTRA SO KLEIN GEWAEHLT; DAMIT DIE ANNAEHERUNG GUT IST
NOTE 
NOTE  DAS GEHT AUF KOSTEN DER RECHENZEITEN !!!
C     LENGTH=17 
C     PLTPER=1
PLOT  F
C     PRTPER=1
PRINT F