Перед началом работы настоятельно рекомендуем ознакомиться с правилами форума.

Перезапуск Transient анализа в цикле удаляет параметры

1 сообщение / 0 новое
MaryMadeleine
Аватар пользователя MaryMadeleine

День добрый!

 

Задача такая: нужно вести расчет системы до тех пор, пока минимум температуры не упадет ниже заданного значения. Я набросал код для прямоугольника, который охлаждается со всех сторон. На каждом шаге цикла хочется записывать какие-то выходные параметры в массив. Но возникает проблема - после строки "antype,transient,restart" (проверял построчно через *return) все параметры, кроме тех, которые стояли перед первым решателем (то есть dt, t0, tm), просто стираются. Насколько я понял из документации, перезапсук стирает часть временных файлов. Есть способ с этим справиться? Очень неохота писать макрос на запись/считывание параметров из файла до и после этой команды.

 

Мой код:

finish
/clear

KEYW,PR_THERM,1

/prep7

et,1,55

mp,dens,1,7800
mp,c,1,850
mp,kxx,1,20

rectng,0,1,0,2
lesize,all,0.1
amesh,all

dt = 1
t0 = 1500
tm = 1000

! Самый первый шаг

finish
/sol

ic,all,temp,t0
sfl,all,hflux,-1e7
sbctran

antype,transient,new
timint,1
kbc,1

ncnv,0,1e10,100000
deltim,0.5,0.01,1

outres,nsol,last

time,dt

solve

finish
/post1

set,last

plnsol,temp

*get,tc,plnsol,0,min

*if,tc,lt,tm,then
    *return
*endif

*dim,result,array,1
result(1)=tc

sets=1

! Циклический перезапуск, пока условие не будет выполнено

*do,i,2,100
    
    sets=sets+1
    
    finish
    /sol
    

    ! Вот тут параметры еще есть
    antype,transient,restart
    ! Вот тут параметров уже нет


    time,dt*sets
    
    solve
    
    finish
    /post1

    set,last

    plnsol,temp
    
    test=sets

    *get,tc,plnsol,0,min
    
    *dim,result1,array,sets-1
    *do,j,1,sets-1
        result1(j)=result(j)
    *enddo
    
    *dim,result,array,sets
    *do,j,1,sets-1
        result(j)=result1(j)
    *enddo
    
    result(sets)=tc
    
    *if,tc,lt,tm,then
        *exit
    *endif

*enddo

Добавить комментарий

Войдите или зарегистрируйтесь, чтобы отправлять комментарии
Приложить файл

Максимальный размер файла: 128 МБ.
Допустимые типы файлов: txt doc docx xls xlsx pdf rar zip 7zip tar.