| 查看: 536 | 回复: 2 | ||
[求助]
求助高手帮俺看看这个小程序怎么编
|
|
1)定义整数数组flag[NUM][NUM]， NUMXNUM为点阵的结点总数。把所 有的数组值fiag[j]设为0。其中，0表示该结点还未被统计过，1表示 该结点被统计过; (2)令i=0，j=0，开始计算第一个结点; (3)定义一个全局变量grain_Size一用来记录每个晶粒所包含的点阵结点个 数之和，令grain_Size=0; (4)如果fiag[j]等于0，令flag[j]等于1，执行递归函数stat_gain(i,j) (5)如果fiag[j]等于1，就计算下一个结点，重复第(3)条; (6)记录这个晶粒的尺寸; (7)统计下一个结点，重复第(3)条，直到所有的结点都统计一遍。 函数stat_gain(i,j)的执行步骤是: 分别比较结点P(i，j)和其周围六个最近邻结点(P1(i一1，j一1)，P2(i一1，j)， p3(i，j一1)，P4(i，j+1)，P5(i+1，j)，P6(i+1，j))的取向。如果P1的取向与P (i，j)的取向不同或者已经统计过，则比较下一个结点，直至六个结点都比较一遍; 如果P1的取向与P(i，j)的取向相同并且没有统计过，晶粒个数grain_size增加1， 并把fiag[j]的值变为1。然后，执行函数 stat_grain(i-1，j-1);依此类推。 数据形式是这样的 列 行 对应坐标点的值 1 1 0 2 1 0 3 1 0 4 1 0 5 1 0 7 1 0 8 1 1 9 1 1 10 1 1 11 1 1 。 。 。 [ Last edited by liangyje on 2011-12-27 at 16:18 ] |
回复此楼» 猜你喜欢
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有3人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有3人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有3人回复
-
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有3人回复
-
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有5人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有3人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有5人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有4人回复
-
售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急
已经有3人回复
-
售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急
已经有5人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 关于P4VP的合成，谁能帮我编点毕业论文的数据
已经有4人回复
- 各位帮我看下这个simpson积分怎么理解啊
已经有4人回复
- 大家帮我看下下面的程序能不能实现系统的升温
已经有3人回复
- 写了一个fortran90的小程序，编译通不过，请大侠帮忙
已经有59人回复
- 谁能帮我看看这个审稿回复是啥意思？？？？？？谢谢了
已经有5人回复
- 国际期刊论文投稿求助-刚投稿就收到编辑来信，谁能帮我看一下信的内容是什么意思
已经有15人回复
- 谁能帮我看下编辑修改的这个单词是什么？
已经有12人回复
- 【求助/交流】谁来帮我看看这个表什么意思，我是外行~O(∩_∩)O谢谢哦
已经有10人回复
- 谁能帮我看看这编辑这两个要求是什么意思啊，看不太明白。谢谢！
已经有4人回复
- 【求助】帮忙编个用于VASP小程序
已经有22人回复
- 【求助】谁能帮我在ENVI里编个小程序啊？急！急！
已经有9人回复
2楼2011-12-27 17:19:32
3楼2011-12-27 18:45:45
10