| 查看: 832 | 回复: 2 | |||
lisuning1234新虫 (小有名气)
|
[求助]
如何批量设置不同参数？ 已有1人参与
|
| Fortran中已设定一100*100的透镜阵列，矩形方式排布，现需要设定每个微透镜的参数（曲率半径，厚度，折射率等） 求大神告知如何实现？ |
回复此楼» 猜你喜欢
今年春晚有几个节目很不错，点赞！
已经有6人回复
-
基金正文30页指的是报告正文还是整个申请书
已经有3人回复
-
球磨粉体时遇到了大的问题，请指教！
已经有15人回复
-
过年走亲戚时感受到了所开私家车的鄙视链
已经有5人回复
-
情人节自我反思：在爱情中有过遗憾吗？
已经有5人回复
-
江汉大学解明教授课题组招博士研究生/博士后
已经有3人回复
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