B := Matrix(13, 13, [[-2*as,0,0,0,0,-as^2+ds^2-fs^2,0,as^2-bs^2+cs^2,0,0,0,0,0]
,[0,-2*as,0,0,0,0,0,0,0,as^2-bs^2+cs^2,0,0,0],[0,0,-2*as,0,0,0,2*as,0,0,-as^2+
ds^2-fs^2,as^2-bs^2+cs^2,0,0],[0,0,0,2*as,0,0,0,0,0,0,0,-as^2+bs^2-cs^2,0],[0,0
,0,0,-2*as,0,0,0,0,0,0,0,as^2-bs^2+cs^2],[0,0,0,0,-as^2+bs^2-cs^2,-2*as,0,0,0,0
,0,0,2*as*cs^2],[0,0,2*as,0,0,0,0,0,0,0,-as^2+bs^2-cs^2,0,0],[0,0,0,0,as^2-ds^2
+fs^2,0,0,2*as,0,0,0,0,-as*cs^2+as*es^2-as*fs^2],[0,0,0,0,0,0,0,0,as,0,0,0,-6*
vo],[0,0,as^2-ds^2+fs^2,0,0,0,-as^2+ds^2-fs^2,0,0,2*as*fs^2,-as*cs^2+as*es^2-as
*fs^2,-12*vo,0],[0,as^2-ds^2+fs^2,-as^2+bs^2-cs^2,0,0,0,0,0,0,-as*cs^2+as*es^2-
as*fs^2,2*as*cs^2,0,0],[0,0,0,-as^2+bs^2-cs^2,0,0,0,0,0,-12*vo,0,2*as*cs^2,0],[
as^2-ds^2+fs^2,0,0,0,0,2*as*fs^2,0,-as*cs^2+as*es^2-as*fs^2,-12*vo,0,0,0,0]]);
