问题描述：
如何用Mathematica在（x-2）^2+(y-2)^2=4中产生25个随机点的坐标
是在圆上的
是在圆上的
问题解答：
我来补答
整个演示我都放在图片上了,
上面有注释,你放大开看应该能看懂.
虽然实现的方法有点笨,不过还算能满足你的要求.
里面的随机点生成的个数可以由你自己随便调整.
我对你的问题没理解太明白,
所以随机点都默认生成在这个圆形的边上和内部.
针对问题补充：
哦,那个你只要修改一个函数就可以了
point[] :=
Module[{x = RandomReal[{0, 4}], y},
y = Solve[(x - 2)^2 + (y - 2)^2 == 4, y][[RandomInteger[{1, 2}], 1,
2]]; {x, y}]
把图片里的那个生成点的函数换成上面这个,就可以了.
别的都不用动.
上面有注释,你放大开看应该能看懂.
虽然实现的方法有点笨,不过还算能满足你的要求.
里面的随机点生成的个数可以由你自己随便调整.
我对你的问题没理解太明白,
所以随机点都默认生成在这个圆形的边上和内部.
针对问题补充：
哦,那个你只要修改一个函数就可以了
point[] :=
Module[{x = RandomReal[{0, 4}], y},
y = Solve[(x - 2)^2 + (y - 2)^2 == 4, y][[RandomInteger[{1, 2}], 1,
2]]; {x, y}]
把图片里的那个生成点的函数换成上面这个,就可以了.
别的都不用动.
展开全文阅读