| version 1.34, 2015/08/14 13:51:56 |
version 1.35, 2017/09/01 01:48:40 |
|
|
| * 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.33 2015/08/06 10:01:53 fujimoto Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/plot/if.c,v 1.34 2015/08/14 13:51:56 fujimoto Exp $ |
| */ |
*/ |
| #include "ca.h" |
#include "ca.h" |
| #include "parse.h" |
#include "parse.h" |
| Line 128 int plot(NODE arg,int fn){ |
|
| Line 128 int plot(NODE arg,int fn){ |
|
| LIST xrange,yrange,zrange,wsize; |
LIST xrange,yrange,zrange,wsize; |
| STRING wname; |
STRING wname; |
| V v; |
V v; |
| |
Real r; |
| |
double rr; |
| |
|
| formula=(P)ARG0(arg); |
formula=(P)ARG0(arg); |
| xrange=(LIST)ARG1(arg); |
xrange=(LIST)ARG1(arg); |
| Line 145 int plot(NODE arg,int fn){ |
|
| Line 147 int plot(NODE arg,int fn){ |
|
| n=BDY(yrange);can->vy=VR((P)BDY(n));n=NEXT(n); |
n=BDY(yrange);can->vy=VR((P)BDY(n));n=NEXT(n); |
| can->qymin=(Q)BDY(n);n=NEXT(n);can->qymax=(Q)BDY(n); |
can->qymin=(Q)BDY(n);n=NEXT(n);can->qymax=(Q)BDY(n); |
| can->ymin=ToReal(can->qymin);can->ymax=ToReal(can->qymax); |
can->ymin=ToReal(can->qymin);can->ymax=ToReal(can->qymax); |
| } |
} else if ( !formula || NUM(formula) ) { |
| |
devalr(CO,(Obj)formula,(Obj *)&r); rr = ToReal(r); |
| |
can->ymin=rr-1; can->ymax=rr+1; |
| |
} |
| can->mode=fn; |
can->mode=fn; |
| if(zrange){ |
if(zrange){ |
| n=NEXT(BDY(zrange)); |
n=NEXT(BDY(zrange)); |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to if.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / plot