1+1

(*takto vypada komentar*)
(*Funguje podobne jako komunikace na webu, tj napisi co pozaduji, Shift+Enter odeslu do kernelu(jadra) a dostanu vystup*)

2

(Sqrt[2])

(*odmocninu muzeme napsat pomoci Palettes/Other/Basic Math Input, nebo dalsi moznost Ctrl+2   *)

(Sqrt[4])

(*Vysledek je vzdy nejkratsi a nejpresnejsi odpoved*)

(Sqrt[2.])

(*Nepresnou dvojiku vytvorim pomoci 2.  *)

(30/7)

(*Zlomek mohu vytvorit klavesovou zkratkou ctrl+/*)

(30/7.)

N[(30/7)]

(*Pouziti funkce N pro vycisleni zlomku*)

N[1/7,50]

(*Funkce muze mit dva parametry, druhy urcuje pocet platnych cislic (v tomto pripade 50)*)

x
cos
(*modra barva znamena, ze symbol jeste neni v jadre, funkce implementovane uvnir jadra pri spusteni zacinaji velkym pismenem*)
π
(*Pi mohu vzit z palety a nebo Esc+p+Esc*)
Cos

d=5

(* Na prirazeni hodnoty do promene pouzije jedno = (v tomto pripade do d davam 5), neni nutne specifikovat typ promenne predem (int, funkce, pole,...) *)

ClearAll[d]

(*Funkce ClearAll vymaze vsechny promenne na ktere ji aplikuji*)

d=5;
C=2+d
(*Pripravene funkce v jadru nelze prepsat, po tomto prikazu prijde, ze C je Protected*)

Sin=3

N=2+d

a=3
b=2
b==4
(*Pro rovnice pouzivame dvojity = , (ptáme se na to zda b je rovno 4)*)

b==a

a=2
b==a

Solve[x*Log[x]==2,x]
(*Funkce Solve pocita nediferencialni rovnice, prvni argument je rovnice, druhy je co chci vypocitat*)

FindRoot[x*Log[x]==2,{x,2}]
(*Funkce FindRoot pocita nediferencialni rovnice ale numerickym, prvni argument je rovnice, druha je list ve tvaru{co chci pocitat, kde zacni}*)

FindRoot[Sin[x]==0,{x,3}]

(x+1)*(x-1)
(*kulate zavorky jsou pro vyrazy*)

jsou vsude diverzanti

(*Mezera znamena nasobeni (Nepouzivat!!!), pote seradi promenne podle abecedy*)

2 3

2*3

Sin[π]

π
ω
(*omega napisi bud z palety nebo dle Esc+o+Esc (podobne i ostatni pismena recke abecedy)*)

list={2.5,{E,π,I},diverzant,a}
(*List tvorim pomoci slozenych zavorek, list muze obsahovat dalsi listy*)

NestList[x,f[x],4];

list[[1]]
list[[2]]
list[[2,2]]
(*Prvek v listu volam pomoci dvojhranatych zavorek ([[]]), poté se dostavam do dalsich urovni listu*)

list[[3]]=protistatny

list

list[[4]]=zivel

list

Plot3D[Sin[x]*Cos[x]+(E^(x*y)),{x,-1,1},{y,-1,1}]
(*Funkce Plot3D zobrazi graf funkce dvou promennych*)

N[(Sqrt[2])]
(*Standartni volani funkci*)

(Sqrt[2])//N
(*Volani funkce pro line programatory*)

N[(Sqrt[2]),100]

N@(Sqrt[2])
(*Dalsi typ volani funkce  *)

(Sqrt[2])@N

Sin@Cos

Sin@{a,b,c}

%
(*Posledni output*)

(775/21.)

%-36