[bakaev89]

Задан стальной стержень, у которого один конец жестко заделан, а на другой конец приложена сила, быстро возрастающая по времени ( но не ударная сила ). Требуется определить критическую нагрузку Ркр при которой стержень потеряет устойчивость .

Пробовал решить следующим образом( см. код ) . Хотел найти момент времени , когда перемещения стали бы возростать вне зависимости от
[code]



/PREP7
/UNITS,SI

a=0.04
b=0.06
h=1

ET,1,BEAM4
!*
KEYOPT,1,2,0
KEYOPT,1,6,0
KEYOPT,1,7,0
KEYOPT,1,9,9
KEYOPT,1,10,0

R,1,0.04*0.06,(0.06*0.04**3)/12,(0.04*0.06**3)/12,0.06, 0.04, , , ! константы

MPTEMP,,,,,,,, !свойства
MPTEMP,1,0
MPDATA,EX,1,,2e11
MPDATA,PRXY,1,,0.3
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDE,DENS,1
MPDATA,DENS,1,,7800

N,1,0,0,0,,,, ! задаем узлы
N,21,0,1,0,,,,
!*
FILL,1,21,19, , ,1,1,1,


FLST,2,2,1 !опред в каздом узле элемент BEAM3
FITEM,2,1
FITEM,2,2
E,P51X
FLST,2,2,1
FITEM,2,2
FITEM,2,3
E,P51X
FLST,2,2,1
FITEM,2,3
FITEM,2,4
E,P51X
FLST,2,2,1
FITEM,2,4
FITEM,2,5
E,P51X
FLST,2,2,1
FITEM,2,5
FITEM,2,6
E,P51X
FLST,2,2,1
FITEM,2,6
FITEM,2,7
E,P51X
FLST,2,2,1
FITEM,2,7
FITEM,2,8
E,P51X
FLST,2,2,1
FITEM,2,8
FITEM,2,9
E,P51X
FLST,2,2,1
FITEM,2,9
FITEM,2,10
E,P51X
FLST,2,2,1
FITEM,2,10
FITEM,2,11
E,P51X
FLST,2,2,1
FITEM,2,11
FITEM,2,12
E,P51X
FLST,2,2,1
FITEM,2,12
FITEM,2,13
E,P51X
FLST,2,2,1
FITEM,2,13
FITEM,2,14
E,P51X
FLST,2,2,1
FITEM,2,14
FITEM,2,15
E,P51X
FLST,2,2,1
FITEM,2,15
FITEM,2,16
E,P51X
FLST,2,2,1
FITEM,2,16
FITEM,2,17
E,P51X
FLST,2,2,1
FITEM,2,17
FITEM,2,18
E,P51X
FLST,2,2,1
FITEM,2,18
FITEM,2,19
E,P51X
FLST,2,2,1
FITEM,2,19
FITEM,2,20
E,P51X
FLST,2,2,1
FITEM,2,20
FITEM,2,21
E,P51X

FINISH

/SOLU !закрепление
FLST,2,1,1,ORDE,1
FITEM,2,1
!*
/GO
D,P51X, , , , , ,ALL, , , , ,



FINISH

/solu

antype,trans
trnopt,reduc,,nodamp !Выбрать метод решения ;

! ,,nodamp ! - игнорировать эффекты затухания.
m,21,ux ! Задать преимущественную степень

! 2 - во втором узле;
! ux - разрешить , в первую очередь, смещение вдоль оси x


outpr,basic,all ! Установить опции записи результатов;

outres,all,all ! Контролировать расчетные результа-
time1e-6
FLST,2,1,1,ORDE,1 !нагрузка
FITEM,2,21
!*
/GO
F,P51X,FY,0

solve
time,3.5 !Задать время окончания шага нагру-

deltim,0.35
FLST,2,1,1,ORDE,1 !нагрузка
FITEM,2,21
!*
/GO
F,P51X,FY,-350000
KBC,0.0

solve !Начать вычисления


/post26
file,file,rdsp ! Указать файл для чтения расчетных

!file - название файла (обычно имеет
!общее для всей работы название);
!rdsp - формат (расширение) файла .
nsol,2,2,u,y,nsol ! Указать, какие данные следует прочи-

! u - прочитать смещения;
! y - смещения в направлении оси y;
!nsol - название данных на графике при выводе на экран.
plvar,2 ! Построить график на экране;

