8楼: Originally posted by 丫头丫头2014 at 2015-07-20 14:35:49
您之前给出的两个图形是不正确的 我在文本中附上了正确的图片，两个图形都是要0-2pi内闭合曲线围成的面积，定子方程在0-2pi是差一点点闭合的，这个是为什么，我也不是特别清楚，转子的方程，是依赖定子方程产生的， ...

ClearAll["Global`*"];
R = 4878/100;
r = 813/100;
z1 = R/r;
z2 = z1 - 1;
e = 705/100;
f = r/e;
re = 126/10;
\[Theta] = ArcTan[Sin[z1 \[Tau]]/(f + Cos[z1 \[Tau]])] - \[Tau];
\[CurlyPhi] = ArcSin[f Sin[\[Theta] + \[Tau]]] - \[Theta];
\[Psi] = z1/(z1 - 1) \[CurlyPhi];
curve01 = {(R - r) Sin[\[Tau]] + e Sin[z2 \[Tau]] -
     re Sin[\[Theta]], (R - r) Cos[\[Tau]] - e Cos[z2 \[Tau]] +
     re Cos[\[Theta]]} // FullSimplify;
curve02 = {curve01[[1]] Cos[\[CurlyPhi] - \[Psi]] -
     curve01[[2]] Sin[\[CurlyPhi] - \[Psi]] - e Sin[\[Psi]],
    curve01[[1]] Sin[\[CurlyPhi] - \[Psi]] +
     curve01[[2]] Cos[\[CurlyPhi] - \[Psi]] - e Cos[\[Psi]]} //
   Simplify;

base = ParametricPlot[Evaluate[curve01], {\[Tau], 0, 2 \[Pi]},
   Exclusions -> None, MaxRecursion -> 15, PlotPoints -> 1500,
   AxesStyle -> Arrowheads[.035],
   AxesLabel -> {Style[#, Black, Bold, 21 ,
        FontFamily -> "Times New Roman", Italic] &@"x",
     Style[#, Black, Thick, 21 , FontFamily -> "Times New Roman",
        Italic] &@"y"},
   TicksStyle -> Directive[Black, 14, FontFamily -> "Arial"],
   PlotRangePadding -> Scaled[.1], ImageSize -> 450] /.
  Line[x_] :> {Blue, Thickness[.001], Line[x]}


ParametricPlot[Evaluate[curve02], {\[Tau], 0, 2 \[Pi]},
  Exclusions -> None, MaxRecursion -> 15, PlotPoints -> 1500,
  AxesStyle -> Arrowheads[.035],
  AxesLabel -> {Style[#, Black, Bold, 21 ,
       FontFamily -> "Times New Roman", Italic] &@"x",
    Style[#, Black, Thick, 21 , FontFamily -> "Times New Roman",
       Italic] &@"y"},
  TicksStyle -> Directive[Black, 14, FontFamily -> "Arial"],
  PlotRangePadding -> Scaled[.1], ImageSize -> 450] /.
Line[x_] :> {Red, Thickness[.001], Line[x]}

NIntegrate[
   curve01[[2]] D[curve01[[1]], \[Tau]] -
    curve01[[1]] D[curve01[[2]], \[Tau]], {\[Tau], 0, 2 Pi}]/2 //
NumberForm[#, 10] &

NIntegrate[
   curve02[[2]] D[curve02[[1]], \[Tau]] -
    curve02[[1]] D[curve02[[2]], \[Tau]], {\[Tau],
    0, \[Tau] /. FindRoot[curve02[[2]] == 783/20, {\[Tau], 1.6 Pi}]},
   PrecisionGoal -> 6, Method -> "LocalAdaptive"]/2 //
NumberForm[#, 10] &

3楼: Originally posted by cooooldog at 2015-07-17 11:18:14
1. 问问题自己先把问题尽可能描述清清楚楚很重要;

2. 定子曲线方程是一条闭合的曲线


但是转子曲线方程无法在0~2 pi之内闭合


3. 你自己的代码除了有一些已知量的赋值可参考之外,其它几乎毫无意义,而且t ...