道理都是一样的,Table改成Map或Apply就行
pts = {{0., 0.}, {0.6, 0.564642}, {1.2, 0.932039}, {1.8,
0.973848}, {2.4, 0.675463}, {3., 0.14112}, {3.6, -0.44252}};
Graphics[Function[{x, y}, {Blend[{Red, Blue}, x/3.6],
Point[{x, y}]}]
@璐村惂鐢ㄦ埛_053SRMK馃惥 pts, Axes -> True,
AspectRatio -> 1/GoldenRatio]
或
Graphics[{Blend[{Red, Blue}, #[[1]]/3.6], Point[#]} & /@ pts,
Axes -> True, AspectRatio -> 1/GoldenRatio]
或
Graphics[Table[{Blend[{Red, Blue}, pts[[i, 1]]/3.6],
Point[pts[[i]]]}, {i, 1, Length[pts]}], Axes -> True,
AspectRatio -> 1/GoldenRatio]