关于mathematica作图的问题Needs["Graphics`Graphics`"]; ShowGraph[myFragmentedGrid = InduceSubgraph[GridGraph[50,50],RandomSubset[2500]],VertexStyle→Disk[0]]; c = Map[Length,ConnectedComponents[myFragmentedGrid]]; Histogram[c,HistogramCategori
来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/25 10:12:35
关于mathematica作图的问题Needs["Graphics`Graphics`"]; ShowGraph[myFragmentedGrid = InduceSubgraph[GridGraph[50,50],RandomSubset[2500]],VertexStyle→Disk[0]]; c = Map[Length,ConnectedComponents[myFragmentedGrid]]; Histogram[c,HistogramCategori
关于mathematica作图的问题
Needs["Graphics`Graphics`"];
ShowGraph[myFragmentedGrid =
InduceSubgraph[GridGraph[50,50],RandomSubset[2500]],VertexStyle→Disk[0]];
c = Map[Length,ConnectedComponents[myFragmentedGrid]];
Histogram[c,HistogramCategories→Range[0,Max[c]+1],
PlotLabel→"Distribution of the size of components"];
为什么我画不出来呢?
我用的是mathematica 7
画出来应该是下面这样
Range::range: Range specification in Range[0,1+ConnectedComponents[2]] does not have appropriate bounds. >>
我运行的时候出现这个东西,画不出来.
关于mathematica作图的问题Needs["Graphics`Graphics`"]; ShowGraph[myFragmentedGrid = InduceSubgraph[GridGraph[50,50],RandomSubset[2500]],VertexStyle→Disk[0]]; c = Map[Length,ConnectedComponents[myFragmentedGrid]]; Histogram[c,HistogramCategori
Needs["Graphics`Graphics`"];
ShowGraph[myFragmentedGrid =
InduceSubgraph[GridGraph[50,50],RandomSubset[2500]],VertexStyle-->Disk[0]];
c = Map[Length,ConnectedComponents[myFragmentedGrid]];
Histogram[c,HistogramCategories-->Range[0,Max[c]+1],
PlotLabel-->"Distribution of the size of components"];
这样应该对了
记得给分啊