Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1995
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1995

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

Search the Archive

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


  • Prev by Date: HELP! Memory problem?
  • Next by Date: RE: MathLink
  • Previous by thread: Extremely simple problem, and NO success!
  • Next by thread: Re: Extremely simple problem, and NO success!