MathGroup Archive 1995

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • Prev by Date: Re: [Q] how fast is each machine with Mathematica ?
  • Next by Date: HELP! Memory problem?
  • Previous by thread: Re: Extremely simple problem, and NO success!
  • Next by thread: Re: Extremely simple problem, and NO success!