Реализация макроса Подбор параметра - нужна помощь.

[vip-s]

Добрый день. Возникла необходимость реализовать макросом функцию Подбора параметра в Openoffice.

Есть исходный vba код из ms office

"Sub GoalSeek()
   Range("I4").GoalSeek Goal:=Range("C14"), ChangingCell:=Range("C16")
End Sub
"
Каким образом эта функция реализуется в Oо?
Заранее спасибо.

[rami]

Каким образом эта функция реализуется в Oо?

Смотрите пример в файле "Подбор параметра".

[vip-s]

Пасиб большое, rami!

[calc4fem]

присоединяюсь к спасибе.

[Hasim]

Это все, конечно, хорошо.
Но как быть с уравнением 10*C2-10/C2=15
SeekGoal находит параметр 2, но тут же есть еще один параметр -0,5.
Как его найти?

[rami]

Но как быть с уравнением 10*C2-10/C2=15
SeekGoal находит параметр 2, но тут же есть еще один параметр -0,5.
Как его найти?

10*C2-10/C2=15  это квадратное уравнение   =10*C2^2-15*C2-10   имеет два (или один или ни одного) корня, если в ячейку C2 вставить начальное значение меньше -0,5 , то найдётся первый корень(-0,5), а если больше -0,5 , то второй (2). В "чистом Подборе параметра" при выполнении условий итерации (максимальное число шагов или минимальное изменение) вычисления прекращаются и всегда выдаётся одно решение(если есть), но в макросе с помощью циклов и условий можно "заставить" "Подбор" искать дальше.

[Hasim]

если в ячейку C2 вставить начальное значение меньше -0,5 , то найдётся первый корень(-0,5)

Только почему-то не находится?

[tagezi]

Но как быть с уравнением

Корни уравнений лучше искать: Метод половинного деления, Метод хорд или Метод касательных (метод Ньютона).
Эти методы при правильной реализации позволяют не обращать внимание на степень и каноничность уравнения.
Минусом является то, что корни всегда находятся с определённым приближением и только на заданном участке.

[rami]

Только почему-то не находится?

В предыдущем ответе немного ошибся, если меньше полусуммы корней (это 0.75), находится первый корень, а если больше, то второй.
Но вообще "Подбор параметра" используется не для решения задачи, а для подбора решения.

[Hasim]

В предыдущем ответе немного ошибся, если меньше полусуммы корней (это 0.75), находится первый корень, а если больше, то второй.

Завязывайте с теоретизированием.
Нужен работающий пример.

Но вообще "Подбор параметра" используется не для решения задачи, а для подбора решения.

Это одно и тоже.

[calc4fem]

В данном случае, когда корней несколько а уравнение простое - лучше записать аналитическую формулу в ячейке
а в целом для решения уравнений есть надстройки вроде этой http://extensions.services.openoffice.org/en/project/CmathOOoCAS

[Hasim]

В данном случае, когда корней несколько а уравнение простое - лучше записать аналитическую формулу в ячейке

Есть простая задача для seekGoal: подобрать (найти) решения для уравнения, которое может иметь 2 (3,4,5,...) решений.
seekGoal находит только одно, но совсем не очевидно, что это решение именно то, которое и нужно.
Второе решение seekGoal найти не может никаким образом, хотя, возможно, именно это и есть то решение, которое нужно было найти.
Вопрос: на фига нам seekGoal???

[calc4fem]

вот тут в коде метод Ньютона для решения тренсцендентного уравнения
(с конкретным уравнением и уравнением первой производной)

Код Выделить Развернуть

'Solve transcendental equation by Newton's method
'limits and initial value
Nmax=1e10 'max
N1=1 'min
N2=Nmax

'do cycle
Do While N2-N1>1 'go until get minimal difference
e1=log(100/(100-psi))/((4*N1)^mp+(1+r1)/(1-r1))+(fs/E)/((4*N1)^me+(1+r)/(1-r))-ea
e2=log(100/(100-psi))/((4*N2)^mp+(1+r1)/(1-r1))+(fs/E)/((4*N2)^me+(1+r)/(1-r))-ea
tan1=-4*mp*(4*N1)^(mp-1)*log(100/(100-psi))/((4*N1)^mp+(1+r1)/(1-r1))^2-4*me*(4*N1)^(me-1)*(fs/E)/((4*N1)^me+(1+r)/(1-r))^2
tan2=(e2-e1)/(N2-N1)

N1=N1-e1/tan1
N2=N2-e2/tan2
Loop