aaa1 = {}; bbb1 = {}; aaa2 = {}; bbb2 = {};
aaa3 = {}; bbb3 = {}; aaa4 = {}; bbb4 = {};
For[x = 0.1, x <= 8, x += 0.1,
y = 1/x;
y1 = 2/x;
AppendTo[aaa1, {x, y}];
AppendTo[bbb1, {x, y1}];
AppendTo[aaa2, {-x, y}];
AppendTo[bbb2, {-x, y1}];
AppendTo[aaa3, {-x, -y}];
AppendTo[bbb3, {-x, -y1}];
AppendTo[aaa4, {x, -y}];
AppendTo[bbb4, {x, -y1}];
];
ListPlot[{aaa1, bbb1, aaa2, bbb2, aaa3, bbb3, aaa4, bbb4},
Joined -> True]
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024