应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 如何批量设置不同参数？
北京石油化工学院2026年研究生招生接收调剂公告
31/1返回列表
查看: 844  |  回复: 2
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

lisuning1234

新虫 (小有名气)

[求助] 如何批量设置不同参数？ 已有1人参与

Fortran中已设定一100*100的透镜阵列，矩形方式排布，现需要设定每个微透镜的参数（曲率半径，厚度，折射率等） 求大神告知如何实现？
回复此楼

» 猜你喜欢
世之奇伟瑰怪非常之观，常在于险远而人之所罕至焉，故非有志者不能至也
1楼 2017-06-22 15:41:30
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

Yan_Jordan

木虫 (小有名气)

【答案】应助回帖

★
感谢参与，应助指数 +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
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lisuning1234

新虫 (小有名气)
引用回帖:
2楼: Originally posted by Yan_Jordan at 2017-06-22 15:57:30
你可以自己创建一个新type，例如
type lens
      integer, dimension (2) :: position
      doubleprecision :: radi
      doubleprecision :: thickness
      doubleprecision :: ref
end type lens
更 ...

谢谢
回复此楼
世之奇伟瑰怪非常之观，常在于险远而人之所罕至焉，故非有志者不能至也
3楼2017-06-26 14:58:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 lisuning1234 的主题更新
31/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 理学07化学 303求调剂 +13 睿08 2026-03-27 14/700 2026-04-02 08:13 by guoweigw
[考研] 调剂推荐 +10 清酒714 2026-03-26 12/600 2026-04-02 07:57 by 尚水阁主
[考研] 385分 生物学（071000）求调剂 +4 qf626 2026-04-01 4/200 2026-04-02 06:44 by ilovexiaobin
[考研] 279求调剂 +3 学而思兮知 2026-04-01 3/150 2026-04-01 23:28 by 欣喜777
[考研] 266求调剂 +7 阳阳哇塞 2026-04-01 7/350 2026-04-01 22:27 by barlinike
[考研] 081200-11408-276学硕求调剂 +5 崔wj 2026-03-26 5/250 2026-04-01 22:24 by guanxin1001
[考研] 314求调剂 +4 溪云珂 2026-03-26 4/200 2026-04-01 17:00 by oooqiao
[考研] 314求调剂 +6 1xiaojun23 2026-03-31 6/300 2026-04-01 11:28 by 今天星期八LQ
[考研] 求调剂，一志愿北林食品与营养095500，301分，已过六级，有科研经历 +4 快乐储蓄罐 2026-03-31 4/200 2026-04-01 09:26 by JourneyLucky
[考研] 各位老师好，我的一志愿为北京科技大学085601材料专硕 +12 Koxui 2026-03-28 12/600 2026-03-31 23:17 by wwytracy
[考研] 085602 307分 求调剂 +10 不知道叫什么！ 2026-03-26 10/500 2026-03-31 19:53 by Dyhoer
[考研] 336材料求调剂 +10 陈滢莹 2026-03-26 12/600 2026-03-31 17:59 by jp9609
[考研] 08开头看过来！！！ +3 wwwwffffff 2026-03-31 5/250 2026-03-31 17:45 by 星光/
[考研] 求调剂 +9 akdhjs 2026-03-31 10/500 2026-03-31 17:14 by zhyzzh
[考研] 322求调剂：一志愿湖南大学 材料与化工（085600），已过六级。 +10 XX小邓 2026-03-29 10/500 2026-03-31 16:46 by 不吃魚的貓
[考研] 一志愿中海洋320化学工程与技术学硕求调剂 +8 披星河 2026-03-30 8/400 2026-03-31 08:53 by lbsjt
[考研] 08工科求调剂286 +5 tgs_001 2026-03-28 5/250 2026-03-31 08:18 by 一只好果子?
[考研] 085600 286分 材料求调剂 +11 麻辣鱿鱼 2026-03-27 12/600 2026-03-30 19:33 by Wang200018
[考研] 一志愿南京航空航天大学材料学硕求调剂 +3 @taotao 2026-03-28 3/150 2026-03-28 10:26 by JourneyLucky
[考研] 331环境科学与工程求调剂 +3 熠然好运气 2026-03-27 3/150 2026-03-28 04:11 by fmesaito
信息提示
关闭
请填处理意见
关闭