diff options
| author | Lars-Dominik Braun <lars@6xq.net> | 2016-09-30 16:57:23 +0200 |
|---|---|---|
| committer | Lars-Dominik Braun <lars@6xq.net> | 2016-09-30 16:59:06 +0200 |
| commit | 724cc003460ec67eda269911da85c9f9e40aa6cf (patch) | |
| tree | 14e27b45e04279516e4be546b15dcf6fafe17268 /dynamo/dyn.steifedgl | |
| download | eumel-src-724cc003460ec67eda269911da85c9f9e40aa6cf.tar.gz eumel-src-724cc003460ec67eda269911da85c9f9e40aa6cf.tar.bz2 eumel-src-724cc003460ec67eda269911da85c9f9e40aa6cf.zip | |
Add extracted sources from floppy disk images
Some files have no textual representation (yet) and were added as raw
dataspaces.
Diffstat (limited to 'dynamo/dyn.steifedgl')
| -rw-r--r-- | dynamo/dyn.steifedgl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/dynamo/dyn.steifedgl b/dynamo/dyn.steifedgl new file mode 100644 index 0000000..b168fcd --- /dev/null +++ b/dynamo/dyn.steifedgl @@ -0,0 +1,15 @@ +NOTE STIFF EQUATIONS SIEHE: SIMULATION AUGUST 1980, SEITE 38 +L Y1.K=Y1.J+DT*(-21*Y1.J+19*Y2.J-20*Y3.J) +L Y2.K=Y2.J+DT*(+19*Y1.J-21*Y2.J+20*Y3.J) +L Y3.K=Y3.J+DT*(+40*Y1.J-40*Y2.J-40*Y3.J) +N Y1=1 +N Y2=0 +N Y3=-1 +NOTE KONSTANTEN MUESSEN GEEIGNET GEWAEHLT WERDEN: DT SEHR KLEIN +C LENGTH=20 +C DT=.01 +C PRTPER=1 +C PLTPER=1 +PRINT Y1,Y2,Y3 +PLOT Y1,Y2,Y3 + |