(*ukazka zpracovani vstupniho testiku*)

SetDirectory[NotebookDirectory[]]

FileNames["*.xls"]

pom1=Import["koeficientyReal.xls"][[1]];
pom2=Drop[pom1,1];
MatrixForm[pom2];
praveStrany1=Last/@pom2;
praveStrany2=Transpose[pom2]//Last;
matice1=Transpose[Drop[Transpose[pom2],-1]];
matice2=Take[#,10]&/@pom2;
matice3=DeleteCases[pom2\[Transpose],praveStrany1]\[Transpose];

reseni1=Inverse[matice1].praveStrany1;
reseni2=LinearSolve[matice2,praveStrany2]
xka=Table[(Subscript[x, i]),{i,1,10}];
rovnicky1=Thread[matice1.xka==praveStrany1];
sol=Solve[rovnicky1,xka][[1]]
(Subscript[x, 5])+(Subscript[x, 3])/.sol
Thread[xka->reseni1]

ClearAll[Evaluate[Context[]<>"*"]]

pom1=Import["koeficientyKomplex.xls"][[1]];
pom2=Drop[pom1,{1,2}];

matice1=Table[pom2[[i,j-1]]+pom2[[i,j]]*I,{i,1,Length[pom2]},{j,2,Length[pom2[[1]]]-2,2}];

praveStrany1=Table[pom2[[i,j-1]]+pom2[[i,j]]*I,{i,1,Length[pom2]},{j,Length[pom2[[1]]],Length[pom2[[1]]],2}];

pom3=(Partition[#,2]&/@pom2)/.{re_Real,im_}:>re+I*im;

LinearSolve[matice1,praveStrany1];

diffrov=5*y''[t]+11*y'[t]+2*y[t]==((Sin[t])/(t+1));
DSolve[{diffrov,y'[0]==5,y[0]==1},y[t],t];
DSolve[{diffrov,y[1]==5,y[0]==1},y[t],t];

(((({{1, 2}, {7, 13}})))^(1/5))

MatrixPower[{{1,2},{7,13}},1/5]//N

FindMaximum[{x+2y,(x^2)+(y^2)==1},{x,y}]

FindMinimum[{x+2y,(x^2)+(y^2)==1},{x,y}]