oldfolder=cd('c:\')  % új current folder: c:\
cd(oldfolder)  % visszaállítjuk az eredetire
cd d:\munka   % ilyen formában is használható (csak elérhetőre!)
path     % parancsok keresési könyvtársorozata
format compact; format long;
% format loose; format short;
%-----------------------------
help sqrt
doc sqrt
%-----------------------------

A = [4 2 0; -3 5 2; -2 6 1], det = det(A), b=[10;-10;-10], x=A\b
A*x
%-----------------------------
s = vpa('pi',50)
dbl_pi = eval(s)
dbl_pi == pi
%-------------------------------------------------------------------
clear, syms a b c x;  f = a*exp(-b*x)*sin(c*x)
int_f = int(f,x) 	% primitív függvény
diff_int = diff(int_f,x)		% ennek deriváltja
egyszerubb = simple(diff_int); % egyszerűbb alakra
egyszerubb		% egyszerűbb alak kiíratása
%----------------------------------------------------------------
ezplot('(x^2+y^2)^2-x^2+y^2',[-1,1],[-1,1]); axis square
%-----------------------------
ketvalt_fv
%----------------------------------------------------------------
animacio(5)
animacio(-4)
%-----------------------------
a=int16(10), b=30, c=a/b, d=b/a, whos
% Mi van ha b=20 ???
intmax('uint64')
q = uint16(40000), q+q
v = 1e155, v2 = v*v, v3 = v2/v2, v4 = v2*0, v5 = v2-v2
format hex, p = 1/10
a = 1 + eps,  a == 1
b = 1 + eps/2, b == 1
% realmax: 2^1024-nél 1 bittel kisebb
realmax, realmax*(1+eps)
format long, realmax*(1+eps)
0*Inf
%-----------------------------
z=4+3i, R = abs(z), z*z', fi = angle(z)
R*exp(i*fi)
%-----------------------------
fi = pi*[0:360]/180; R = 3; z = R*exp(i*fi);
plot(z); grid on; axis square; title([int2str(R) ' sugaru kör']);
%-----------------------------
ascii = char(32:127)
kod = uint16(ascii)    % double(ascii) is jó

ekezetes = 'öüóőúéáűíÖÜÓŐÚÉÁŰÍ'
whos ekezetes
novekvo = sort(ekezetes)
novekvokod = uint16(novekvo)
%-----------------------------

B = [1 2 3; 4 5 6; 7 8 9], C =[1, 2, 3; 4, 5, 6; 7, 8, 9]
whos B, C
%-----------------------------

'Matlab' == 'Matek '
%-----------------------------
format long e; pi
%-----------------------------
1:10,   5:2:15,   0: 0.01: 10
%-----------------------------
% értékadás
sz = 1/3 - 1/2, st = sin(pi/6), e = exp(1), e2 = exp(2), log(e)

% hasonlítások
st > sz
e2 == e*e   % nem számol pontosan!!
'alma' == 'alfa'	% írásjelenként értékel
strcmp('alma', 'alMa')   % kisbetű-nagybetűre érzékeny
strcmpi('alma', 'alMa') % kisbetű-nagybetűre nem érzékeny

% mennyire pontos?
abs(sin(pi/4) - 0.5*sqrt(2)) < eps

B = true(2,3), whos B

% dátum-idő
most=now, dt_str=datestr(most), dt_vec=int16(datevec(most))
% csak a dátumrész (egészrész)
floor(most), datestr(floor(most))
% csak a napon belüli idő
rem(most,1), datestr(rem(most,1))
% rem: osztás utani maradék:  rem(pi,1) == pi - floor(pi)
x=sqrt(3); tic, for i=1:10^8 x=x+1.0000001; end, toc; ...
x=sqrt(3); tic, for i=1:10^8 x=x/1.0000001; end, toc;
%-----------------------------
a = [1,2,3,4]
if any(a<0) fprintf('van negatív is!\n'), else fprintf('Nincs negatív!\n'), end
a(1,2) = -1;
if any(a<0) fprintf('van negatív is!\n'), else fprintf('Nincs negatív!\n'), end
all(a), a(1,2)=0, all(a)
a*a', a'*a
%-------------------------------------------
save test.mat 
clear 
load test.mat

save e* e_valt.mat	% csak az e-vel kezdődő változók

% e betűvel kezdődő változók nevei:
who e*

% e betűvel kezdődő változók törlése:
clear e*
%-----------------------------
x = 0: 0.01: 10;  % x sorozat finom lépésközzel
plot(x, log10(x), x, cos(x))  % 2 értékpár-sorozatból rajz

% 1, 5.5, 7 körüli metszéspontok:
p(1) = fzero('cos(x)-log10(x)', 1);
p(2) = fzero('cos(x)-log10(x)', 5.5);
p(3) = fzero('cos(x)-log10(x)', 7)

% metszéspontok rárajzolása:
hold on, plot(p, cos(p), 'or')