Найти корни уравнения

@pupok5 · Регистрация: 23.11.2010

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

Народ, доброго всем времени суток.
Помогите пожалуйста написать/решить уравнение в qbasic`e.

Y=lnx^3+2cos-2.

Начальный по Х=1, конечный Х=5, шаг по Х=0,4

Пример как мне кажется такой:

PureBasic
1
2
3
4
5
6
rem
for x=1 to 5, step 0,4 (только вот уже эта строчка красным гореть начинает. ;( )
y=lnx^3+2cos-2
print x,y
next x
end

Заранее спасибо.

@Shkap · 24.11.2010, 12:48

PureBasic
1
2
3
4
5
cls
for x=1 to 5 step .4
y = log(x^3)+2*|!REG3XP3!>cos(-2)
print x,y
next x

Добавлено через 5 часов 13 минут
а теперь я узнал как правильно так что вот

PureBasic
1
2
3
4
5
cls
FOR x=1 TO 5 STEP .4
y = exp(1)^(x^3)+2*|!REG3XP3!>COS(-2)
PRINT x,y
NEXT x

@pupok5 · 05.12.2010, 14:39 **[ТС]**

Windows 7 x64. qbasic 64. Пишет ошибку в функции выше и не дает запустить программу. Что делать? Сдавать уже надо.(((

@кот Бегемот · 05.12.2010, 17:51

не надо ничего выдумывать

PureBasic
1
2
3
4
FOR x = 1 TO 5.1 STEP .4
y = LOG(x ^ 3) + 2 * COS(-2)
PRINT x, y
NEXT x

@pupok5 · 05.12.2010, 18:38 **[ТС]**

кот Бегемот, окей. А как график построить, не подскажите в нем же, после вычислений?

@Shkap · 06.12.2010, 07:52

Сообщение от кот Бегемот

не надо ничего выдумывать

PureBasic
1
2
3
4
FOR x = 1 TO 5.1 STEP .4
y = LOG(x ^ 3) + 2 * COS(-2)
PRINT x, y
NEXT x

ну я логорифмы плохо знаю, но мне сказали, что вторым вариантом, тоже можно так вычислить.

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

Сообщение от pupok5

А как график построить, не подскажите в нем же, после вычислений?

PureBasic
1
2
3
4
5
6
7
8
9
10
screen 12
FOR x = 1 TO 5.1 STEP .4
y = LOG(x ^ 3) + 2 * COS(-2)
PRINT x, y
 
NEXT x
FOR x = 1 TO 5.1 STEP .4
y = LOG(x ^ 3) + 2 * COS(-2)
pset (x+100, y+100)
NEXT x

правда такой график будет гдето в центре экрана (и я не знаю можно ли в координатах давать выражения а васика на компе где я сейчас сижу нет), и он будет перевернут относительно Ох (но есть какаято команда, которая как начало отсчета ставит указанные точки, я ее не помню. если знаешь вставь в 5 строку). больше ничем помочь не могу так что простите что так...

@кот Бегемот · 06.12.2010, 08:32

Ну, не знаешь - и не хрен давать глупые советы.
1. График надо строить не по 10 точкам, а по сотне, иначе вместо кривой будут 10 точек в разных местах экрана. То есть для графика в цикле шаг надо взять не 0.4, а, например, 0.04.
2. Надо провести оси и, в зависимости от того, где они пройдут, выбрать коэффициент смещения графика вниз.
3. Надо перевернуть ось Y, потому что она направлена вниз из верхнего угла экрана, то есть Y для графика будет = коэффициент смещения -Y
4. Надо будет выбрать коэффициенты растяжения графика, иначе, при малых X и Y этот график может никто не увидеть. Поэтому значения X и Y для графика надо будет умножить на этот коэффициент. В итоге команда PSET будет выглядеть так:

PureBasic
1
PSET(x*krx,ksm-y*kry),

где k- коэффициенты смещения и растяжения.
5. Если x принимает отрицательные значения, то график надо будет смещать и по оси х, то есть добавлять коэффициент смещения по х.
Остальное как в программе

@Quiet Snow · 06.12.2010, 09:33

Кстати, только что увидел что Шкап экспоненту вместо логарифма влепил...
Shkap, ты если что-то плохо знаешь всегда можешь открыть поисковик пробить там термины и тебе всё на блюдечке с каёмочкой вылезет, не спеши, я сам когда спешу косячу жутко(КБ знает

)

Кстати говоря, программа по выводу уже была(даже в полярной системе координат), если б тогда Кот тему закрепил сейчас бы глупых вопросов/советов не было))), хотя не кодеры туда бы и заходить не стали, ну это не важно.

но мне сказали, что вторым вариантом, тоже можно так вычислить.

Того, кто тебе это сказал советую больше не слушать, первый раз ты верно написал.

@kazak · 06.12.2010, 11:42

Помнится у старого qbasic, который под ДОС, был специальный оператор - выделения координатной области

PureBasic
1
WINDOW (x1,y1)-(x2,y2)

где х1,х2,у1,у2 границы этой области, тогда никаких дополнительных коэффициентов вычислять не надо.

@Quiet Snow · 06.12.2010, 13:21

kazak, все это знают какбы, это внутреннее логическое преобразование осей...

@кот Бегемот · 06.12.2010, 13:26

kazak, окно то ты сделаешь, но это ничего не изменит: оси всё равно надо переворачивать и увеличивать масштаб графика.

@Quiet Snow · 06.12.2010, 13:41

оси всё равно надо переворачивать

Если не ошибаюсь Window позволяет перевернуть оси, да и масштабирует не целочисленным способом(т.е. очень точно на FPU).

Добавлено через 2 минуты
Лично я предпочитаю способ когда экран остаётся экраном, уже привык к тому как организована видеопамять, а если оси поменяешь уже ничего нарисовать не удастся(менять оси по 100 раз не вариант). Метод КБ лучше да и модифицировать его под задачу удобнее.

@kazak · 06.12.2010, 13:46

Сообщение от >Quiet Snow<

Лично я предпочитаю способ когда экран остаётся экраном, уже привык к тому как организована видеопамять, а если оси поменяешь уже ничего нарисовать не удастся(менять оси по 100 раз не вариант). Метод КБ лучше да и модифицировать его под задачу удобнее.

Думаю это дело вкуса.

@Quiet Snow · 06.12.2010, 13:51

Думаю это дело вкуса.

Да я ничё не говорю, в хороших руках это отличный инструмент, позволяющий уменьшить код и сэкономить время. Просто когда нужна гибкость первый вариант предпочтительнее, хотя в контексте задачи принципиальной разницы нет.

@Shkap · 06.12.2010, 17:29

Сообщение от >Quiet Snow<

Того, кто тебе это сказал советую больше не слушать, первый раз ты верно написал.

я и так учителя по математике не слушаю

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@pupok5 0 / 0 / 0 Регистрация: 23.11.2010 Сообщений: 9
	05.12.2010, 14:39 [ТС]
	Windows 7 x64. qbasic 64. Пишет ошибку в функции выше и не дает запустить программу. Что делать? Сдавать уже надо.((( 0

@pupok5 0 / 0 / 0 Регистрация: 23.11.2010 Сообщений: 9
	05.12.2010, 18:38 [ТС]
	кот Бегемот, окей. А как график построить, не подскажите в нем же, после вычислений? 0

@Quiet Snow Кормпилятор 5044 / 1718 / 409 Регистрация: 25.04.2010 Сообщений: 4,827 Записей в блоге: 2
	06.12.2010, 13:21
	kazak, все это знают какбы, это внутреннее логическое преобразование осей... 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	06.12.2010, 13:26
	kazak, окно то ты сделаешь, но это ничего не изменит: оси всё равно надо переворачивать и увеличивать масштаб графика. 0

Найти корни уравнения

Решение