Sponsored links: Algebra eBooks
 

Related

if-lambda-let-unless

:lisp (defun lottery ...

:lisp (lottery);

:lisp (lottery t);

Calculate

if-integrate-plot2d-quad_qag-sqrt
plot2d([F(x), f(x)], [x, -1, 2], [y, -0.5, 2.5], [box, true], [legend, "F(x)", "f(x)"]);

F(x):=if (x<=0) th...

f(x):=if (x<=0) th...

integrate(2*x^2, x);

Calculate

if

dif(arctan(x),x);

Calculate

if-plot2d
plot2d([F(x), f(x)], [x, -1, 2], [box, false]);

F(x):=if (x<=0) th...

f(x):=if (x<=0) th...

plot2d([F(x), f(x)], ...

Calculate

if-lambda-length-log-map-pred-sum

_entropy(x):=if (x=0)...

entropy(p,b):=-sum(_e...

entropy2(p):=entropy(...

Calculate

if-plot2d
plot2d(if(x=7) then(3) else(x^2-50), [x,-10,10]);

plot2d(if(x=7) then(3...

Calculate

if-plot2d
plot2d(y, [x, -3, 3], [y, -3, 3]);

y(x):=(if (x>2) th...

plot2d(y, [x, -3, 3],...

Calculate

if-labels-lambda-rest-reverse-sum

:lisp (defun enum-int...

:lisp (defun group (s...

:lisp (defun row-sum ...

Calculate

if

h(x):= if (0<x and...

r(a,x):=a[2]*h(x[1])*...

s(a,x):=a[2]*h(1-x[2]...

Calculate

if-plot3d
plot3d(f(x,y),[x,1000,5000],[y,2,4],[mesh_lines_color, false], [elevation, 0], [azimuth, 0],[colorbox, true],[palette, [hue,0.0,.85,.85,1.0/2.0]],[mesh_lines_color,true]);

p(x):=if(x<1000) t...

f(x,y):=(x-(x/y))-(p(...

f(1000,2.5);

Calculate

if

Run Example
(%i1):lisp (defun r (n) (labels ((f (k l z) (let ((ln (+ (* 1.003 l) (* 0.006 z))) (zn (+ (* 0.0069 l) (* 1.026 z)))) (if (<
 k n) (f (1+ k) ln zn) (cons (/ ln l) (/ zn z)))) (f 0 10 1000))))) (print (r 100));

NIL 
NIL
(%i1) 
Run Example
:lisp (mapcar (lambda (x) (and (atom x) (symbolp x))) '(a * (+ 2 3)));

(T T NIL)
(%i1) :lisp (mapcar (lambda (x) (if (listp x) (cadr x))) '(a * (2 + 3)));

(NIL NIL +)
(%i1) 
Run Example
load(descriptive);
(%o1) /usr/share/maxima/5.21.1/share/contrib/descriptive/descriptive.mac
(%i2) load(numericalio);
(%o2) /usr/share/maxima/5.21.1/share/contrib/numericalio/numericalio.mac
(%i3) load(draw);
(%o3)            /usr/share/maxima/5.21.1/share/draw/draw.lisp
(%i4) s:[4,17,22,95,47,32,11,11,14,52,54,74,23,18,40,33,61,80,93,71,34,85,15,3,1,8,7,16,50,66,91,31,55,80,43,60,11,5,99,35,19,37,44,43,52,88,91,1,24,49];
(%o4) [4, 17, 22, 95, 47, 32, 11, 11, 14, 52, 54, 74, 23, 18, 40, 33, 61, 80, 
93, 71, 34, 85, 15, 3, 1, 8, 7, 16, 50, 66, 91, 31, 55, 80, 43, 60, 11, 5, 99, 
35, 19, 37, 44, 43, 52, 88, 91, 1, 24, 49]
(%i5) if (mini(s)=5) then draw2d(fill_color = red, ellipse(0,6,3,3,360,-360), xrange = [-3,6], yrange = [2,9]) else draw2d(fill_color = blue, rectangle([0,0],[4,4]), xrange = [-2,2], yrange = [-4,4]);
(%o5)                          [gr2d(rectangle)]
(%i6) 
[abs,array,do,if,listarray,plot2d,sin] [abs,assume,if,is,ratsimp] [abs,do,if,is,length,map,ratsimp,realroots,solve] [addrow,block,cos,define,float,if,matrix,print,subst] [append,ascii,block,concat,copylist,delete,divsum,first,if,make_random_state,next_prime,second,set_random_state,slength,substring,true] [append,ascii,block,concat,delete,divsum,first,if,make_random_state,next_prime,second,set_random_state,slength,substring,true] [append,ascii,block,copylist,delete,divsum,first,if,make_random_state,next_prime,print,sconcat,second,set_random_state,slength,substring,true] [append,atom,block,delete,do,emptyp,freeof,if,indices,lambda,length,lmax,lmin,makelist,map,member,not,sublist_indices,subst] [append,atom,block,delete,flatten,if,lambda,load,map,return] [append,block,declare,do,factor,if,lsum] [append,block,delete,do,emptyp,if,lambda,length,makelist,map,not,subst] [append,block,emptyp,errcatch,errormsg,find_root,first,flatten,floor,if,listp,makelist,not,numer,rest,second,sin] [append,block,emptyp,errcatch,errormsg,first,flatten,floor,if,listp,makelist,not,rest,second,sin] [append,eval,false,if,labels,lambda,quotient,rest,reverse,sum,true] [array,do,if,listarray,plot2d,sin] [bftorat,block,cons,delete,emptyp,false,first,float2bf,fpprec,if,integerp,kill,lambda,listp,map,mod,ratdenom,ratepsilon,ratprint,rest,return] [bftorat,block,delete,ev,false,float,if,integerp,mod,ratdenom,ratepsilon,ratprint] [bftorat,block,delete,float,if,integerp,mod,rat,ratdenom,ratepsilon,ratprint] [bftorat,block,emptyp,first,float,fpprec,if,integerp,mod,not,numer,ratepsilon,ratprint,return] [bftorat,block,ev,false,float2bf,fpprec,if,integerp,kill,mod,ratdenom,ratepsilon,ratprint,return] [bftorat,block,false,float2bf,fpprec,if,integerp,kill,mod,ratdenom,ratepsilon,ratprint,return] [block,cos,flatten,if,li,load,makelist,map,numer,outermap,plot2d,sin,sort,unique] [block,do,if,length,while] [block,if,load,primep] [block,if,plot2d] [block,if] [ceiling,if,mod] [coeff,factor,if,product,ratsimp,sum] [cos,do,if,lambda,print,sin] [display2d,false,if,plot2d,sqrt] [do,evenp,first,if,lambda,makelist,map,return,setify,subset] [do,float,if,print,return] [do,if,is,length,map,ratsimp,realroots,solve,subst] [do,if,lambda,let,or,string,values] [do,if,lambda,let,or,values] [do,if,mod] [draw,if,load] [eval,if,labels,lambda,rest,reverse,sum] [evenp,first,if,lambda,makelist,map,setify,subset] [evenp,if,lambda,makelist,map,setify,subset] [first,if,lambda,makelist,map,mod,setify,subset] [genmatrix,if,lambda] [if,integrate,plot2d,quad_qag,sqrt] [if,lambda,let,or,values] [if,lambda,let,unless] [if,lambda,let] [if,let] [if,plot2d,plot3d] [if,plot2d] [if]

Related Help

Help for If