axiom
[1/2, 3/4, 2/3]

axiom
matA := matrix [[0,0,80],[250,0,-40],[250,-250,80]]

axiom
invmatA := inverse matA

axiom
vecA := [300,300,0]

axiom
invmatA * vecA

axiom
matB := matrix [[0,0,l * 72],[250,0,l * -36],[250,-250,l * 72]]

axiom
invmatB := inverse matB

axiom
vecB := [300,300,0]

axiom
invmatB * vecB

axiom
matC := matrix [[l1 * 0,l1 * 0,l1 * 80],[l2 * 250,l2 * 0,l2 * -40],[l3 * 250,l3 * -250,l3 *80]]

axiom
invmatC := inverse matC

axiom
vecC := [l1 * 300,l2 * 300,0]

axiom
invmatC * vecC

axiom
matPastaA := matrix [[0,0,80,0,-300],[250,0,-40,0,-300],[250,-250,80,0,0],[250,0,100,-250,0],[0,c1,-200,c2,0]]

axiom
matPastaATimeShift := diagonalMatrix [l1,l2,l3,l4,l5]

axiom
matPastaATimeShift * matPastaA

axiom
eqPastaA := determinant (matPastaATimeShift * matPastaA)

axiom
solve(eqPastaA,c1)

axiom
matPastaB := matrix [[0,0,80,0],[250,0,-40,0],[250,-250,80,0],[250,0,100,-250]]

axiom
invmatPastaB := inverse matPastaB

axiom
vecPastaB := [300,300,0,0]

axiom
invmatPastaB * vecPastaB

axiom
fmatPasta := matrix [[1,-1,0,0,0],[0,-1,1,1,0],[0,0,250,0,-c1],[0,0,0,250,-c2],[0,0,0,0,200]]

axiom
invfmatPasta := inverse fmatPasta

axiom
fvecPasta := [0,0,0,0,W]

axiom
invfmatPasta * fvecPasta

axiom
fmatPastaB := matrix [[1,-1,0,0,0],[0,-1,1,1,0],[0,0,250,0,-c1],[0,0,0,250,-c2],[80,40,80,100,0]]

axiom
invfmatPastaB := inverse fmatPastaB

axiom
invfmatPastaB * fvecPasta

axiom
detmatFoodClothes := matrix [[0,0,80,0,0,-300],[250,0,-40,0,0,-300],[250,-250,80,0,0,0],[0,0,-200,100000,0,0],[0,0,200,50000,-20,0],[0,167 * c1,-200,0,2 * c2,0]]

axiom
eqFoodClothes := determinant detmatFoodClothes

axiom
solve(eqFoodClothes,c1)

axiom
matFoodClothes := matrix [[0,0,80,0,0],[250,0,-40,0,0],[250,-250,80,0,0],[0,0,-200,100000,0],[0,0,200,50000,-20]]

axiom
invmatFoodClothes := inverse matFoodClothes

axiom
vecFoodClothes := [300,300,0,0,0]

axiom
invmatFoodClothes * vecFoodClothes