对随机序列执行操作

Question

我有一个随机的点列表，我想在上面执行语句，如果xPoint ^ 2/2-yPoint> 0，则将该点涂成红色。

我很难执行该算法

L=Sequence((RandomBetween(-6,p),RandomBetween(-6,q)),i,1,100)
Sequence[If[ x(Element(L, i))^2/2^2 - y(Element(L, i)) >=0,SetColor(Element(L, counter),"Red")],i,1,50]

Answer 1

大多数GeoGebra命令是声明性的，它们定义对象之间的关系。该规则的例外是诸如SetColor这样的脚本命令是必须的。无法从SetColor之类的声明性命令调用脚本Sequence。但是，您可以定义要变成红色的对象的列表：

l2=KeepIf[ x(A)^2/2^2 - y(A) >=0, A, L]

然后您可以通过UI或使用SetColor(l2,"red")将这些对象设为红色。

这样，您最终得到两个列表，其中l2涵盖了l1的某些元素。如果有问题，可以定义l3=L\l2并隐藏原始列表L。

在原始问题中，第二个列表仅包含50个元素，而L包含100个元素，如果有意，您可以使用First(L,50)作为KeeepIf的最后一个参数。