| 查看: 843 | 回复: 2 | ||
lisuning1234新虫 (小有名气)
|
[求助]
如何批量设置不同参数？ 已有1人参与
|
| Fortran中已设定一100*100的透镜阵列，矩形方式排布，现需要设定每个微透镜的参数（曲率半径，厚度，折射率等） 求大神告知如何实现？ |
回复此楼» 猜你喜欢
08工科275分求调剂
已经有13人回复
-
材料工程322分
已经有6人回复
-
一志愿北京科技大学085601材料工程英一数二初试总分335求调剂
已经有7人回复
-
274求调剂
已经有5人回复
-
【求调剂】新能源材料本科，一志愿211，初试321
已经有3人回复
-
材料考研调剂
已经有3人回复
-
材料调剂
已经有12人回复
-
英一数一408，总分284，二战真诚求调剂
已经有14人回复
-
085410 一志愿211 22408分数359求调剂
已经有4人回复
-
271求调剂
已经有19人回复
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
