Quiet[Remove["Global`*"]];
$HistoryLength=2;
SetDirectory[NotebookDirectory[]];

NotebookDirectory[]

FileNames[]

data=Import["koeficientyReal.xls"][[1]];
MatrixForm[data];
data1=Drop[data,1];
Dimensions[data1];
soustava=Transpose[Drop[Transpose[data1],-1]];
praveStrany=Flatten[Transpose[Take[Transpose[data1],-1]]];

matSoust2=data[[2;;,;;-2]];
pravaStrana2=data[[2;;,-1]];

x=(A^(-1))b

{a,b,c,d,e,f}[[3;;5]]

reseni=Inverse[matSoust2].pravaStrana2

matSoust2.reseni-pravaStrana2//Chop

reseni2=LinearSolve[matSoust2,pravaStrana2];

reseni-reseni2

{{a,b},{c,d}} .{x, y}

{{a,b},{c,d}} * {x, y}

dataKompl=Import["koeficientyKomplex.xls"][[1]];

dataKompl2=Drop[dataKompl,2];
Dimensions[dataKompl2]

dataKompl3=Partition[#,2]&/@dataKompl2;

Range[10]

Range[1,100,5]

f[x_]:=x^2

#^2&/@{2,3,54,6}

f/@{2,3,54,6}

f@@{2,3,54,6}

Partition[Range[10],2]

dataKompl4=dataKompl3/.{a_,b_}:>a+I*b

{1,236,8a,gh,e}/. a->"asdasd"

{1,25,6,8}/. {25->v,1->f}