(*vektoralgebra, linearis algebra*)
A={{3,-1,0},{-2,1,1},{2,-1,4}}
MatrixForm[A]
B={{1,2},{3,4},{5,6}};
AI=Inverse[A];
Print["A inverse= ",MatrixForm[AI]]
Y=AI . B;
Print["AY=B matrix egyenlet megoldasa: ",MatrixForm[Y]]
V={2,4,6}
X=AI.V

MatrixForm[A.AI]
Det[A]
Det[AI]

A[[1]]
A[[1]][[2]]

Eigenvalues[A]
N[%]

V
W={-1,-2,-3}
V.W
Cross[V,W]
Norm[V]
Normalize[V]
α*V+β*W

(({{3, -1, 0}, {-2, 1, 1}, {2, -1, 4}}))

egy1=3*x-y==2
egy2=-2*x+y+z==4
egy3=2*x-y+4*z==6
megold=Solve[{egy1,egy2,egy3},{x,y,z}]

megold[[1]]
{x,y,z}={x,y,z}/.Flatten[megold]

x
y
z

ClearAll[x,y,z]
egy4=2*x-y+c*z==6
cmegold=Solve[{egy1,egy2,egy4},{x,y,z}]