1.

(%i1) soucet(n):=


    if is(mod(n,2)=1) then(


        k:0,


            for i:1 step 2 thru n do(k:k+i),


        k


        );

Result

(%i2) soucet(5);

Result

2.

(%i3) prumer(n):=sum(seznam[i],i,1,length(n))/length(n);

Result

3.

(%i4) graf(f,pom):=((df:ev('diff(f,x,1), nouns)),wxplot2d([f,df],[x, pom[1], pom[2]]));

Result

(%i5) graf(sin(2*x),[-5,5]);

Result


Created with wxMaxima.