login  home  contents  what's new  discussion  bug reports help  links  subscribe  changes  refresh  edit

fricas
[1/2, 3/4, 2/3]
 (1)
Type: List(Fraction(Integer))

fricas
matA := matrix [[0,0,80],[250,0,-40],[250,-250,80]]
 (2)
Type: Matrix(Integer)
fricas
invmatA := inverse matA
 (3)
Type: Union(Matrix(Fraction(Integer)),...)
fricas
vecA := [300,300,0]
 (4)
Type: List(NonNegativeInteger)
fricas
invmatA * vecA
 (5)
Type: Vector(Fraction(Integer))
fricas
matB := matrix [[0,0,l * 72],[250,0,l * -36],[250,-250,l * 72]]
 (6)
Type: Matrix(Polynomial(Integer))
fricas
invmatB := inverse matB
 (7)
Type: Union(Matrix(Fraction(Polynomial(Integer))),...)
fricas
vecB := [300,300,0]
 (8)
Type: List(NonNegativeInteger)
fricas
invmatB * vecB
 (9)
Type: Vector(Fraction(Polynomial(Integer)))
fricas
matC := matrix [[l1 * 0,l1 * 0,l1 * 80],[l2 * 250,l2 * 0,l2 * -40],[l3 * 250,l3 * -250,l3 *80]]
 (10)
Type: Matrix(Polynomial(Integer))
fricas
invmatC := inverse matC
 (11)
Type: Union(Matrix(Fraction(Polynomial(Integer))),...)
fricas
vecC := [l1 * 300,l2 * 300,0]
 (12)
Type: List(Polynomial(Integer))
fricas
invmatC * vecC
 (13)
Type: Vector(Fraction(Polynomial(Integer)))
fricas
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]]
 (14)
Type: Matrix(Polynomial(Integer))
fricas
matPastaATimeShift := diagonalMatrix [l1,l2,l3,l4,l5]
 (15)
Type: Matrix(Polynomial(Integer))
fricas
matPastaATimeShift * matPastaA
 (16)
Type: Matrix(Polynomial(Integer))
fricas
eqPastaA := determinant (matPastaATimeShift * matPastaA)
 (17)
Type: Polynomial(Integer)
fricas
solve(eqPastaA,c1)
 (18)
Type: List(Equation(Fraction(Polynomial(Integer))))
fricas
matPastaB := matrix [[0,0,80,0],[250,0,-40,0],[250,-250,80,0],[250,0,100,-250]]
 (19)
Type: Matrix(Integer)
fricas
invmatPastaB := inverse matPastaB
 (20)
Type: Union(Matrix(Fraction(Integer)),...)
fricas
vecPastaB := [300,300,0,0]
 (21)
Type: List(NonNegativeInteger)
fricas
invmatPastaB * vecPastaB
 (22)
Type: Vector(Fraction(Integer))
fricas
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]]
 (23)
Type: Matrix(Polynomial(Integer))
fricas
invfmatPasta := inverse fmatPasta
 (24)
Type: Union(Matrix(Fraction(Polynomial(Integer))),...)
fricas
fvecPasta := [0,0,0,0,W]
 (25)
Type: List(Polynomial(Integer))
fricas
invfmatPasta * fvecPasta
 (26)
Type: Vector(Fraction(Polynomial(Integer)))
fricas
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]]
 (27)
Type: Matrix(Polynomial(Integer))
fricas
invfmatPastaB := inverse fmatPastaB
 (28)
Type: Union(Matrix(Fraction(Polynomial(Integer))),...)
fricas
invfmatPastaB * fvecPasta
 (29)
Type: Vector(Fraction(Polynomial(Integer)))
fricas
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]]
 (30)
Type: Matrix(Polynomial(Integer))
fricas
eqFoodClothes := determinant detmatFoodClothes
 (31)
Type: Polynomial(Integer)
fricas
solve(eqFoodClothes,c1)
 (32)
Type: List(Equation(Fraction(Polynomial(Integer))))
fricas
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]]
 (33)
Type: Matrix(Integer)
fricas
invmatFoodClothes := inverse matFoodClothes
 (34)
Type: Union(Matrix(Fraction(Integer)),...)
fricas
vecFoodClothes := [300,300,0,0,0]
 (35)
Type: List(NonNegativeInteger)
fricas
invmatFoodClothes * vecFoodClothes
 (36)
Type: Vector(Fraction(Integer))

 Subject:   Be Bold !! ( 13 subscribers )