Re: Extremely simple problem, and NO success!
- To: mathgroup at smc.vnet.net
- 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
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