新人求助-求解方程组-已写出部分代码 卡壳 后续内容求助
mathematica吧
全部回复
仅看楼主
level 1
待求方程组为
已写代码为
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"eqs", "=",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"4.0", "*", "C2", "*", "C3"}], ")"}], "/",
RowBox[{"(",
RowBox[{"C1", "*",
RowBox[{"(",
RowBox[{"1.0", "-",
RowBox[{"4.0", "*", "C4"}], "-",
RowBox[{"3.0", "*", "C2"}], "+", "C1"}], ")"}]}], ")"}]}],
"\[Equal]",
RowBox[{"Exp", "[",
RowBox[{
RowBox[{"-",
RowBox[{"(",
RowBox[{"1.602", "*",
RowBox[{"10", "^",
RowBox[{"-", "19"}]}], "*", "1.091"}], ")"}]}], "/",
RowBox[{"(",
RowBox[{"1550.0", "*", "1.3806505", "*",
RowBox[{"10", "^",
RowBox[{"-", "23"}]}]}], ")"}]}], "]"}]}], "&&",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"4.0", "*", "C1", "*", "C4"}], ")"}], "/",
RowBox[{"(",
RowBox[{"C2", "*",
RowBox[{"(",
RowBox[{"3.0", "-",
RowBox[{"4.0", "*", "C3"}], "+",
RowBox[{"3.0", "*", "C2"}], "-", "C1"}], ")"}]}], ")"}]}],
"\[Equal]",
RowBox[{"Exp", "[",
RowBox[{
RowBox[{"-",
RowBox[{"(",
RowBox[{"1.602", "*",
RowBox[{"10", "^",
RowBox[{"-", "19"}]}], "*", "0.065"}], ")"}]}], "/",
RowBox[{"(",
RowBox[{"1550.0", "*", "1.3806505", "*",
RowBox[{"10", "^",
RowBox[{"-", "23"}]}]}], ")"}]}], "]"}]}], "&&",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"256.0", "*", "C2", "*",
RowBox[{"C1", "^", "3"}]}], ")"}], "/",
RowBox[{"(",
RowBox[{"27.0", "*",
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "C2", "+", "C1"}], ")"}], "^", "4"}]}], ")"}]}],
"\[Equal]",
RowBox[{"Exp", "[",
RowBox[{
RowBox[{"-",
RowBox[{"(",
RowBox[{"1.602", "*",
RowBox[{"10", "^",
RowBox[{"-", "19"}]}], "*", "6.817"}], ")"}]}], "/",
RowBox[{"(",
RowBox[{"1550.0", "*", "1.3806505", "*",
RowBox[{"10", "^",
RowBox[{"-", "23"}]}]}], ")"}]}], "]"}]}], "&&",
RowBox[{
RowBox[{
RowBox[{"4.0", "*", "C4"}], "-",
RowBox[{"4.0", "*", "C3"}]}], "\[Equal]",
RowBox[{"C1", "-",
RowBox[{"3.0", "*", "C2"}]}]}]}], "}"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{"y", "=",
RowBox[{"Solve", "[",
RowBox[{"eqs", ",",
RowBox[{"{",
RowBox[{"C1", ",", "C2", ",", "C3", ",", "C4"}], "}"}]}],
"]"}]}]}],
请问接下来该怎么写啊?[泪]
2018年10月11日 09点10分 1
level 1
请前辈们不要见怪,问题很**,第一次接触Mathematica这个软件,完全不懂,希望前辈们指点一下 非常感谢。
2018年10月11日 09点10分 2
1