(* 1. cviko 11:00 až 12:30
Straka, Pražák
 *)

10+9/3+11

(Sqrt[2])
(Sqrt[2.])
N[(Sqrt[2]),2000]

N[1/7]

x=9;
y=4;

x

N=5
Sin=15;

(((3+1)/3)*15)

(* ctrl+2 (Sqrt[\[Placeholder]]), ctrl+6 (x^\[Placeholder]), ctrl+/ (\[Placeholder]/\[Placeholder])*)

(Sqrt[\[Placeholder]])

(x^(((((\[Placeholder]^(\[Placeholder]^\[Placeholder]))^((\[Placeholder]^\[Placeholder])\[Placeholder]))^\[Placeholder])^\[Placeholder])^\[Placeholder]))

(Sqrt[(Sqrt[(Sqrt[(Sqrt[(Sqrt[(Sqrt[(Sqrt[81])])])])])])])

(1/4)

list={ja,ty,{on,ona,ono}}

list[[1]]
list[[3,2]]

Sin[list]/.{ja->Pi,ty->2.,ono->π}

ja

ClearAll[x]
funkce={Log[x],Cos[2*x],Sin[6x]};

Plot[funkce,{x,0,2*π},PlotLegends->"Expressions"]

(* komentář *)

Jan Votava je vul

2 5 8 9

vyraz=(a+b)*(a-b)

Expand[vyraz]

FullForm[vyraz]

FullForm[list]

TreeForm[vyraz]

TreeForm[list]

Sin[5.]
Sin@5.
5.//Sin

(Sqrt[y])//N

Plot[{Log[t+4],(t^3)*Sin[5*t+0.4]},{t,0,10},PlotStyle->{{Thick,Black},{Red,Dashed,Thick}},PlotRange->{Automatic,{-100,100}}]

(* 2. cviko 26.2. 11:00 *)

1000!//N

RES=Solve[2*(x^2)+6*x+3==0,x]

RES//TreeForm;

x1=x/.RES[[1]]
x2=x/.RES[[2]]

?/.

Reseni=Solve[{3*x+a*y+8==0,x+y-9==0},{x,y}]

x=Pi

XX=x/.Reseni[[1]];
YY=y/.Reseni[[1]];

Plot[{XX,YY},{a,-5,10},PlotStyle->{{Red,Thick},{Blue,Thick}},AxesLabel->{"x","f(x)"},PlotRange->Automatic,GridLines->Automatic]

Options[Plot];

ClearAll[MojeFunkce]
MojeFunkce[cokoliv_]:=1+(cokoliv^2)

MojeFunkce[50]

res2=Solve[{(x^2)+(y^2)==k,y-3(x^2)+(5/2)==k},{x,y}];
xka=x/.res2;

Plot[xka,{k,0,5},GridLines->Automatic,PlotStyle->{{Red,Thick},{Blue,Thick},{Black,Thick},{Magenta,Thick}},AxesLabel->{"osa X","osa Y"}]

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

ClearAll[fce]
fce[parametr_]:=x/.FindRoot[Cos[parametr*x]==x,{x,0}]

fce[9]

Plot[fce[t],{t,0,3},PlotStyle->{{Red,Dashed}},AxesLabel->{"osa X","osa Y"}]