• Добро пожаловать на компьютерный форум Tehnari.ru. Здесь разбираемся с проблемами ПК и ноутбуков: Windows, драйверы, «железо», сборка и апгрейд, софт и безопасность. Форум работает много лет, сейчас он переехал на новый движок, но старые темы и аккаунты мы постарались сохранить максимально аккуратно.

    Форум не связан с магазинами и сервисами – мы ничего не продаём и не даём «рекламу под видом совета». Отвечают обычные участники и модераторы, которые следят за порядком и качеством подсказок.

    Если вы у нас впервые, загляните на страницу о форуме и правила – там коротко описано, как задать вопрос так, чтобы быстро получить ответ. Чтобы создавать темы и писать сообщения, сначала зарегистрируйтесь, а затем войдите под своим логином.

    Не знаете, с чего начать? Создайте тему с описанием проблемы – подскажем и при необходимости перенесём её в подходящий раздел.
    Задать вопрос Новые сообщения Как правильно спросить
    Если пришли по старой ссылке со старого Tehnari.ru – вы на нужном месте, просто продолжайте обсуждение.

Недавнее содержимое от t13ka

  1. T

    Метод пристрелки

    Метод пристрелки Условия прикрепил ниже в фотографиях. Попробовал сделать сам, но не получается выполнить условия равенства нуля. Помогите проверить правильность кода program asdasd; uses CRT; const NMAX = 100; dl = 0.001; Function g2(y1, y2, x: real): real; begin g2 := -((2*x*y2 - (x + 2)*y1...
  2. T

    Найти решение краевой задачи для обыкновенного дифференциального уравнения 2 порядка

    Но у меня все равно не получается записать в виде программы это. Не могли бы вы все таки сжалиться надо мной и помочь с кодом, а то я не справляюсь. Вы моя последняя надежда
  3. T

    Найти решение краевой задачи для обыкновенного дифференциального уравнения 2 порядка

    Я попытался. Снова залез в литературу Турчака и Мудрова. Как мне кажется необходимо взять за основу программу метода Рунге-Кутта для ОДУ 2 порядка, только при этом добавить условии на выполнение на одном из концов. Допустим в моем случае если я беру слева 0, то на правом тоже должно быть 0. Так...
  4. T

    Найти решение краевой задачи для обыкновенного дифференциального уравнения 2 порядка

    А можете помочь с модификацией метода Рунге-Кутта для нахождения решения краевой задачи для ОДУ 2 порядка?:gilot:
  5. T

    Найти решение краевой задачи для обыкновенного дифференциального уравнения 2 порядка

    Попытался сделать, но не получается. Помогите :spas: uses CRT; label Start, Quit; Const t0 = 0.0; y0 = 0.0; z0 = 0.0; h = 0.01; t_max = 1.0; Var T,Y,Z,Y1,Z1:real; i,N:integer; Function f(t,y,z:real):real; begin f := (t + 2) * y - z - cos(t); end; Function g(t,y,z:real):real; begin g...
  6. T

    Найти решение краевой задачи для обыкновенного дифференциального уравнения 2 порядка

    Найти решение краевой задачи для обыкновенного дифференциального уравнения 2 порядка Найти решение U(x) краевой задачи для обыкновенного дифференциального уравнения второго порядка (K(x)*U'(x))'-q(x)*U(x)=-f(x), 0<=x<=1, K(0)*U'(0)=b1*U(0)-t1, -K1(1)*U'(1)=b2*U'(1)=b2*U(1)-t2, Точность решения...
  7. T

    Найти решение задачи Коши для ОДУ методом Рунге-Кутта 4-го порядка

    А как можно проверить правильность работы программы? Просто у меня проблемы с аналитическим решением этого уравнения
  8. T

    Найти решение задачи Коши для ОДУ методом Рунге-Кутта 4-го порядка

    ну или немного переделанный вариант, который работает, но выдает неправильные значения Const x0 = 0; y0 = 1; z0 = 0; v0 = 0; h = 0.1; x_max = 2; Var X, Y, Z, Y1, Z1, C, C1: real; i,N:integer; Function f(x, y, z: real): real; begin f := x + x * y * y - z * z; end; Function g(x, y, z...
  9. T

    Найти решение задачи Коши для ОДУ методом Рунге-Кутта 4-го порядка

    Я понял что в отличии от y'' в которой у нас два уравнения, мое решение будут отличаться лишь добавлением еще одного уравнения. Тогда ниже приклепил свое решение на бумаге и код который я попытался переделать из вашей программы Const x0 = 0; y0 = 1; z0 = 0; v0 = 0; h = 0.1; x_max = 2; Var...
  10. T

    Нужна помощь с Паскалем

    help Помогите с решением подобного уравнения только 3-го порядка. Попытался переделать вашу, но она не получается:gilot:
  11. T

    Найти решение задачи Коши для ОДУ методом Рунге-Кутта 4-го порядка

    Найти решение задачи Коши для ОДУ методом Рунге-Кутта 4-го порядка Найти решение задачи Коши для обыкновенного дифференциального уравнения методом Рунге-Кутты 4-го порядка точности. Число разбиений n=20 y'''=x+x*y^2-(y')^2; y(0)=1; y'(0)=y''(0)=0 0<=x<= 2
Назад
Сверху