ошибка при итерационных вычислениях в Excel Опции

[shadow]

Сделал для себя небольшой теплотехнический расчет футеровки. Хотел чтобы коэффициент теплоотдачи ап (от наружной поверхности к окружающему воздуху) рассчитывался методом итерации. Но при изменении материала слоя или изменении толщины слоя появляется какая-то ошибка в вычислениях. Ошибка происходит не всегда, могу несколько раз поменять толщины слоев, материалы и всё работает. Можно конечно задавать коэффициент ап вручную и методом подбора за несколько проходов получить результат, но хотелось бы автоматизировать это процесс.
 _____________1.jpg ( 283,4 килобайт ) Кол-во скачиваний: 42


Самостоятельно не могу разобраться с этим вопросом, не хватает знания Excel.

 Futerovka.xlsx ( 619,24 килобайт ) Кол-во скачиваний: 20

[shadow]

Сделал для себя небольшой теплотехнический расчет футеровки. Хотел чтобы коэффициент теплоотдачи ап (от наружной поверхности к окружающему воздуху) рассчитывался методом итерации. Но при изменении материала слоя или изменении толщины слоя появляется какая-то ошибка в вычислениях. Ошибка происходит не всегда, могу несколько раз поменять толщины слоев, материалы и всё работает. Можно конечно задавать коэффициент ап вручную и методом подбора за несколько проходов получить результат, но хотелось бы автоматизировать это процесс.
 _____________1.jpg ( 283,4 килобайт ) Кол-во скачиваний: 42


Самостоятельно не могу разобраться с этим вопросом, не хватает знания Excel.

 Futerovka.xlsx ( 619,24 килобайт ) Кол-во скачиваний: 20

[borm]

У вас там замкнутый круг какой-то?
Ак, Ал, зависят от Тн(G17), а в свою очередь Тн(G17) зависит от R0(С23), в свою очередь R0(С23) зависит от Q22(который должен считаться) но он зависит от Р21, который равен Альфа(С26), которая равна Ак+Ал.
Круг замкнулся.

[shadow]

У вас там замкнутый круг какой-то?
Ак, Ал, зависят от Тн(G17), а в свою очередь Тн(G17) зависит от R0(С23), в свою очередь R0(С23) зависит от Q22(который должен считаться) но он зависит от Р21, который равен Альфа(С26), которая равна Ак+Ал.
Круг замкнулся.

Да понятно, что замкнутый круг. Если я вручную альфа в ячейке Р21 указываю, то за несколько проходов(подстановок) подбираю его равным альфа в ячейке С26. А если ставлю Р21=С26, то по началу вроде бы всё считается, но в какой-то момент при изменении толщины или материала происходит сбой. По этапам вычислений непонятно, что происходит.

Сообщение отредактировал shadow - 19.4.2016, 12:51

[shadow]

По какой-то причине в результате итерационных вычислений ячейке Р21 не присваивается конечно значение альфа из ячейки С26

[borm]

При обновлении получается вот что:
 __________.png ( 50,45 килобайт ) Кол-во скачиваний: 30

[Composter]

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

Сообщение отредактировал Composter - 19.4.2016, 14:57

[tiptop]

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

А я чтобы уйти от "ошибки" вставляю что-нибудь подобное:
=ЕСЛИ(D15>1;1;B30)
=ТИП(B30)

[v-david]

Функцию "подбор параметра" использовал?

[shadow]

Функцию "подбор параметра" использовал?

Если вопрос ко мне, то нет. Я вообще профан :-)

[v-david]

итерации реализованы в эксель вот здесь

Прикрепленные файлы

 ________________.PNG ( 74,1 килобайт ) Кол-во скачиваний: 58

 

[tiptop]

итерации реализованы в эксель вот здесь

Кажется, это называется "подбор".

[tiptop]

(полуручная операция)

[shadow]

итерации реализованы в эксель вот здесь

Понятно, но не то что я хочу добиться

[shadow]

