fluent算非稳态后处理dat文件太多

守望者811

在处理非稳态结果的时候，我想把每个dat的压力最大值提取出来做一条曲线，很笨的办法就是把每个dat都读一遍，这样太繁琐了，不知道各位有没有简单的办法，用个什么语句之类的来实现。

守望者811

Scheme program:  
(let
(
(p (open-output-file "fluxes.txt"))  ;; open output text file
(n 0)  
  (surfaces !(
stahl-bodenplatte
stahl-kokille
stahl-schlacke
haube-schlacke
elektrode-schlacke
schlacke-innen
schlacke-aussen
aufsatz-schlacke
haube-kuehlung
))

)
(For-each
(lambda (filename)
(if (zero? (Modulo n 2));; only take every second datafile
(begin
(ti-menu-load-string
(format # f "file read-data ~ a" filename))  
(ti-menu-load-string "file / start-transcript temp.trn")
(ti-menu-load-string "report / heat-transfer")
(ti-menu-load-string "file / stop-transcript" )  
(define data    ;; transcriptfile in "data" download  
(let ((p (open-input-file "temp.trn")))
(let f ((x (read p)))
(if (eof-object? x)
(begin
(close-input-port p)
'())  
(cons x (f (read p)))
)
)  
)
)
(ti-menu-load-string "! temp.trn rm")

(display (time) p)
(display "  " p)
(for-each
(lambda (zone)
(begin
(display (list-ref (member (list zone) data) 2) p)  ;; fluxwert area identified by (display "" p)  
)
)
surfaces  
)

xrs333

用monitor。

浪子轻狂

同楼上斑竹，用monitor窗口监视压力变化，看看压力最大值发生在那个时间段，只读取那个时间段的data找出最大值就ok了

nyzhe001

通过monitor检测该点压力，并将其数据保存（选勾write），计算后处理保存的数据就可以了

飞翔鸟

我觉得写个子程序最方便了，存成一个文本文件，每个时间步长的最大压力平均压力最小压力都可以得到。

seller1984

还是做一个monitor比较好

守望者811

原帖由 nyzhe001 于 2010-6-2 01:27 发表

                               
登录/注册后可看大图

通过monitor检测该点压力，并将其数据保存（选勾write），计算后处理保存的数据就可以了

这样可以解决，还是这里高手多啊。
谢谢

出差半个月，才回来。所以现在才回帖

jinruibin

以前从网上找到一个某牛人编的批处理生成脚本程序，希望有用

潇叶飞扬

原帖由 飞翔鸟 于 2010-6-2 09:36 发表

                               
登录/注册后可看大图

我觉得写个子程序最方便了，存成一个文本文件，每个时间步长的最大压力平均压力最小压力都可以得到。

请问你说的子程序是通过什么实现呢？或者你有这个子程序吗

fox000002

这种场景用 Scheme 脚本处理比较方便

正如 2 楼的代码

按需要做些修改，加上循环读入dat文件就可以了