prvar,2 !Прочитать изменение переменной с
!течением времени;

finish

[bakaev89]

Видимо не кто не сталкивался с подобной задачей =(((

[СергейД]

"не кто" правильно пишется НИКТО
те, кто сталкивался , в праздники отдыхают, или заняты делом.

[bakaev89]

орфография тут не имеет никакого значения. Лучше бы помогли с задачей

[СергейД]

... исправил, молодец.
но
все, кто может сами решать подобные задачи= пишут без столь явных орфографических ошибок

[Chardash]

У меня этот код даже не запускается, пишет ошибку.
можно глянуть сюда

[bakaev89]

! Вот этот код должен запуститься. только просмотра результатов нет.



/PREP7
/UNITS,SI

T=1

a=0.04
b=0.06
h=1


ET,1,BEAM4
!*
KEYOPT,1,2,0
KEYOPT,1,6,0
KEYOPT,1,7,0
KEYOPT,1,9,9
KEYOPT,1,10,0

R,1,0.04*0.06,(0.06*0.04**3)/12,(0.04*0.06**3)/12,0.06, 0.04, , , ! константы

MPTEMP,,,,,,,, !свойства
MPTEMP,1,0
MPDATA,EX,1,,2e11
MPDATA,PRXY,1,,0.3
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDE,DENS,1
MPDATA,DENS,1,,7800
N,1,0,0,0,,,, ! задаем узлы
N,21,0,1,0,,,,
!*
FILL,1,21,19, , ,1,1,1,


FLST,2,2,1 !опред в каздом узле элемент BEAM3
FITEM,2,1
FITEM,2,2
E,P51X
FLST,2,2,1
FITEM,2,2
FITEM,2,3
E,P51X
FLST,2,2,1
FITEM,2,3
FITEM,2,4
E,P51X
FLST,2,2,1
FITEM,2,4
FITEM,2,5
E,P51X
FLST,2,2,1
FITEM,2,5
FITEM,2,6
E,P51X
FLST,2,2,1
FITEM,2,6
FITEM,2,7
E,P51X
FLST,2,2,1
FITEM,2,7
FITEM,2,8
E,P51X
FLST,2,2,1
FITEM,2,8
FITEM,2,9
E,P51X
FLST,2,2,1
FITEM,2,9
FITEM,2,10
E,P51X
FLST,2,2,1
FITEM,2,10
FITEM,2,11
E,P51X
FLST,2,2,1
FITEM,2,11
FITEM,2,12
E,P51X
FLST,2,2,1
FITEM,2,12
FITEM,2,13
E,P51X
FLST,2,2,1
FITEM,2,13
FITEM,2,14
E,P51X
FLST,2,2,1
FITEM,2,14
FITEM,2,15
E,P51X
FLST,2,2,1
FITEM,2,15
FITEM,2,16
E,P51X
FLST,2,2,1
FITEM,2,16
FITEM,2,17
E,P51X
FLST,2,2,1
FITEM,2,17
FITEM,2,18
E,P51X
FLST,2,2,1
FITEM,2,18
FITEM,2,19
E,P51X
FLST,2,2,1
FITEM,2,19
FITEM,2,20
E,P51X
FLST,2,2,1
FITEM,2,20
FITEM,2,21
E,P51X

FINISH

/solu

FLST,2,1,1,ORDE,1
FITEM,2,1
!*
/GO
D,P51X, , , , , ,all,,,



finish

/SOLU
!*
ANTYPE,4
!*
TRNOPT,FULL
LUMPM,0
!*
NSUBST,50,0,0
outpr,basic,1

OUTRES,ALL,1
KBC,0
TIME,1e-6
FLST,2,1,1,ORDE,1 !нагрузка
FITEM,2,21
!*
/GO
F,P51X,FY,0
/STATUS,SOLU
SOLVE

NSUBST,50,0,0
KBC,0
TIME,5
FLST,2,1,1,ORDE,1 !нагрузка
FITEM,2,21
!*
/GO
F,P51X,FY,-250000
/STATUS,SOLU
SOLVE
save

!В ANSYS можно найти момент времени когда стержень потеряет устойчивость . Так как нагрузка возростает пропорционально !!времени, то легко можно будет определить величину нагрузки действующую в данный момент.

!только вот вопрос : как найти это самое критическое время ???