Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1993
*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 1993

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

Search the Archive

output in lisp form

  • To: mathgroup at yoda.physics.unc.edu
  • Subject: output in lisp form
  • From: Frederic Udina <udina at upf.es>
  • Date: Wed, 3 Feb 93 12:25:22 WET

hello

I need to output my number lists in a format readable by lisp.
I have developped a dirty solution as listed below.
It remains a problem, my file contains " and \ characters.

Has someone worked out a better tool to do this task?
If not, I must work my solution to the end...

Thanks



Frederic Udina
Facultat de Ciencies Economiques
Universitat Pompeu Fabra
       Balmes 132
       08008 Barcelona
       SPAIN
    voice:  34 - 3 - 484 97 56
      fax:  34 - 3 - 484 97 46
   e-mail:  udina at upf.es
appleLink:  spa0172



(*a dirty attempt to transfer data from mma to lisp*)

Clear[LispForm];

LispForm[x_List]:=Block[{strlist,str},
        strlist = LispForm /@ x;
        str = StringJoin @@ strlist;
        StringJoin["(list ", str, ") "]];

LispForm[x_?NumberQ]:=StringJoin[ToString[FortranForm[x]]," "];

(*If you do

LispForm[some list of numbers] >> somefile.lsp

you will get 

"(list (list -1.2 0 ) (list -1.1 0 ) (list -1. 1.2326e-32 ) (list -0.9 0.01 )\
  (list -0.8 0.04 ) (list -0.7 0.09 ) (list -0.6 0.16 ) (list -0.5 0.25 )\
  (list -0.4 0.36 ) (list -0.3 0.49 ) (list -0.2 0.64 ) (list -0.1 0.81 )\
  (list -2.77556e-17 1. ) (list 0.1 0.81 ) (list 0.2 0.64 ) (list 0.3 0.49 )\
  (list 0.4 0.36 ) (list 0.5 0.25 ) (list 0.6 0.16 ) (list 0.7 0.09 ) (list\
  0.8 0.04 ) (list 0.9 0.01 ) (list 1. 1.2326e-32 ) (list 1.1 0 ) (list 1.2 0\
  ) ) "

in your file

I don't mind in this moment how to suppress the ".
*)





  • Prev by Date: Re: Mathematica Help: Plotting lines in 3D.
  • Next by Date: Boundary value problems
  • Previous by thread: Re: Mathematica Help: Plotting lines in 3D.
  • Next by thread: Boundary value problems