version 1.18, 2005/08/04 04:34:49 |
version 1.19, 2005/12/21 23:18:16 |
|
|
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* |
* |
* $OpenXM: OpenXM_contrib2/asir2000/plot/if.c,v 1.17 2005/05/18 03:27:00 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/plot/if.c,v 1.18 2005/08/04 04:34:49 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
Line 173 int memory_plot(NODE arg,LIST *bytes) |
|
Line 173 int memory_plot(NODE arg,LIST *bytes) |
|
zrange = (LIST)ARG3(arg); |
zrange = (LIST)ARG3(arg); |
wsize = (LIST)ARG4(arg); |
wsize = (LIST)ARG4(arg); |
|
|
|
bzero((char *)&tmp_can,sizeof(tmp_can)); |
can = &tmp_can; |
can = &tmp_can; |
n = BDY(xrange); can->vx = VR((P)BDY(n)); n = NEXT(n); |
n = BDY(xrange); can->vx = VR((P)BDY(n)); n = NEXT(n); |
can->qxmin = (Q)BDY(n); n = NEXT(n); can->qxmax = (Q)BDY(n); |
can->qxmin = (Q)BDY(n); n = NEXT(n); can->qxmax = (Q)BDY(n); |
Line 201 int memory_plot(NODE arg,LIST *bytes) |
|
Line 202 int memory_plot(NODE arg,LIST *bytes) |
|
} |
} |
can->wname = ""; |
can->wname = ""; |
can->formula = formula; |
can->formula = formula; |
if ( can->mode == MODE_PLOT ) |
if ( can->mode == MODE_PLOT ) { |
plotcalc(can); |
plotcalc(can); |
else { |
memory_print(can,&barray); |
|
STOQ(can->width,qw); STOQ(can->height,qh); |
|
n = mknode(3,qw,qh,barray); |
|
MKLIST(*bytes,n); |
|
} else { |
width = can->width; height = can->height; |
width = can->width; height = can->height; |
tabe = (double **)ALLOCA(width*sizeof(double *)); |
tabe = (double **)ALLOCA(width*sizeof(double *)); |
for ( i = 0; i < width; i++ ) |
for ( i = 0; i < width; i++ ) |