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

已写代码为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"}], "}"}]}],
"]"}]}]}],
请问接下来该怎么写啊?