| 查看: 845 | 回复: 2 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
lisuning1234新虫 (小有名气)
|
[求助]
如何批量设置不同参数？ 已有1人参与
|
|
| Fortran中已设定一100*100的透镜阵列，矩形方式排布，现需要设定每个微透镜的参数（曲率半径，厚度，折射率等） 求大神告知如何实现？ |
回复此楼» 猜你喜欢
08生物与医药专硕初试346找调剂
已经有7人回复
-
理学07化学 303求调剂
已经有14人回复
-
309求调剂
已经有4人回复
-
一志愿安徽大学计算机科学与技术学硕，331分求调剂
已经有5人回复
-
085600，材料与化工321分调剂
已经有8人回复
-
270调剂
已经有3人回复
-
一志愿211，335分，0856，求调剂院校和导师
已经有13人回复
-
085601一志愿中山大学深圳材料工程330求调剂
已经有7人回复
-
调剂推荐
已经有12人回复
-
求调剂，一志愿南京师范大学计算机专硕，初试373，六级通过，
已经有3人回复
lisuning1234
新虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 266.1
- 散金: 33
- 帖子: 129
- 在线: 50.2小时
- 虫号: 4058169
- 注册: 2015-09-08
- 性别: MM
- 专业: 工程热力学
3楼2017-06-26 14:58:27
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
