RE: Mathlink & Graphics....
- Subject: [mg2217] RE: [mg2174] Mathlink & Graphics....
- From: jfultz ("John R. Fultz")
- Date: Tue, 17 Oct 1995 06:33:00 GMT
- Approved: usenet@wri.com
- Distribution: local
- Newsgroups: wri.mathgroup
- Organization: Wolfram Research, Inc.
- Sender: daemon at wri.com ( )
>From: The GodFather[SMTP:gandalf at dogbert.ugcs.caltech.edu] To: mathgroup at smc.vnet.net >Sent: Thursday, October 12, 1995 12:58 AM >To: mathgroup at smc.vnet.net >Subject: [mg2174] Mathlink & Graphics.... > > > Unix Platform.... > > I've been trying to do this for a bit of time.... > > Basically, I would like from a C-code, to generate > a list of numbers {{1,2},{2,1}} and plot their positions > using mathematica's handy plotting routines.... > > If someone could post a way to simply execute a > Plot[x^2,{x,-2,2}], and either have mathematica display > it (in X), or return PostScript to the link stream or > to an output file I would be extremely grateful.... I've included code at the end which does exactly what you need. I also strongly suggest you download the MathLink Tutorial from MathSource, available as item 0206-693. Among other things, this discusses graphics. Note that, since the default init.m sets $DisplayFunction to "stdout" whenever MathLink has a parent connection (e.g. your MathLink program), you have to force it to set the $DisplayFunction elsewhere. I did so by forcing Mathematica to do a Get["Motif.m"] (of course, you could use OL.m or GL.m, if appropriate for your machine, as well). John Fultz Wolfram Research, Inc. -------------------------------- #include "mathlink.h" #include <stdlib.h> #include <stdio.h> char *foo[] = {"-linkname", "math -mathlink", "-linkmode", "launch", 0}; int main (argc, argv) int argc; char* argv[]; { MLINK lp; MLEnvironment ep; int i; char s; ep=MLInitialize(NULL); lp = MLOpen(4, foo); MLPutFunction(lp, "EvaluatePacket", 1); MLPutFunction(lp, "Get", 1); MLPutString(lp, "Motif.m"); MLEndPacket(lp); while (MLNextPacket(lp) != RETURNPKT) {MLNewPacket(lp); }; MLNewPacket(lp); MLPutFunction(lp, "EvaluatePacket", 1); MLPutFunction(lp, "ToExpression", 1); MLPutString(lp, "Plot[x^2, {x, -2, 2}]"); MLEndPacket(lp); while (MLNextPacket(lp) != RETURNPKT) {MLNewPacket(lp); }; MLNewPacket(lp); printf("Press Return to end."); scanf("%c",&s); MLClose(lp); MLDeinitialize(ep); }