А я чтобы уйти от "ошибки" вставляю что-нибудь подобное:
=ЕСЛИ(D15>1;1;B30)
=ТИП(B30)

Экхе... не понял.

[Valiko]

в 2003 экселе в меню сервис-параметры -вычисления можно установить (изменить) число иттераций и погрешность.
Я уже выкладывал маленький макрос с использованием функции "Подбор параметра"

Сообщение отредактировал Valiko - 20.4.2016, 12:02

[shadow]

в 2003 экселе в меню сервис-параметры -вычисления можно установить (изменить) число иттераций и погрешность.
Я уже выкладывал маленький макрос с использованием функции "Подбор параметра"

Я пробовал менять и количество итераций и точность

[Ernestas]

Вроде все работает

Прикрепленные файлы

 Futerovka_01.xlsx ( 632,52 килобайт ) Кол-во скачиваний: 15
 0011.jpg ( 154 килобайт ) Кол-во скачиваний: 23

 

[shadow]

Вроде все работает

Что это?
 _____________1.jpg ( 14,79 килобайт ) Кол-во скачиваний: 31

[Ernestas]

Что это?
 _____________1.jpg ( 14,79 килобайт ) Кол-во скачиваний: 31

Сумневаетесь?

Файлик то ваш. Я с ним ничего не делал, почти. )
Насколько я понял, экселька во время итераций пробует подставить ноль в знаменатель. После этого выдает на горА ошибку.
Лечил так: стер "закольцовку", написал в ячейку(P21) значение больше нуля (0,5), экселька всё посчитала, потом в эту же ячейку вбиваем формулу (=C26) и все работает.

[shadow]

Сумневаетесь?

Файлик то ваш. Я с ним ничего не делал, почти. )
Насколько я понял, экселька во время итераций пробует подставить ноль в знаменатель. После этого выдает на горА ошибку.
Лечил так: стер "закольцовку", написал в ячейку(P21) значение больше нуля (0,5), экселька всё посчитала, потом в эту же ячейку вбиваем формулу (=C26) и все работает.

Ну я в принципе так и делал

[Ernestas]

Ну я в принципе так и делал

Проблемка.
Тогда предлагаю так

А макрос напишите сами. Ибо не даёт загрузить на форум такие файлы. )

Sub Restartik()
'
' Restartik Макрос
'
' Сочетание клавиш: Ctrl+r
'
Range("P21").Select
ActiveCell.FormulaR1C1 = "1"
Range("P21").Select
ActiveCell.FormulaR1C1 = "=R[5]C[-13]"
Range("P22").Select
End Sub

Прикрепленные файлы

 0012.JPG ( 145,8 килобайт ) Кол-во скачиваний: 21

 

[shadow]

Проблемка.
Тогда предлагаю так

А макрос напишите сами. Ибо не даёт загрузить на форум такие файлы. )

Sub Restartik()
'
' Restartik Макрос
'
' Сочетание клавиш: Ctrl+r
'
Range("P21").Select
ActiveCell.FormulaR1C1 = "1"
Range("P21").Select
ActiveCell.FormulaR1C1 = "=R[5]C[-13]"
Range("P22").Select
End Sub

Спасибо. С этим всё получилось.

[shadow]

Если меняю значение температуры в печи на к конкретном листе расчета для цил. обечайки, свода, и т.д., то всё работает нормально, но если пытаюсь задать эту же температуру на листе "Данные" (ячйка связана с каждым листом) происходит сбой.

Прикрепленные файлы

 ____________________________.zip ( 789,6 килобайт ) Кол-во скачиваний: 2

 

[v-david]

старт лучше сделать не по Ctrl+r, а по событию изменения содержимого ячейки...Почитайте, например здесь

[shadow]

старт лучше сделать не по Ctrl+r, а по событию изменения содержимого ячейки...Почитайте, например здесь

Круто! Спасибо, не придется тыкать кнопки :-)!

Дело в том, что макрос не помогает, но мне вроде удалось победить это проблему