| 查看: 897 | 回复: 2 | |||
lisuning1234新虫 (小有名气)
|
[求助]
如何批量设置不同参数？ 已有1人参与
|
| Fortran中已设定一100*100的透镜阵列，矩形方式排布，现需要设定每个微透镜的参数（曲率半径，厚度，折射率等） 求大神告知如何实现？ |
回复此楼» 猜你喜欢
有时候，自然基金真的不能太认真 （我的申报经验）
已经有10人回复
-
filecode
已经有12人回复
-
filecode=后面第一个是大写字母
已经有4人回复
-
时间戳又变了8-15
已经有20人回复
-
小木虫上这么多卖论文的，真有人买论文么？感觉没必要啊
已经有13人回复
-
欢迎发来filecode的Mz6后的代码验证其规律
已经有58人回复
-
哪位老哥知道今年的国自然具体哪一天放榜？
已经有7人回复
-
关于Filecode分析方法
已经有13人回复
-
各位道友，我要去昆明玩几天，回来见。
已经有8人回复
-
咱们一起用铁证分析2026国家社科基金中标与否
已经有22人回复
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
