Related

false-float-ratprint-solve

Kill(all);

ratprint : false;

/*ejercicio*//*parame...

Calculate

cframe_flag: false;

ratchristof: true;

Calculate

false-integrate-numer-plot2d-ratprint-rhs-solve

ratprint:false;

X:[3,5,4,2,6,2,2,4,10...

parabel(x,y):=y=a*x^2...

Calculate

/* Schwarzschild sim...

/* set some flags */c...

Calculate

false-or

x3:a2 and a1;

x3, a2=true,a1=true,a...

x3, a2=true,a1=true,a...

Calculate

/* defino los flags *...

ratchristof: true;

Calculate

false-or

f:(h and not c) or (p...

(...

f,h=true,c=true,p=false;

Calculate

false

f:((not d and (a or n...

f,a=true,b=true,c=tru...

f,a=true,b=true,c=tr...

Calculate

false-or

f:(h and not c) or (p...

/* Door is locked, ca...

f,h=true,c=true,p=false;

Calculate

false

L1:(A.C) . (A. B);

L1,A = true, B=true, ...

Calculate

false

Run Example
```(%i1)cardinality ({});
(%o1)                                  0
(%i2)  cardinality ({a, a, b, c});
(%o2)                                  3
(%i3)  simp : false;
(%o3)                                false
(%i4)  cardinality ({a, a, b, c});
(%o4)                                  3
(%i5) cardinality({2, 4, 6, 8, 10, 12, 14, 18, 20, 24, 28, 30, 36, 40, 42, 50, 54, 56, 60, 70, 72, 84, 90, 98, 100, 108, 120, 126, 140, 150, 162, 168, 180, 196, 200, 210, 216, 252, 270, 280, 294, 300, 324, 350, 360, 378, 392, 420, 450, 486, 490, 504, 540, 588, 600, 630, 648, 686, 700, 756, 810, 840, 882, 900, 972, 980, 1050, 1080, 1134, 1176, 1260, 1350, 1372, 1400, 1470, 1512, 1620, 1764, 1800, 1890, 1944, 1960, 2058, 2100, 2268, 2430, 2450, 2520, 2646, 2700, 2744, 2940, 3150, 3240, 3402, 3430, 3528, 3780, 4050, 4116, 4200, 4410, 4536, 4860, 4900, 5292, 5400, 5670, 5880, 6174, 6300, 6804, 6860, 7350, 7560, 7938, 8100, 8232, 8820, 9450, 9720, 9800, 10290, 10584, 11340, 12150, 12348, 12600, 13230, 13608, 13720, 14700, 15876, 16200, 17010, 17150, 17640, 18522, 18900, 20580, 22050, 22680, 23814, 24300, 24696, 26460, 28350, 29400, 30870, 31752, 34020, 34300, 37044, 37800, 39690, 41160, 44100, 47628, 48600, 51450, 52920, 55566, 56700, 61740, 66150, 68040, 68600, 74088, 79380, 85050, 88200, 92610, 95256, 102900, 111132, 113400, 119070, 123480, 132300, 154350, 158760, 166698, 170100, 185220, 198450, 205800, 222264, 238140, 264600, 277830, 308700, 333396, 340200, 370440, 396900, 463050, 476280, 555660, 595350, 617400, 666792, 793800, 833490, 926100, 1111320, 1190700, 1389150, 1666980, 1852200, 2381400, 2778300, 3333960, 4167450, 5556600, 8334900, 16669800});
(%o5)                                 216
(%i6) ```
Run Example
```load(eigen);
(%o1)           /usr/share/maxima/5.21.1/share/matrix/eigen.mac
(%i2) P: matrix([0,1,0],[0,0,1],[1,0,0]);
[ 0  1  0 ]
[         ]
(%o2)                             [ 0  0  1 ]
[         ]
[ 1  0  0 ]
(%i3) Pdag: ctranspose(P);
[ 0  0  1 ]
[         ]
(%o3)                             [ 1  0  0 ]
[         ]
[ 0  1  0 ]
(%i4) A: P+Pdag;
[ 0  1  1 ]
[         ]
(%o4)                             [ 1  0  1 ]
[         ]
[ 1  1  0 ]
(%i5) hermitianmatrix: false;
(%o5)                                false
(%i6) [L, V]: eigenvectors(A);
(%o6)   [[[2, - 1], [1, 2]], [[[1, 1, 1]], [[1, 0, - 1], [0, 1, - 1]]]]
(%i7) Ltmp: [];
(%o7)                                 []
(%i8) Vtmp: [];
(%o8)                                 []
(%i9) for i:1 thru length(L[1]) do    for j:1 thru L[2][i] do      (        Ltmp: append(Ltmp, [L[1][i]]),     Vtmp: append(Vtmp, V[i][j])  );
(%o9)                                done
(%i10) Ltmp;
(%o10)                           [2, - 1, - 1]
(%i11) Vtmp;
(%o11)                  [1, 1, 1, 1, 0, - 1, 0, 1, - 1]
(%i12) U: tranpose(matrix(Vtmp));
(%o12)            tranpose([ 1  1  1  1  0  - 1  0  1  - 1 ])
(%i13) D: apply(diag_matrix, Ltmp);
[ 2   0    0  ]
[             ]
(%o13)                          [ 0  - 1   0  ]
[             ]
[ 0   0   - 1 ]
(%i14) ```
Run Example
```display2d:false;

(%o1) false
(%i2)
/* Rennen (Solo 2, Tout 8) kein Kontra */ eq: w*8-8*(1-w)=4;

(%o2) 8*w-8*(1-w) = 4
(%i3)
solve(eq,w);

(%o3) [w = 3/4]
(%i4)
/* VM (Solo 2, Tout 8) Kontra */ eq: w*8-16*(1-w)=4;

(%o4) 8*w-16*(1-w) = 4
(%i5)
solve(eq,w);

(%o5) [w = 5/6]
(%i6)
/* Solo 4 Einheiten, Laufende kein Kontra */ eq: w*2*(4+L)-2*(4+L)*(1-w)=4+L+2 ;

(%o6) 2*w*(L+4)-2*(1-w)*(L+4) = L+6
(%i7)
solve(eq,w);

(%o7) [w = (3*L+14)/(4*L+16)]
(%i8)
/* Solo 4 Einheiten, Laufende Kontra*/ eq: 2*(4+L)*w-4*(4+L)*(1-w)=4+L+2 ;

(%o8) 2*w*(L+4)-4*(1-w)*(L+4) = L+6
(%i9)
solve(eq,w);

(%o9) [w = (5*L+22)/(6*L+24)]
(%i10)
```

Help for False