Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.90/21: Рейтинг темы: голосов - 21, средняя оценка - 4.90
0 / 0 / 0
Регистрация: 01.11.2010
Сообщений: 3
1

Составить программный код для расчета функции на VBA

01.11.2010, 22:53. Показов 4409. Ответов 5
Метки нет (Все метки)

y=(10sindx)/(1+d2x2), если х изменяется от 0,1 до 10 с шагом Dx=0,13, а d от 1,2 до 5,4 c шагом Dd=1,1/
Уважаемые программисты, помогите!!!!!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.11.2010, 22:53
Ответы с готовыми решениями:

Составить программный код для вычисления матрицы 5-го порядка
Помогите, пожалуйста, составить программный код для вычисления матрицы 5-го порядка(Visual...

Программный код расчёта среднеквадратического значения
Доброго времени суток, Аксакалы форума. Мне снова нужна консультация специалистов. Поставлена...

Составить программный код для подсчета количества единиц в матрице
Составить программный код для подсчета количества единиц в матрице с выводом на экран результата.

Составить программный код для метода сортировки Хоара (по блок-схеме)
никак не могу составить программный код для метода сортировки Хоара.

5
11200 / 3571 / 636
Регистрация: 13.02.2009
Сообщений: 10,674
02.11.2010, 01:02 2
Так дай хоть шанс тебе помочь!
Начни делать, а уж если что не получится - тогда с вопросами и обращайся
0
0 / 0 / 0
Регистрация: 01.11.2010
Сообщений: 3
02.11.2010, 10:00  [ТС] 3
Исходные данные ввожу через
Visual Basic
1
2
3
4
5
6
x1 = InputBox("Введите начальное х")
x2 = InputBox("Введите конечное х")
dX = InputBox("Введите шаг dx")
d1 = InputBox("Введите начальное d")
d2 = InputBox("Введите конечное d")
Dd = InputBox("Введите шаг Dd")
... потом отображаю их в таблице. Здесь все работает. Ошибку выдает, когда задаю посчитать количество интервалов: n = Fix((x2 - x1) / dX) + 1. Может я неправильно формулу записала или типы???

Добавлено через 4 минуты
А еще посмотрите, пожалуйста, здесь:
Visual Basic
1
2
3
4
5
6
7
8
9
10
For x = x1 To x2 Step dX   
While d1 <= d2
y = (10 * Sin(d1 * x) / (1 + d1 ^ 2 * x ^ 2)) 
d1 = d1 + Dd
Cells(k, 3) = x          
Cells(k, 5) = y
Cells(k, 2) = k
k = k + 1                
Wend
Next x
0
11200 / 3571 / 636
Регистрация: 13.02.2009
Сообщений: 10,674
02.11.2010, 13:19 4
Вроде так:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Sub RAB()
'y=(10sindx)/(1+d2x2),
'если х изменяется от 0,1 до 10 с шагом Dx=0,13, а d от 1,2 до 5,4 c шагом Dd=1,1/
Cells.ClearContents
Dim di
x1 = CDbl(InputBox("Введите начальное х", "Ввод данных", 0.1))
x2 = CDbl(InputBox("Введите конечное х", "Ввод данных", 10))
dx = CDbl(InputBox("Введите шаг dx", "Ввод данных", 0.13))
d1 = CDbl(InputBox("Введите начальное d", "Ввод данных", 1.2))
d2 = CDbl(InputBox("Введите конечное d", "Ввод данных", 5.4))
dd = CDbl(InputBox("Введите шаг Dd", "Ввод данных", 1.1))
k = 1
For x = x1 To x2 + dx Step dx
di = d1 + dd * Fix(((x - x1) / dx) / (((x2 - x1) / dx) / Round(((d2 - d1) / dd), 0)))
y = (10 * Sin(di * x) / (1 + di ^ 2 * x ^ 2))
Cells(k, 3) = x
Cells(k, 5) = y
Cells(k, 2) = k
Cells(k, 8) = di ' текущее значение d
k = k + 1
Next x
End Sub
0
0 / 0 / 0
Регистрация: 01.11.2010
Сообщений: 3
03.11.2010, 22:32  [ТС] 5
Поясните,пожалуйста, 14 строчку программы

Добавлено через 6 часов 31 минуту
? Можно ли начать вывод в n-строку листа, а нумерация начнется с 1-го?
?Почему в 5-ой строке объявлен только Dim di без типа?
0
11200 / 3571 / 636
Регистрация: 13.02.2009
Сообщений: 10,674
03.11.2010, 23:15 6
14 строчка: Я пытался привести шаг изменения d к шагу изменения x
т.е на каждые (x2-x1)/ dx шагов изменения x приходится (d2-d1)/dd шагов изменения d
В среднем около 20. Что бы показать, что d изменяется именно до 5.4 в цикле добавлен один шаг:
For x = x1 To x2 + dx, который показывает значение d2 после окончания цикла

Можно ли начать вывод в n-строку листа, а нумерация начнется с 1-го?
примерно так:
k = 1
Cells(k+n-1, 3) = x
Cells(k+n-1, 5) = y
Cells(k+n-1, 2) = k

Почему в 5-ой строке объявлен только Dim di без типа?
Ну хоть что-то сделай сам
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.11.2010, 23:15

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Программный код для Dev-C++ (вычисление значений функции)
Помогите чайнику, пожалуйста. F(x)=\begin{cases}-3x+9,&amp; \text{ if } x\preceq 7 \\ \frac{1}{x-7},&amp;...

Составить алгоритм для расчета функции
1.Составить алгоритм для расчета функции y= ln(sin(x)+1)*0.15 при изменении x от 0 до 12 с шагом...

Составить программу для расчета функции
Уважаемые программисты помогите сделать эту задачу.Я мало что я понимаю в C++. Поэтому и прошу о...

Составить алгоритм для расчета функции
Помогите, пожалуйста, вообще не врубаюсь в смысл задачи(


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.