# Kedvenc Fizikai Kísérleteim

## Mechanika

### Hosszúság, terület, térfogat

### Kísérlet

Átszámítások.

load("ezunits")$

known_unit_conversions;

 öl:2`yard;

qty(öl);

units(öl);

fundamental_units(öl);

öl``ft;

öl``inch;

öl``m;

%,numer;

1`AU``m;

Fizikai állandók.

 load(physical_constants)$

propvars(physical_constant);

get(%c,description);

constvalue(%c);

Hatványozás.

10^2;

10^3;

10^6;

2^10;

3.14^12;

10^0;

10^(-2);

((3.14)^3)^4;

### Kísérlet

### Kísérlet

### Kísérlet

Véletlen számok.

x:0;

s:0;

n:2;

for i thru n^2 do block([y],y:random(1.0),x:x+y,s:s+y^2);

xx:x/n^2;

s;

ss:s-n^2*xx^2;

Terület. A sin alatti terület 0-tól π-ig.

%pi;

%,numer;

2`m*3`m;

trapez:%pi/8*(sin(0)+2*sin(%pi/4)+2*sin(%pi/2)+2*sin(3*%pi/4)+sin(%pi));

%,numer;

simpson:%pi/24*(sin(0)+4*sin(%pi/8)+2*sin(%pi/4)+4*sin(3*%pi/8)+2*sin(%pi/2)+4*sin(5*%pi/8)+2*sin(3*%pi/4)+4*sin(7*%pi/8)+sin(%pi));

%,numer;

integrate(sin(t),t,0,%pi);

### Kísérlet

### Kísérlet

### Kísérlet

1`mm^2;

%/%pi;

%^(1/2);

%,numer;

### Kísérlet

### Kísérlet

2^1.5;

? log;

### Kísérlet

### Kísérlet

### Kísérlet

%e;

%,numer;

%enumer;

%enumer:not %enumer;

%e,numer;

### Kísérlet

solve(a*x^2+b*x+c,x);

solve(y^3+p*y+q,y);

z:x+%i*y;

w:u+%i*v;

z+w;

z*w;

expand(%);

abs(z);

1/z;

expand(%);

rectform(expand(%));

### Kísérlet

kill(all);

z:[x,y];

w:[u,v];

z+w;

5*z;

r1:[x1,y1,z1];

r2:[x2,y2,z2];

r1+r2;

5*r1;

r1:matrix(r1);

r2:matrix(r2);

r1+r2;

5*r1;

### Kísérlet

z:x+%i*y;

conjugate(z);

z*conjugate(z);

expand(%);

[z,w]:[1+%i,2+3*%i];

abs(z);

abs(w);

abs(z*w);

conjugate(z);

z;

polarform(%);

rectform(%);

### Kísérlet

z:float(1+2.^(-24)*%i);

for e from -24 thru 2 do (print(e,float(z)),z:expand(z^2));

plot2d([realpart(%e^(%i*t)),imagpart(%e^(%i*t))],
    [t,0,2^%pi])$

z:x+%i*y;

polarform(%);

rectform(%);