[derik]

Здраствуйте уважаемые форумчане! Просьба тех кто считает в Ансисе подсказать - где у меня ошибка в схеме! Хелп перечитал, он мне уже скоро сниться будет :-( помогите пожалуйста!
вот код:

Код:

[Выделить все]

/prep7
a=4
h=2.5
b=.4
t=.2
q=100
/view,1,1,1,1
/ang,1
/rep,fast
blc5,a/2,a/2,a,a,
k,,b/2,b/2,0
k,,a-b/2,b/2,0
k,,b/2,a-b/2,0
k,,a-b/2,a-b/2,0
k,,b/2,b/2,-h
k,,a-b/2,b/2,-h
k,,b/2,a-b/2,-h
k,,a-b/2,a-b/2,-h
lstr,5,9
lstr,6,10
lstr,7,11
lstr,8,12
nummrg,all
boptn,,keep
boptn,keep,1
boptn,nwar,0
boptn,vers,rv52
btol,1e-005,
lina,5,1
lina,6,1
lina,8,1
lina,7,1
mptemp,,,,,,,,
mptemp,1,0
mpdata,ex,1,,3e8
mpdata,prxy,1,,.3
mpdata,dens,1,,2500
et,1,shell63
r,1,t,,,,,,
et,2,beam4
keyopt,2,9,9
r,2,b*b,(b*b**3)/12,(b*b**3)/12,b,b,
lsel,s,,,5
lsel,a,,,6
lsel,a,,,7
lsel,a,,,8
latt,1,2,2,
asel,s,,,1
aatt,1,1,1
allsel,all
lesize,5,,,b,1
lesize,6,,,b,1
lesize,7,,,b,1
lesize,8,,,b,1
lmesh,5,6,
lmesh,7,8,
aesize,1,b/2,
amesh,1
LGEN,3,all, , , , ,h, ,0   
AGEN,3,all, , , , ,h, ,0
nummrg,all
allsel,all
/eshape,1
/replot
finish
/sol
nsel,s,loc,x,b/2
nsel,r,loc,y,b/2
nsel,r,loc,z,-h
D,all, , , , , ,ALL, , , , , 
nsel,s,loc,x,b/2
nsel,r,loc,y,a-b/2
nsel,r,loc,z,-h
D,all, , , , , ,ALL, , , , , 
nsel,s,loc,x,a-b/2
nsel,r,loc,y,b/2
nsel,r,loc,z,-h
D,all, , , , , ,ALL, , , , , 
nsel,s,loc,x,a-b/2
nsel,r,loc,y,a-b/2
nsel,r,loc,z,-h
D,all, , , , , ,ALL, , , , ,
allsel,all
acel,0,0,9.8,
solve
finish
/post1
set,first

[aka raduntsev-nias]

вопрос. как избавиться от этих дряней.

наверное из за этого
SHPP,OFF

????

[derik]

это контактный(целевой элемнт) т ыот нео никак, по мойму не избавишься, могу ошибатся.

[aka raduntsev-nias]

не от контактного. нужно чтобы поверхность на месте оставалась.

[derik]

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

[aka raduntsev-nias]

я про то же. это при самом большом увеличении визуализации деформаций.
при среднем и малом все ok

[derik]

Нужна помощь Сергея Ивановича...а он занят...

[aka raduntsev-nias]

может ошибаюсь, но при трении 0,2 несимметричный контакт

[derik]

отдельно болтик решил :-) потом пластики, а потом все вместе :-) Макс можошь посмотреть в ВБ, результаты совпадут? :-)

[aka raduntsev-nias]

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

скинешь данные на бумажке быстрей решу) признаюсь. я жесткий чайник.

хотя ладно, решу. потом сравним

тоже файлик. классик не решает. wb пропустил. не знаю пока, как эти ошибки в wb исправить

[derik]

если трудности с командами - спрашивай, что знаю расскажу а чем открыть присланный файл? ни ВБ ни ансис его не читают...а вот и сам болтик, что считаю. примитивный, но ведь с примитивов и нужно начинать

по поводу журнала ошибок:
pcg решатель не подходит, убери его, а в /sol встать следующие строчки:

Код:

[Выделить все]

/gst,1
nldiag,nrre,on
nropt,unsym,,on
antype,0
nlgeom,1
nsubst,100,5000,10
outres,erase
outres,all,all
time,10
solve
fini

попробуй сменить 186 на 187 тип
и что там там у тебя не то в задании таблиц материала, хотя стоит попробовать сменить тип элемента...может быть и ошибаюсь, пускай меня поправят старшие товарищи

