Я запускаю сценарий TCL с Pointwise, чтобы сгладить сетку, и мне нужно увидеть построенную переменную поля.Для построения графика я должен использовать второй код, в данном случае Tecplot.Однако, чтобы получить данные из Pointwise, я должен использовать puts
и канал ввода / вывода.Мой код выглядит следующим образом:
proc GetIJCellSizeLimits {dom} {
global mincell cwd
set io [open cwd/mincell.dat {RDWR CREAT}]
set iPts [lindex [$dom getDimensions] 0]
set jPts [lindex [$dom getDimensions] 1]
set numPts [expr {$iPts * $jPts}]
set points [Range 1 $numPts]
set minCell 1000.0
set maxCell 0.0
set rmsCell 0.0
set numCells 0
foreach pnt $points {
...
}
puts $io "$xpt $ypt $zpt $mincell($pnt)"
flush $io
close $io
}
...
- это набор вычислений для оценки статистики меша и определения минимального размера ячейки, прикрепленной к точке $pnt
, для сохранения для последующего использования.и для оценки выходных данных, поскольку сетка превышает 1000 точек.
Каждый раз, когда я пытаюсь открыть файл, используя те же конструкции, что и в LINUX, платформа Windows сообщает, что не удалось открыть "cwdmincell.dat ": в доступе отказано .Как открыть файл в Windows и можно ли это сделать без tcom ?