VBA

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
VBA Найти сумму элементов заданной строки матрицы Для матрицы A (n, n) найти сумму элементов заданной строки https://www.cyberforum.ru/ vba/ thread2605274.html	VBA Ввод-вывод данных Доброго дня! Я новичок в Экселе. Пробую сделать инструмент для ведения базы данных объектов. Если не трудно, помогите, пожалуйста, разобраться как мне воплотить в жизнь задуманное. 1. Появилась мысль вывод данных по объекту сделать через UserForm. В выпадающем списке (диапазон объекты) выбирается объект и при нажатии "Вывести данные по объекту",соответственно, данные объекта выводятся в...
VBA Импорт данных txt, анализ этих данных с базой штрихкодов https://www.cyberforum.ru/ vba/ thread2605191.html Добрый день. Подскажите с какой стороны подступиться к вопросу. Имеется терминал сбора данных (ТСД) Данное устройство выгружает данные в виде файла 1.txt (первые 7 цифр это артикул /ТАБУЛЯЦИЯ/ вес товара /ТАБУЛЯЦИЯ/ количество ящиков Хочу реализовать по кнопке (Выбор файла) в "Номенклатуре.xlsx" в листе "Продажи", который бы вызывал макрос, позволяющий сделать выбор файла txt, импорт данных...	VBA Удаление двойных кавычек из всех ячеек в столца Приветствую всех . Прошу помочь в решение проблемы суть которой : Есть столбце например "А" и в нем записаны наименования компаний например {ООО "Папа джонс"}, и требуется макрос который уберет во всех ячейках двойные кавычки что бы получилось {ООО Папа джонс} . Заранее спасибо. https://www.cyberforum.ru/ vba/ thread2605132.html
Заполнить статический массив VBA Заполнить статический массив случайными дробными числами в диапазоне от 0 до 1. Количество элементов массива определить самостоятельно. В этой же программе заполнить динамический массив случайными целыми числами в диапазоне от МИН до МАКС	VBA Заполнить статический массив случайными дробными числами Заполнить статический массив случайными дробными числами в диапазоне от 0 до 1 https://www.cyberforum.ru/ vba/ thread2604922.html
VBA Заполнить динамический массив и сложить его элементы https://www.cyberforum.ru/ vba/ thread2604915.html Заполнить динамический массив и сложить его элементы. Количество элементов массива и ввод каждого элемента осуществить в диалоге в процессе выполнения программы.	VBA Запись уникальных значений из таблицы через массив и вывод на нужные строки Добрый день. В процессе знакомства и работы с массивом я запутался. Просьба помочь. Написан код, который по идее должен собирать уникальные значения по ключу со второго листа и подставлять на первый. С подстановкой в принципе там в коде вроде ровно, только вот сбор уникальных значений как? Ключ там собран из 2 столбцов - Номер миссии + номер суппорта, мне надо не прибавлять к счетчику...
VBA Нужна блок-схема https://www.cyberforum.ru/ vba/ thread2604635.html Добрый вечер! Помогите пожалуйста с блок-схемой к коду. Заранее премного благодарен: Sub lab2() Open "C:\Users\ПК\Desktop\data1.txt" For Output As #1 Dim xmin As Double, X As Double, xmax As Double, h As Double h = 0 X = -0.5 xmin = -0.5 xmax = 4 h = (xmax - xmin) / 8	VBA Некорректно считается сумма отрицательных элементов массива https://www.cyberforum.ru/ vba/ thread2604571.html Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click 'Обчислити суму всіх від’ємних елементів масиву A=(a1, a2,…, an) 'Создали, заполнили массив Dim array_1() As Integer Dim i, counter, n As Integer n = Val(InputBox("Введи количество элементов массива : ")) ReDim array_1(n) For i = 1 To n array_1(i) = Val(InputBox("Ввод массива : "))
Перевод кода с Паскаля на VBA VBA Необходимо изменить код с паскаля на vba uses crt; const nmax = 10; var a : array of integer; i, n : integer;	VBA Сортировка столбца по алфавиту Здравствуйте! У меня есть рабочий лист с данными (ФИ студента и количество пропусков). Необходимо создать рабочий лист "Нет пропусков" и поместить туда ФИ тех студентов, у которых нет пропусков. Также после этого необходимо создать еще один лист "Есть пропуски" с оставшимися студентами. Эту часть задания я выполнила, но надо, чтобы все эти данные, выведенные в листах "Нет пропусков" и "Есть... https://www.cyberforum.ru/ vba/ thread2604448.html

Burk

1846 / 1161 / 354

Регистрация: 11.07.2014

Сообщений: 4,102

29.03.2020, 15:00

Excel

Метод Рунге-Кутта - VBA - Ответ 14376661

29.03.2020, 15:00. Показов 4236. Ответов 14

Метки (Все метки)

Ответ

Diana001020, я сделал предположение, что DEqn это и есть функция, которую надо проинтегрировать, Проверьте такой код (запустить макрос proba)

Visual Basic

Function RUNKUT(Sf, x0, y0, t, Optional n = 100)
Dim h As Double, y As Double, x As Double, k(1 To 4) As Double
Dim i As Integer, j As Integer
h = (t - x0) / n
y = y0
x = x0
For i = 1 To n
  k(1) = h * Application.Run(Sf, x, y)
  k(2) = h * DEqn(x + h / 2, y + k(1) / 2)
  k(3) = h * DEqn(x + h / 2, y + k(2) / 2)
  k(4) = h * DEqn(x + h, y + k(3))
  y = y + (k(1) + k(4)) / 6 + (k(2) + k(3)) / 3
  x = x + h
Next i
RUNKUT = y
End Function
Function DEqn(x As Double, y As Double) As Double
DEqn = x ^ 2 - y
End Function
 
Sub proba()
Sf = "DEqn"
MsgBox RUNKUT(Sf, 0, 1, 2)
End Sub

Вернуться к обсуждению:
Метод Рунге-Кутта VBA

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

29.03.2020, 15:00

Готовые ответы и решения:

Метод Рунге-Кутта на VBA в Excel
Здравствуйте. Пишу программу решения трех ДУ методом численного интегрирования Рунге-Кутта (расчет...

Решение системы дифф. ур. методом Рунге-Кутта 4-ого порядка.
Есть пример? Шаблон? Или типа того. Чтоб по аналогии можно было сделать.

Метод Рунге-Кутта четвертого порядка (метод прогноза и коррекции)
Дано ОДУ x'''-x''x+(x')^2=0. Пытаюсь решить ОДУ методом Рунге-Кутта по данному примеру:...

Метод Эйлера и метод Рунге-Кутта: проверить код
Доброго времени суток. Хотел бы обратится к вам за помощью. Я написал программку, которая решает...

	29.03.2020, 15:00

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

29.03.2020, 15:00

Помогаю со студенческими работами здесь

Графики - Метод Рунге-Кутта и Метод Адамса
Вот задание:

Графики - Метод Рунге-Кутта и Метод Адамса
Пожалуйста помогите!!! очень срочно нужно сделать графики (два в одном): метод Рунге-Кутта и метод...

Метод Рунге-Кутта.
хотелось бы спросить знающих людей. Мне необходимо решить систему ДУ уравнений методом...

Метод Рунге-Кутта
Здравствуйте, пожалуйста помогите в программе Delphi решить систему обыкновенных дифференциальных...

Наверх