k番目の数値のｘｙ座標計算 coord[k_]:={0,0}+Apply[Plus,Transpose[{Flatten[Table[{Table[(-1)^(j-1),{i,1,j}],Table[0,{i,1,j}]},{j,1,300}]],Flatten[Table[{Table[0,{i,1,j}],Table[(-1)^(j-1),{i,1,j}]},{j,1,300}]]}]1;; k ] グラフィック作成１３０×…