Ффух, наконец-то добился работоспособного построителя матриц инцидентности выражений. Что-то типа такого:
*Main> incMatrix "x + sin (2 * y ^ z)"
Right (IncMatrix {numMatrix = (8><7)
[ 1.0, 1.0, 0.0, 0.0, 0.0, 0.0, 0.0
, 1.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0
, 0.0, 1.0, 1.0, 0.0, 0.0, 0.0, 0.0
, 0.0, 0.0, 1.0, 1.0, 1.0, 0.0, 0.0
, 0.0, 0.0, 0.0, 1.0, 0.0, 0.0, 0.0
, 0.0, 0.0, 0.0, 0.0, 1.0, 1.0, 1.0
, 0.0, 0.0, 0.0, 0.0, 0.0, 1.0, 0.0
, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 1.0 ], opVec = [BinNode Plus,LeafTNode "x",UnNode Sin,BinNode Mul,LeafCNode 2.0,BinNode Pow,LeafTNode "y",LeafTNode "z"]})

#gfhnh

8 comments recommend bookmark subscribe