Hi there,
I wish to create a graph, but it does not work on Gauss 19. This is the code:
y=tvec~avec1;
x=timevec1~timevec1;
_pmcolor={0,0,0,0,0,0,0,0,15};
_pbox = 15;
_pdate = "";
_plctrl = {0, 0, 0, 0 };
_pstype = {0, 0, 0};
_pcolor = {0,0,0};
_plwidth={4,4,3,4};
_pltype={3,6};
liner1=1~2~20~50000~80~50000~1~1~1;
liner2=1~2~20~100000~80~100000~1~1~1;
liner3=1~2~20~150000~80~150000~1~1~1;
liner4=1~2~20~200000~80~200000~1~1~1;
liner5=1~2~20~250000~80~250000~1~1~1;
_pline=liner1|liner2|liner3|liner4|liner5;
ylabel("Variable");
xlabel("Time");
title ("Total Variable");
x0=30|74;
y1=0|300000;
scale(x0,y1);
_plegstr = "current level \000adjusted level";
_plegctl = {2,8,4,1};
graphprt("-c=1 -cf=fig1.eps" );I suspicious that I am using a older version code to create graphs, but even in that case, how can I adapt it for newer versions?
Thanks!
6 Answers
0
accepted
0
You should still be able to run the old style graph, but your code is missing the call to the xy function.
However, below is some updated code to create the graph. You will have to define x and y first.
struct plotControl myPlot;
myPlot = plotGetDefaults("xy");
plotCanvasSize("px", 600 | 400);
plotSetYlabel(&myPlot, "Variable", "arial", 14);
plotSetXlabel(&myPlot, "Time");
plotSetTitle(&myPlot, "Total Variable","arial", 14);
plotSetXTicInterval(&myPlot, 5, 30);
plotSetYRange(&myPlot, 0, 300000);
plotSetYTicLabel(&myPlot, "%.2g");
leg_text = "current level" $| "adjusted level" $| reshape("", 5,1);
plotSetLegend(&myPlot, leg_text, 48 | 70000);
plotSetLegendBkd(&myPlot, 1);
clrs = reshape("black", 2, 1) $| reshape("midnight-blue", 5, 1);
plotSetLineColor(&myPlot, clrs);
plotSetLineStyle(&myPlot, 1 | 2 | reshape(3,5,1));
plotXY(myPlot, x, y;
lines = { 50000 100000 150000 200000 250000,
50000 100000 150000 200000 250000 };
plotAddXY(30 | 75, lines0
Your Answer
6 Answers
0
accepted
0
You should still be able to run the old style graph, but your code is missing the call to the xy function.
However, below is some updated code to create the graph. You will have to define x and y first.
struct plotControl myPlot;
myPlot = plotGetDefaults("xy");
plotCanvasSize("px", 600 | 400);
plotSetYlabel(&myPlot, "Variable", "arial", 14);
plotSetXlabel(&myPlot, "Time");
plotSetTitle(&myPlot, "Total Variable","arial", 14);
plotSetXTicInterval(&myPlot, 5, 30);
plotSetYRange(&myPlot, 0, 300000);
plotSetYTicLabel(&myPlot, "%.2g");
leg_text = "current level" $| "adjusted level" $| reshape("", 5,1);
plotSetLegend(&myPlot, leg_text, 48 | 70000);
plotSetLegendBkd(&myPlot, 1);
clrs = reshape("black", 2, 1) $| reshape("midnight-blue", 5, 1);
plotSetLineColor(&myPlot, clrs);
plotSetLineStyle(&myPlot, 1 | 2 | reshape(3,5,1));
plotXY(myPlot, x, y;
lines = { 50000 100000 150000 200000 250000,
50000 100000 150000 200000 250000 };
plotAddXY(30 | 75, lines
0