Names: Segmentations, Target, Runes, Shine, Growing Crystallization, and Glint.
Code for "Segmentations":
Code: Select all
:Plot1(Scatter,X,Y,.
:∟X→P
:∟Y→Q
:Repeat getKey or S<2
:∟P→X
:∟Q→Y
:DispGraph
:DelVar ∟P
:DelVar∟Q
:1→S
:For(X,min(∟X)-1,1+max(∟X
:For(Y,min(∟Y)-1,1+max(∟Y
:sum(1=max(abs(∟X-X),abs(∟Y-Y
:1=Ans or 2=Ans-max(∟X=X and ∟Y=Y
:If Ans
:Then
:X→∟P(S
:Y→∟Q(S
:S+1→S
:End
:End
:End
:End
:PlotsOff
:ClrHome
:"
Code: Select all
:Plot1(Scatter,X,Y,.
:∟X→P
:∟Y→Q
:Repeat getKey or S<2
:∟P→X
:∟Q→Y
:DispGraph
:DelVar ∟P
:DelVar∟Q
:1→S
:For(X,min(∟X)-1,1+max(∟X
:For(Y,min(∟Y)-1,1+max(∟Y
:sum(1=max(abs(∟X-X),abs(∟Y-Y
:2=Ans or 2=Ans-max(∟X=X and ∟Y=Y
:If Ans
:Then
:X→∟P(S
:Y→∟Q(S
:S+1→S
:End
:End
:End
:End
:PlotsOff
:ClrHome
:"
Code: Select all
:Plot1(Scatter,X,Y,.
:∟X→P
:∟Y→Q
:Repeat getKey or S<2
:∟P→X
:∟Q→Y
:DispGraph
:DelVar ∟P
:DelVar∟Q
:1→S
:For(X,min(∟X)-1,1+max(∟X
:For(Y,min(∟Y)-1,1+max(∟Y
:sum(1=max(abs(∟X-X),abs(∟Y-Y
:1=Ans or 2=Ans-max(∟X=X and ∟Y=Y
:If Ans
:Then
:X→∟P(S
:Y→∟Q(S
:S+1→S
:End
:End
:End
:End
:PlotsOff
:ClrHome
:"
Code: Select all
:Plot1(Scatter,X,Y,.
:∟X→P
:∟Y→Q
:Repeat getKey or S<2
:∟P→X
:∟Q→Y
:DispGraph
:DelVar ∟P
:DelVar∟Q
:1→S
:For(X,min(∟X)-1,1+max(∟X
:For(Y,min(∟Y)-1,1+max(∟Y
:sum(1=max(abs(∟X-X),abs(∟Y-Y
:2=Ans or 4=Ans-max(∟X=X and ∟Y=Y
:If Ans
:Then
:X→∟P(S
:Y→∟Q(S
:S+1→S
:End
:End
:End
:End
:PlotsOff
:ClrHome
:"
Code: Select all
:Plot1(Scatter,X,Y,.
:∟X→P
:∟Y→Q
:Repeat getKey or S<2
:∟P→X
:∟Q→Y
:DispGraph
:DelVar ∟P
:DelVar∟Q
:1→S
:For(X,min(∟X)-1,1+max(∟X
:For(Y,min(∟Y)-1,1+max(∟Y
:sum(1=max(abs(∟X-X),abs(∟Y-Y
:3=Ans or 2=Ans-max(∟X=X and ∟Y=Y
:If Ans
:Then
:X→∟P(S
:Y→∟Q(S
:S+1→S
:End
:End
:End
:End
:PlotsOff
:ClrHome
:"
Code: Select all
:Plot1(Scatter,X,Y,.
:∟X→P
:∟Y→Q
:Repeat getKey or S<2
:∟P→X
:∟Q→Y
:DispGraph
:DelVar ∟P
:DelVar∟Q
:1→S
:For(X,min(∟X)-1,1+max(∟X
:For(Y,min(∟Y)-1,1+max(∟Y
:sum(1=max(abs(∟X-X),abs(∟Y-Y
:4=Ans or 2=Ans-max(∟X=X and ∟Y=Y
:If Ans
:Then
:X→∟P(S
:Y→∟Q(S
:S+1→S
:End
:End
:End
:End
:PlotsOff
:ClrHome
:"