Re: Extremely simple problem, and NO success!
- Subject: [mg2670] Re: Extremely simple problem, and NO success!
- From: sherod at newton.Colorado.EDU (Scott Herod)
- Date: Mon, 4 Dec 1995 01:41:01 -0500
- Approved: usenet@wri.com
- Distribution: local
- Newsgroups: wri.mathgroup
- Organization: Wolfram Research, Inc.
I wrote some code to do this awhile back. It is
===================================================
dc[file_] :=
Block[{f,len,wdt,chi,beta},
f=OpenRead[file];
len=Read[f,Number];
wdt=Read[f,Number];
chi=Read[f,Number];
beta=Read[f,Number];
x=ReadList[f,Table[Number,{wdt}]];
Close[f];
Show[
Table[
Graphics3D[ Line[ {x[[y,{2,3,4}]], x[[y+1,{2,3,4}]]} ] ],
{y,1,len-1}
], BoxRatios->{1,1,1}
]
]
===================================================
The file is expected to start with four numbers giving the length of
the list, the width of the list, and two parameters in my case.
(I was solving odes numerically.) It then should contain a list
of width columns with length rows.
Scott