Пользовательская функция с циклом

@Novichek =) · Регистрация: 25.04.2011

Студворк — интернет-сервис помощи студентам

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Function G(b) As Double
    If b = 1 Then 'проверка на начальные условия
    G = 1
    End If
    If b = 0.5 Then 'проверка на начальные условия
    G = (3.14) ^ (0.5)
    End If
        If b < 2 And b > 1 Then 'проверка на начальные условия
        G = 1
        End If
        If b < 0.5 Then 'проверка на начальные условия
        G = (3.14) ^ (0.5)
        End If
If b > 2 Then 'сам цикл интеграла (основные соотношения)
    Do While b > 2
    G = (b - 1) * G(b - 1)
    Loop
End If
End Function

Доброго всем времени суток! Есть функция Г от числа "а" основные соотношения которой:
Г(а)=(а-1)*Г(а-1)
Г(а+1)=а*Г(а)
Г(1)=1
Г(0,5)=(Пи)^(0,5)

Я вот как подумал, сначала через If Then проверяем на начальные условия (а вдруг а=1 или а=0,5

)
Строка If b < 2 And b > 1 Then.... и строка If b < 0.5 Then.... конечно не начальные условия но ничего умнее не придумал что бы проще было разложить*. Для разложения в ряд выбрал цикл с неопределенным числом шагов Do While... Loop чтобы разложение закончилось тогда когда будет а=1 или а=0,5 (или около этих значений*). Если взять b=3 Эксель виснет...

@Апострофф · 28.10.2011, 11:00

Сообщение от Novichek =)

Если взять b=3 Эксель виснет...

Visual Basic
1
2
3
    Do While b > 2
      G = (b - 1) * G(b - 1)
    Loop

Чему тут удивляться! b=3 и в цикле не меняется - значит цикл бесконечный...

@Novichek =) · 28.10.2011, 11:08 **[ТС]**

Сообщение от Апострофф

b=3 и в цикле не меняется

Visual Basic
1
2
3
4
5
6
If b > 2 Then
    Do While b < 2
    b = b - 1
    G = (b) * G(b)
    Loop
End If

Я правильно этот цикл понял: "если b>2 то выполняем цикл Do While...Loop пока условие b < 2 не станет верным?

Только Г(3)=0, а должно быть Г(3)=(3-1)*Г(3-1)=2*(2-1)*Г(2-1)=2*1*1=2

@Казанский · 28.10.2011, 11:10

Надо использовать либо цикл, либо итеративные вычисления.
В первом случае надо позаботиться, чтобы переменная цикла менялась, иначе получается бесконечный цикл, "зависание".
По описанию можно предположить, что имеются в виду итеративные вычисления. Что-то вроде такого:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Function G(b As Double) As Double
If b * 2 <> Int(b * 2) Or b < 0.5 Then
    MsgBox "Аргумент функции должен быть положительным и кратным 0,5", vbCritical
    End
End If
Select Case b
Case 1: G = b
Case 0.5: G = Sqr(3.14)
Case Else: G = (b - 1) * G(b - 1)
End Select
End Function

@Novichek =) · 28.10.2011, 11:25 **[ТС]**

Спасибо, теперь понял как это работает

@аналитика · 28.10.2011, 11:26

Сообщение от Novichek =)

Visual Basic
1
2
3
4
5
6
If b > 2 Then
    Do While b < 2
    b = b - 1
    G = (b) * G(b)
    Loop
End If

Я правильно этот цикл понял: "если b>2 то выполняем цикл Do While...Loop пока условие b < 2 не станет верным?

Только Г(3)=0, а должно быть Г(3)=(3-1)*Г(3-1)=2*(2-1)*Г(2-1)=2*1*1=2

внутрь конструкции If выполнение попадет только если b>2, а цикл (причем, на входе) проверяет условие b<2 на истинность, что не пересекается с условием входа в If, соот-но тело цикла не выполнится не разу...

@Казанский · 28.10.2011, 11:38

Или так

Visual Basic
1
2
3
4
5
6
7
8
9
Function G(b As Double) As Double
If b * 2 <> Int(b * 2) Or b < 0.5 Then
    MsgBox "Аргумент функции должен быть положительным и кратным 0,5", vbCritical
    End
ElseIf b = 1 Then:      G = b
ElseIf b = 0.5 Then:    G = Sqr(3.14)
Else:                   G = (b - 1) * G(b - 1)
End If
End Function

@Novichek =) · 28.10.2011, 11:43 **[ТС]**

Сообщение от аналитика

тело цикла не выполнится не разу...

Точно условия же противоречат друг другу...
А если

Visual Basic
1
2
3
4
5
6
If b > 2 Then
    Do While b > 2
    b = b - 1
    G = b * G(b)
    Loop
End If

Опять таки получается 0...

Добавлено через 2 минуты

Сообщение от Казанский

Или так

Сколько разных способов для решения 1 задачи

@аналитика · 28.10.2011, 12:55

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Function Gamma(x As Double)
    If x <= 0 Then
        Gamma = "аргумент д.б. > 0"
        
    Else
        Dim temp As Double
        temp = WorksheetFunction.GammaLn(x)
 
        On Error Resume Next
        Gamma = Exp(temp)
        If Err = 6 Then Gamma = "передоза"
    End If
End Function

@Казанский · 28.10.2011, 13:12

Ух ты! Факториал дробного числа! Прикольно

@Novichek =) · 30.10.2011, 10:45 **[ТС]**

аналитика, еще раз спасибо за "нарядную функцию"!

Это круто! С 6 по 11 строку можно прокоментировать? (особенно интересует WorksheetFunction.GammaLn - GammaLn это какая функция рабочего листа, конструкция On Error Resume Next и строка If Err = 6 Then Gamma = "передоза", Err = 6 - это определение какой то ошибки?)

@аналитика · 30.10.2011, 10:54

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Function Gamma(x As Double) 'нет типа, возвращаемого функцией (т.е. As Variant), т.к. ф-ция м. возвращать как строки, так и числа  
    If x <= 0 Then 'проверка на неотрицательность аргумента
        Gamma = "аргумент д.б. > 0"
        
    Else
        Dim temp As Double
        temp = WorksheetFunction.GammaLn(x) 'логарифм Гамма-функции
 
        On Error Resume Next 'обработка от возможного переполнения (Err=6)
        Gamma = Exp(temp) 'экспонента логарифма x = x, см. ниже 
        If Err = 6 Then Gamma = "передоза" 'слишком большое число > 10^200 
    End If
End Function

$https://www.cyberforum.ru/cgi-bin/latex.cgi?e^{\ln x}=x$
$https://www.cyberforum.ru/cgi-bin/latex.cgi?e^{\ln \Gamma }=\Gamma$

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ

@Novichek =) 537 / 28 / 4 Регистрация: 25.04.2011 Сообщений: 238
	28.10.2011, 11:25 [ТС]
	Спасибо, теперь понял как это работает 0

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	28.10.2011, 13:12
	Ух ты! Факториал дробного числа! Прикольно 2

@Novichek =) 537 / 28 / 4 Регистрация: 25.04.2011 Сообщений: 238
	30.10.2011, 10:45 [ТС]
	аналитика, еще раз спасибо за "нарядную функцию"! Это круто! С 6 по 11 строку можно прокоментировать? (особенно интересует WorksheetFunction.GammaLn - GammaLn это какая функция рабочего листа, конструкция On Error Resume Next и строка If Err = 6 Then Gamma = "передоза", Err = 6 - это определение какой то ошибки?) 0