| 查看: 894 | 回复: 2 | ||
lisuning1234新虫 (小有名气)
|
[求助]
如何批量设置不同参数？ 已有1人参与
|
| Fortran中已设定一100*100的透镜阵列，矩形方式排布，现需要设定每个微透镜的参数（曲率半径，厚度，折射率等） 求大神告知如何实现？ |
回复此楼» 猜你喜欢
关于filecode，很负责任的告诉大家
已经有7人回复
-
【2027博士申请】纳米药物递送方向
已经有5人回复
-
关于豆爷回答的JTJC与%2F数量
已经有7人回复
-
2026国自然放榜时间
已经有3人回复
-
国基金的申报应该改成非等额制，评价高的钱多评价低的钱少，但是增加资助率
已经有7人回复
-
好奇怪的filecode
已经有4人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有4人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有5人回复
Yan_Jordan
木虫 (小有名气)
- 应助: 55 (初中生)
- 金币: 1944
- 散金: 221
- 红花: 11
- 帖子: 169
- 在线: 108.2小时
- 虫号: 6034100
- 注册: 2017-03-17
- 性别: GG
- 专业: 理论和计算化学
【答案】应助回帖
★
感谢参与，应助指数 +1
xzhdty: 金币+1, 感谢参与 2017-06-23 11:11:35
感谢参与，应助指数 +1
xzhdty: 金币+1, 感谢参与 2017-06-23 11:11:35
|
你可以自己创建一个新type，例如 type lens integer, dimension (2) :: position doubleprecision :: radi doubleprecision :: thickness doubleprecision :: ref end type lens 更多参数可以自己加，这里只是个例子 然后就可以初始化你的透镜阵列了 Type(lens), dimension(100, 100) :: lens_mat 调用type 内部参数用 lens_mat(i,j)%position 就行 之后赋值之类的就OK了  |
2楼2017-06-22 15:57:30
lisuning1234
新虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 266.1
- 散金: 33
- 帖子: 129
- 在线: 50.2小时
- 虫号: 4058169
- 注册: 2015-09-08
- 性别: MM
- 专业: 工程热力学
3楼2017-06-26 14:58:27
