Sponsored links: Algebra eBooks
 

Related

disp-divide-expand-load-tellrat-true

load(functs);

polyfactor:true;

divide (expand(x^2-7*...

Calculate

disp-do

RSA(p,q):=(n=p*q,Phi=...

RSA(11,13);

disp(a);

Calculate

disp

disp("Hello World!");

Calculate

disp-do

RSA(p,q):=(n:p*q,Phi:...

RSA(11,13);

mod(5,2);

Calculate

disp-sqrt

"*"/*Rechtecksberechn...

"*"/*----------------...

"*"/*EINGABE*/;

Calculate

disp-do

RSA(p,q):=(n:p*q,Phi:...

RSA(11,13);

disp(a);

Calculate

disp-do

RSA(p,q):=(n:p*q,Phi:...

RSA(11,13);

mod(6,2);

Calculate

disp-log-plot2d
  plot2d([101+1000*(log(n)/log(10)-log(x)/log(10))],[x,1,n]);

n : 20;

plot2d([101+1000*(l...

disp(n);

Calculate

disp-do

RSA(p,q):=(n:p*q,disp...

RSA(11,13);

Codage(LETTRE,n,d):=(...

Calculate

disp-do

RSA(p,q):=(n:p*q,disp...

RSA(11,13);

Codage(LETTRE,n,d):=(...

Calculate

disp

Run Example
(%i1)define_variable (foo, 0, float);
(%o1)                                  0
(%i2) fpprec : 600;
(%o2)                                 600
(%i3) for m:301 step 1 thru 310 do(foo: bfloat(sum(k^m/3^k,k,1,2100)),foo: foo-floor(foo),disp(m,foo));
                                      301

                                     0.0b0

                                      302

                                     0.0b0

                                      303

                                     0.0b0

                                      304

                                     0.0b0

                                      305

                                     0.0b0

                                      306

                                     0.0b0

                                      307

                                     0.0b0

                                      308

                                     0.0b0

                                      309

                                     0.0b0

                                      310

                                     0.0b0

(%o3)                                done
(%i4) 
Run Example
zaehler:0;
(%o1)                                  0
(%i2) for zehner:1 thru 10 do \for einer:1 thru 10 do \if zehner+einer<
10 then block(ev:(zaehler:zaehler+1),\disp([zaehler,10*zehner+einer]));
                                    [1, 11]

                                    [2, 12]

                                    [3, 13]

                                    [4, 14]

                                    [5, 15]

                                    [6, 16]

                                    [7, 17]

                                    [8, 18]

                                    [9, 21]

                                   [10, 22]

                                   [11, 23]

                                   [12, 24]

                                   [13, 25]

                                   [14, 26]

                                   [15, 27]

                                   [16, 31]

                                   [17, 32]

                                   [18, 33]

                                   [19, 34]

                                   [20, 35]

                                   [21, 36]

                                   [22, 41]

                                   [23, 42]

                                   [24, 43]

                                   [25, 44]

                                   [26, 45]

                                   [27, 51]

                                   [28, 52]

                                   [29, 53]

                                   [30, 54]

                                   [31, 61]

                                   [32, 62]

                                   [33, 63]

                                   [34, 71]

                                   [35, 72]

                                   [36, 81]

(%o2)                                done
(%i3) 
Run Example
primep(1+334^4);
(%o1)                                true
(%i2) Loesung:[];
(%o2)                                 []
(%i3) for i:334 thru 366 do if primep(1+i^4) then append(Loesung,[i]);
(%o3)                                done
(%i4) disp(Loesung);
                                      []

(%o4)                                done
(%i5) 

Related Help

Help for Disp