Форум программистов, компьютерный форум, киберфорум
Наши страницы
Basic
Войти
Регистрация
Восстановить пароль
 
SharFF
0 / 0 / 0
Регистрация: 30.05.2016
Сообщений: 2
1

Не получается построить график

11.12.2016, 23:41. Просмотров 368. Ответов 6
Метки нет (Все метки)

Добрый вечер! Решил программировать в Small Basic и начал с самого простого, но у меня не получается одна программа и я не могу понять почему, помогите пожалуйста.
Вот текст программы:
PureBasic
1
2
3
4
5
6
7
8
9
10
pi=3.14159
k=.25
r0=150
  For u=0 To 2*pi Step pi/10000
  r=r0*math.Sin(5*u)
  h=r0*math.Sin(5*u)*(5*u)
  x=320+r*Math.Cos(u+.2)
  y=240+k*r*math.Sin(u+.2)
  GraphicsWindow.SetPixel(x,y,"")
EndFor
То что должно получиться приложил в скрине. Заранее спасибо
0
Миниатюры
Не получается построить график  
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.12.2016, 23:41
Ответы с готовыми решениями:

Построить график функции
нужно построить график функции если известно что: y=Y(t) x=X(t) ...

Построить график функции
Народ помогите пожалуйста построить график функции z=f(y) (0<=x<=4п) y = 0.3...

построить график функции
построить график функции z=f(y) (0≤x≤4п) y=sin0.5+5sinx z=cos0.2x*5sin0.5x ...

Как построить график в Excel программно, если данные получены из MSFlexGrid VB6
Всем привет! Я сделал програмку в VB6 для расчёта трансцендентного уравнения....

Построить график
привет парни!!!! тут какое дело! нужно прогу написать в визуал бейсике или...

6
Pro_grammer
Модератор
6176 / 2259 / 443
Регистрация: 24.04.2011
Сообщений: 3,998
Записей в блоге: 10
12.12.2016, 06:43 2
Цитата Сообщение от SharFF Посмотреть сообщение
у меня не получается одна программа
Что именно не выходит? Какие ошибки?
0
Alex77755
10816 / 3374 / 569
Регистрация: 13.02.2009
Сообщений: 9,931
12.12.2016, 21:10 3
хоть в какой среде "не получается"
Не VB6 точно. Бейсик бы поправил хотя бы это
Visual Basic
1
k = 0.25
а так вполне себе рабочая программа.
Не совсемто, что на картинке, но...
0
Миниатюры
Не получается построить график  
SharFF
0 / 0 / 0
Регистрация: 30.05.2016
Сообщений: 2
12.12.2016, 21:15  [ТС] 4
Ну такой цветок у меня тоже получается, но к сожалению нужно так как на скриншоте в теме(( но все равно спасибо за старания
0
echs
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
13.12.2016, 11:12 5
SharFF
Я попробовал построить вашу функцию в QBasic'e..
Вышла другая кривая. Зато обнаружил в вашем коде
переменную h - она никак у вас не используется...
Тогда зачем она вычисляется? Ищите Ошибку в вашем
коде. Посмотрите еще раз условия задачи
0
1961uvg
0 / 0 / 0
Регистрация: 01.11.2016
Сообщений: 10
14.12.2016, 11:50 6
Укажи источник программы , тогда может разберемся !
0
The trick
Модератор
7712 / 2733 / 766
Регистрация: 22.02.2013
Сообщений: 3,853
Записей в блоге: 77
14.12.2016, 13:30 7
Формула неправильная, должно быть так:
Код
pi=3.14159
k=.75
r0=150
  For u=0 To pi Step pi/10000
  r=r0*math.Sin(5*u)
  h=math.Sin(5*u)
  x=320+r*Math.Cos(u+.2)*k
  y=240-r*math.Sin(h-.2)
  GraphicsWindow.SetPixel(x,y,"")
EndFor
1
Изображения
 
14.12.2016, 13:30
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.12.2016, 13:30

Построить график
Нужно построить график суммы,но у меня одна прямая.. Private Sub...

построить график
текстовый файл data.txt, содержащий показания трех датчиков, каждый из которых...

Построить график функции Y(x)
Представить график функции Y(x). При этом x изменяется от 0 до 2π Y(x)=sin2x


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

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

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