[metalirk]

Сразу извиняюсь, если Вы этот вопрос уже читали на ansysclub.ru.
Требуется соединить элементом все узлы, координаты х которых равны, а координаты z отличаются ровно на 0,01, помогите найти что не так делаю...

Код:

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

*get,nmax,node,,num,max
*do,n,1,nmax
*do,i,1,nmax
*get,a,node,i,loc,x
*get,b,node,n,loc,x
*get,c,node,i,loc,z
*get,d,node,n,loc,z
e=c-d
*if,a,eq,b,and,e,eq,0.01,then
E,i,n
*end if
*end do
*end do

Заранее спасибо.

[СергейД]

а если проcто
eintf,.01?

[metalirk]

eintf,.01 объединит все узлы, расстояние между которыми 0.01 и меньше, по-моему. А мне надо объединить именно те, между которыми ровно 0.01 и только те, у которых "х" совпадает...

[MrWhite]

Во-первых, думаю нужно все-таки не e сравнивать с 0.01, а abs(e)
Во-вторых, по опыту рекомендую проверку a,eq,b заменить на проверку аналогичную проверке с и d. Сравнивать при этом со скажем 1e-5. Но необходимость это зависит от того как вы построили сетку.
В-третьих, рекомендую для контроля выполнения использовать /COM, многие вопросы отпадут сами собой. Скажем проходят или нет условия можно выяснить вот так:

Код:

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

*if,a,eq,b,and,e,eq,0.01,then
    /COM, Условие выполнено!
    E,i,n
 *end if

[Карлсон]

Offtop: Код очень желательно выделять соответствующими тегами.
Проблемы могут быть возникать если нумерация узлов в выборке не от единицы до NMAX, а в общем случае это так.
Я в таких случаях пользуюсь следующим подходом:

Код:

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

get,NMAX,node,,count
NN=ndnext(0)
*do,i,1,NMAX
  .......
  NN=ndnext(NN)
*enddo

Кроме того, у вас *enddo написано с пробелом, и короме того в именах переменных (по карайней мере N, E) использованы имена команд APDL.

[metalirk]

Сообщение от СергейД а если проcто eintf,.01?

Спасибо, Вы были правы. В конце концов серией выборок и eintf с правильными kcn и dx,dy,dz вопрос решился в сотни раз быстрее, всё-таки перебор всех комбинаций узлов в схеме дело долгое. Как говорил Маркс "усложнять просто, упрощать сложно"