[aka raduntsev-nias]

решатель видимо таким из WB передался. выбирал интерактивный, тк считал нессиметричный контакт. файл можно переименовать в .txt. или открывать как коммандный файл в ansys

сменить элементы тоже не понятно как в WB
вот так. тоже не все просто

Сообщение от 6pa4o ведь с примитивов и нужно начинать )

согласен. но сроки жмут. мне сдавать работу скоро руководителю.

[derik]

тада хз....считай в классике ИМХО! брось ВБ переходи на АНСИС!!!! даешь стране АПДЛ!!!!

[aka raduntsev-nias]

Сообщение от 6pa4o тада хз....считай в классике ИМХО! брось ВБ переходи на АНСИС!!!! даешь стране АПДЛ!!!!

обязательно! потихоньку перейду. к тебе буду обращаться!

[derik]

дык, я тожо еще чайник...я пока ток болтики и пластинки решаю....а на большее рано замахиваться..., я еще не готов ну если руковолдителю то да...эт дело такое


попробуй пустить на расчет

[aka raduntsev-nias]

Сообщение от 6pa4o попробуй пустить на расчет

заработало? спасиб! после работы проверю

[derik]

не я не знаю...счас ансиса нет под рукой, я там поправил тип элемента и pcg убрал...авось поможет :-D

Код:

[Выделить все]

fini
/clear,nostart
/outp,outfile,txt,C:\ansys\output
/cwd,'C:\ansys\out'

a=100
b=150
c=150
h=40
t=20
r=20
r2=35
p=5e4

/prep7

et,1,187
et,2,185

mptemp,,,,,,,
mptemp,1,0
mpdata,ex,1,,2.06e8
mpdata,prxy,1,,.3

cylind,r,,0,a,,90,
cylind,r,r2,0,h,,90,
cylind,r2,,0,h,,90,
vgen,,1,,,,,-a,,,1
vgen,,2,,,,,-2*h,,,1
vadd,1,3
blc5,b/2,c/2,b,c,-t
cylind,r,,0,-t,,90
vsbv,1,3
vgen,2,5,,,,,-t,,,0
sfa,13,1,pres,-p

mshkey,0
mshape,0,3d
esize,r/4
vsel,s,,,1,5,4
vsweep,all
vsel,inve
vmesh,all

et,3,170
et,4,174
keyopt,4,2,1
keyopt,4,5,1
keyopt,4,9,3
keyopt,4,10,5
keyopt,4,12,5

mp,mu,3,.3
mat,3

r,3,,,.1,.1,,40
r,4,,,.1,.1,,40
r,5,,,.1,.1,,40
r,6,,,.1,.1,,40
r,7,,,.1,.1,,40

real,3
type,3
asel,s,,,3
nsla,s,1
esln
esurf
type,4
asel,s,,,9
nsla,s,1
esln
esurf

real,4
type,3
asel,s,,,2,24,22
nsla,s,1
esln
esurf
type,4
asel,s,,,3
nsla,s,1
esln
esurf

real,5
type,3
asel,s,,,15
nsla,s,1
esln
esurf
type,4
asel,s,,,29
nsla,s,1
esln
esurf

real,6
type,3
asel,s,,,30
nsla,s,1
esln
esurf
type,4
asel,s,,,17
nsla,s,1
esln
esurf

real,7
type,3
asel,s,,,22
nsla,s,1
esln
esurf
type,4
asel,s,,,7
nsla,s,1
esln
esurf
cncheck,auto

asel,s,,,4,5
asel,a,,,10,11
asel,a,,,18,19
asel,a,,,12,20,8
asel,a,,,27,28
da,all,symm
asel,s,,,16,21,5
asel,a,,,23,25,2
da,all,all
!da,13,uz,1.8
allsel,all
fini

/sol

/gst,1
nldiag,nrre,on
nropt,unsym,,on
antype,0
nlgeom,1
nsubst,100,10000,50
outres,erase
outres,all,all
time,5
solve
fini

/post1
set,first

и все таки я ее решил :-D
2 гектара занимает решение...

[aka raduntsev-nias]

Сообщение от 6pa4o;620780 /post1 set,first[/code и все таки я ее решил :-D 2 гектара занимает решение...

видимо это не предел.
у меня сейчас получился 38,1 Гб

[derik]

ты шо там такое решал?

[aka raduntsev-nias]

Сообщение от 6pa4o ты шо там такое решал?

контактная. "узелок" посчитал) помельче сетку побил)

[derik]

Ы...а скинь файлик охота глянуть