Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ClearAll["Global`*"]
- Manipulate[
- inputD =
- {{InputField[Dynamic[d11, Function[If[# != Null, d11 = #]]], Number],
- InputField[Dynamic[d12, Function[If[# != Null, d12 = #]]], Number],
- InputField[Dynamic[d13, Function[If[# != Null, d13 = #]]], Number]},
- {InputField[Dynamic[d21, Function[If[# != Null, d21 = #]]], Number],
- InputField[Dynamic[d22, Function[If[# != Null, d22 = #]]], Number],
- InputField[Dynamic[d23, Function[If[# != Null, d23 = #]]], Number]},
- {InputField[Dynamic[d31, Function[If[# != Null, d31 = #]]], Number],
- InputField[Dynamic[d32, Function[If[# != Null, d32 = #]]], Number],
- InputField[Dynamic[d33, Function[If[# != Null, d33 = #]]], Number]}};
- MatrixForm[inputD],
- {t, 1, -[Infinity], [Infinity], ControlType -> None},
- Initialization :> {
- d11 = 0.1; d12 = .43; d13 = 0;
- d21 = .15; d22 = 0; d23 = .37;
- d31 = .23; d32 = .03; d33 = .02;}]
- InputField[Dynamic[d11, Function[If[#!=0 || # != Null, d11 = #]]], Number]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement