举报
yyymmn
{point,weight}={Transpose[#][[1;;3,All]]//Transpose,Transpose[#]//Last}&[{{74.,781.,5.,7.84},{1373.,731.,11.,5.93},{1321.,1791.,28.,4.9},{0.,1787.,4.,6.56},{1049.,2127.,12.,6.35},{1647.,2728.,6.,14.08},{2883.,3617.,15.,8.94},{2383.,3692.,7.,9.62},{2708.,2295.,22.,7.41},{2933.,1767.,7.,8.72},{4233.,895.,6.,5.93},{4043.,1895.,14.,9.17},{2427.,3971.,2.,5.72},{3526.,4357.,7.,4.49}}] weightNorm=(#-Min[#])/(Max[#]-Min[#])&[weight] Graphics3D[{PointSize[0.05],{RGBColor[#,0,0]&/@weightNorm,Point/@point}//Transpose},AspectRatio->1,BoxRatios->1,Axes->True]