Войти
NeoBooker.ru
Добро пожаловать к нам в гости!
Наш сайт посвящён программе NeoBook, с помощью которой вы легко сможете создавать собственные мультимедиа-приложения без необходимости изучать сложные языки программирования! Зарегистрируйтесь, чтобы стать членом нашего сообщества.
Страница 1 из 11
Модератор форума: Peter, DEMBEL, YURIY 
Форум NeoBook » Всё о программе NeoBook » Общие вопросы по NeoBook » Ломанная линия (Как создать ломанные и кривые линии на графике)
Ломанная линия
RV6ANQДата: Ср, 26 Декабря 2012, 18:24 | Сообщение # 1
Новичок
Всем привет и всех с Наступающим Новым годом! Заморочка следующая, необходимо сделать графики с кривыми линиями. Имеется стандартная сетка оси X и Y (например), при определенном заданном параметре на клетках должны отобразиться несколько кривых. Может кто видел, как в справочниках номограммы параметров радиоэлементов и прочее. Уж как голову не ломал, ничего не дотумкал... или голова уже поломатая в конец %) . Так что help !

Радиолюбитель, незнающий телеграфа, - радиоинвалид...
 
СообщениеВсем привет и всех с Наступающим Новым годом! Заморочка следующая, необходимо сделать графики с кривыми линиями. Имеется стандартная сетка оси X и Y (например), при определенном заданном параметре на клетках должны отобразиться несколько кривых. Может кто видел, как в справочниках номограммы параметров радиоэлементов и прочее. Уж как голову не ломал, ничего не дотумкал... или голова уже поломатая в конец %) . Так что help !

Автор - RV6ANQ
Дата добавления - 26 Декабря 2012 в 18:24
mishemДата: Чт, 27 Декабря 2012, 03:04 | Сообщение # 2
Эксперт форума
http://neobooker.ru/forum/37-2989-1#63432

Не хочешь читать хелп?

Если хелп и форум не помогли, тогда все ответы здесь



Если вы думаете, что сможете — вы сможете, если думаете, что нет — вы правы.
 
Сообщениеhttp://neobooker.ru/forum/37-2989-1#63432

Автор - mishem
Дата добавления - 27 Декабря 2012 в 03:04
RV6ANQДата: Чт, 27 Декабря 2012, 21:06 | Сообщение # 3
Новичок
Спасибо за подсказку, но это немного не то... для построения ломанного графика - просто прелесть, но как сделать огибающую кривую? плавную? крутил я эти плагины, но не добился нужного. Покручу еще, может не все обнаружил... еще раз, спасибо!

Радиолюбитель, незнающий телеграфа, - радиоинвалид...
 
СообщениеСпасибо за подсказку, но это немного не то... для построения ломанного графика - просто прелесть, но как сделать огибающую кривую? плавную? крутил я эти плагины, но не добился нужного. Покручу еще, может не все обнаружил... еще раз, спасибо!

Автор - RV6ANQ
Дата добавления - 27 Декабря 2012 в 21:06
mishemДата: Пн, 31 Декабря 2012, 17:19 | Сообщение # 4
Эксперт форума
Цитата (RV6ANQ)
но как сделать огибающую кривую? плавную?

Ну я думаю нужно почаще координаты указать и будет плавная кривая.
А hpwImage не смотрели?
Что то мне подсказывает что это то что нужно. ;)

Цитата (RV6ANQ)
но как сделать огибающую кривую? плавную?


Попробовал с плагином hpwImage

Создайте объект Rectangle1
а в кнопку киньте этот код

Код
hpwImageCreate "Rectangle1" "" "" "" "" "" "" ""

SetVar "[x]" "10"
SetVar "[y]" "50"
SetVar "[L]" "1"
SetVar "[C]" "250"
.1линия
Loop "1" "5" "[i]"
     hpwImagePixels "Rectangle1" "[x]" "[y]" "[C],[C],[C]"
     SetVar "[x]" "[x]+1"
     SetVar "[C]" "[c]-50"
EndLoop
Loop "1" "5" "[i]"
     hpwImagePixels "Rectangle1" "[x]" "[y]" "[C],[C],[C]"
     SetVar "[x]" "[x]+1"
     SetVar "[C]" "[c]+40"
EndLoop
.2 линия
SetVar "[x]" "[x]-7"
SetVar "[y]" "[y]+1"
SetVar "[C]" "250"
Loop "1" "5" "[i]"
     hpwImagePixels "Rectangle1" "[x]" "[y]" "[C],[C],[C]"
     SetVar "[x]" "[x]+1"
     SetVar "[C]" "[c]-50"
EndLoop
Loop "1" "5" "[i]"
     hpwImagePixels "Rectangle1" "[x]" "[y]" "[C],[C],[C]"
     SetVar "[x]" "[x]+1"
EndLoop
Loop "1" "5" "[i]"
     hpwImagePixels "Rectangle1" "[x]" "[y]" "[C],[C],[C]"
     SetVar "[x]" "[x]+1"
     SetVar "[C]" "[c]+40"
EndLoop
.3 линия
SetVar "[x]" "[x]-12"
SetVar "[y]" "[y]+1"
SetVar "[C]" "250"
Loop "1" "4" "[i]"
     hpwImagePixels "Rectangle1" "[x]" "[y]" "[C],[C],[C]"
     SetVar "[x]" "[x]+1"
     SetVar "[C]" "[c]-30"
EndLoop
Loop "1" "4" "[i]"
     hpwImagePixels "Rectangle1" "[x]" "[y]" "[C],[C],[C]"
     SetVar "[x]" "[x]+1"
     SetVar "[C]" "[c]+20"
EndLoop
.4 линия
SetVar "[x]" "[x]-3"
SetVar "[y]" "[y]-2"
SetVar "[C]" "250"
Loop "1" "5" "[i]"
     hpwImagePixels "Rectangle1" "[x]" "[y]" "[C],[C],[C]"
     SetVar "[x]" "[x]+1"
     SetVar "[C]" "[c]-50"
EndLoop
Loop "1" "5" "[i]"
     hpwImagePixels "Rectangle1" "[x]" "[y]" "[C],[C],[C]"
     SetVar "[x]" "[x]+1"
     SetVar "[C]" "[c]+40"
EndLoop
.5 линия
SetVar "[x]" "[x]-7"
SetVar "[y]" "[y]-1"
SetVar "[C]" "250"
Loop "1" "5" "[i]"
     hpwImagePixels "Rectangle1" "[x]" "[y]" "[C],[C],[C]"
     SetVar "[x]" "[x]+1"
     SetVar "[C]" "[c]-50"
EndLoop
Loop "1" "5" "[i]"
     hpwImagePixels "Rectangle1" "[x]" "[y]" "[C],[C],[C]"
     SetVar "[x]" "[x]+1"
EndLoop
Loop "1" "5" "[i]"
     hpwImagePixels "Rectangle1" "[x]" "[y]" "[C],[C],[C]"
     SetVar "[x]" "[x]+1"
     SetVar "[C]" "[c]+40"
EndLoop
.6 линия
SetVar "[x]" "[x]-12"
SetVar "[y]" "[y]-1"
SetVar "[C]" "250"
Loop "1" "4" "[i]"
     hpwImagePixels "Rectangle1" "[x]" "[y]" "[C],[C],[C]"
     SetVar "[x]" "[x]+1"
     SetVar "[C]" "[c]-30"
EndLoop
Loop "1" "4" "[i]"
     hpwImagePixels "Rectangle1" "[x]" "[y]" "[C],[C],[C]"
     SetVar "[x]" "[x]+1"
     SetVar "[C]" "[c]+20"
EndLoop
SetVar "[y]" "[y]+2"
SetVar "[L]" "[L]+1"
If "[L]" "<>" "20"
    GotoLine "6"
EndIf

Не идеально конечно, но чего то добиться можно.
Скорей всего конечно надо другой выход искать.
Хотя я не знаю конечного вашего желания.

Код можно укоротить, но мне не охота . :)

Добавлено (31 Декабря 2012, 17:19)
---------------------------------------------
Случайно наткнулся.

Не знаю поможет ли?


Не хочешь читать хелп?

Если хелп и форум не помогли, тогда все ответы здесь



Если вы думаете, что сможете — вы сможете, если думаете, что нет — вы правы.


Сообщение отредактировано
mishem - Пт, 28 Декабря 2012, 03:41
 
Сообщение
Цитата (RV6ANQ)
но как сделать огибающую кривую? плавную?

Ну я думаю нужно почаще координаты указать и будет плавная кривая.
А hpwImage не смотрели?
Что то мне подсказывает что это то что нужно. ;)

Цитата (RV6ANQ)
но как сделать огибающую кривую? плавную?


Попробовал с плагином hpwImage

Создайте объект Rectangle1
а в кнопку киньте этот код

Код
hpwImageCreate "Rectangle1" "" "" "" "" "" "" ""

SetVar "[x]" "10"
SetVar "[y]" "50"
SetVar "[L]" "1"
SetVar "[C]" "250"
.1линия
Loop "1" "5" "[i]"
     hpwImagePixels "Rectangle1" "[x]" "[y]" "[C],[C],[C]"
     SetVar "[x]" "[x]+1"
     SetVar "[C]" "[c]-50"
EndLoop
Loop "1" "5" "[i]"
     hpwImagePixels "Rectangle1" "[x]" "[y]" "[C],[C],[C]"
     SetVar "[x]" "[x]+1"
     SetVar "[C]" "[c]+40"
EndLoop
.2 линия
SetVar "[x]" "[x]-7"
SetVar "[y]" "[y]+1"
SetVar "[C]" "250"
Loop "1" "5" "[i]"
     hpwImagePixels "Rectangle1" "[x]" "[y]" "[C],[C],[C]"
     SetVar "[x]" "[x]+1"
     SetVar "[C]" "[c]-50"
EndLoop
Loop "1" "5" "[i]"
     hpwImagePixels "Rectangle1" "[x]" "[y]" "[C],[C],[C]"
     SetVar "[x]" "[x]+1"
EndLoop
Loop "1" "5" "[i]"
     hpwImagePixels "Rectangle1" "[x]" "[y]" "[C],[C],[C]"
     SetVar "[x]" "[x]+1"
     SetVar "[C]" "[c]+40"
EndLoop
.3 линия
SetVar "[x]" "[x]-12"
SetVar "[y]" "[y]+1"
SetVar "[C]" "250"
Loop "1" "4" "[i]"
     hpwImagePixels "Rectangle1" "[x]" "[y]" "[C],[C],[C]"
     SetVar "[x]" "[x]+1"
     SetVar "[C]" "[c]-30"
EndLoop
Loop "1" "4" "[i]"
     hpwImagePixels "Rectangle1" "[x]" "[y]" "[C],[C],[C]"
     SetVar "[x]" "[x]+1"
     SetVar "[C]" "[c]+20"
EndLoop
.4 линия
SetVar "[x]" "[x]-3"
SetVar "[y]" "[y]-2"
SetVar "[C]" "250"
Loop "1" "5" "[i]"
     hpwImagePixels "Rectangle1" "[x]" "[y]" "[C],[C],[C]"
     SetVar "[x]" "[x]+1"
     SetVar "[C]" "[c]-50"
EndLoop
Loop "1" "5" "[i]"
     hpwImagePixels "Rectangle1" "[x]" "[y]" "[C],[C],[C]"
     SetVar "[x]" "[x]+1"
     SetVar "[C]" "[c]+40"
EndLoop
.5 линия
SetVar "[x]" "[x]-7"
SetVar "[y]" "[y]-1"
SetVar "[C]" "250"
Loop "1" "5" "[i]"
     hpwImagePixels "Rectangle1" "[x]" "[y]" "[C],[C],[C]"
     SetVar "[x]" "[x]+1"
     SetVar "[C]" "[c]-50"
EndLoop
Loop "1" "5" "[i]"
     hpwImagePixels "Rectangle1" "[x]" "[y]" "[C],[C],[C]"
     SetVar "[x]" "[x]+1"
EndLoop
Loop "1" "5" "[i]"
     hpwImagePixels "Rectangle1" "[x]" "[y]" "[C],[C],[C]"
     SetVar "[x]" "[x]+1"
     SetVar "[C]" "[c]+40"
EndLoop
.6 линия
SetVar "[x]" "[x]-12"
SetVar "[y]" "[y]-1"
SetVar "[C]" "250"
Loop "1" "4" "[i]"
     hpwImagePixels "Rectangle1" "[x]" "[y]" "[C],[C],[C]"
     SetVar "[x]" "[x]+1"
     SetVar "[C]" "[c]-30"
EndLoop
Loop "1" "4" "[i]"
     hpwImagePixels "Rectangle1" "[x]" "[y]" "[C],[C],[C]"
     SetVar "[x]" "[x]+1"
     SetVar "[C]" "[c]+20"
EndLoop
SetVar "[y]" "[y]+2"
SetVar "[L]" "[L]+1"
If "[L]" "<>" "20"
    GotoLine "6"
EndIf

Не идеально конечно, но чего то добиться можно.
Скорей всего конечно надо другой выход искать.
Хотя я не знаю конечного вашего желания.

Код можно укоротить, но мне не охота . :)

Добавлено (31 Декабря 2012, 17:19)
---------------------------------------------
Случайно наткнулся.

Не знаю поможет ли?


Автор - mishem
Дата добавления - 31 Декабря 2012 в 17:19
RV6ANQДата: Пн, 31 Декабря 2012, 18:32 | Сообщение # 5
Новичок
Большое спасибо mishem! Еще раз с наступающим! Со вторым предложением еще не ознакомился, а вот с первым будет проблема. Слишком большой код. В справочнике больше сотни графиков - газета НИЧЕГО СЕБЕ получится! В принципе скорее всего придется использовать простую графику. Просто задумка была в том, чтобы использовать одну общую сетку а данные линий появлялись при выборе определенного электронного прибора или детали. Сейчас время не подходящее для головоломки. Голова к другому готовится - к затяжному празднику Нового года. Еще раз спасибо. Удачи, успехов и до новых идей в новом году!

Радиолюбитель, незнающий телеграфа, - радиоинвалид...
 
СообщениеБольшое спасибо mishem! Еще раз с наступающим! Со вторым предложением еще не ознакомился, а вот с первым будет проблема. Слишком большой код. В справочнике больше сотни графиков - газета НИЧЕГО СЕБЕ получится! В принципе скорее всего придется использовать простую графику. Просто задумка была в том, чтобы использовать одну общую сетку а данные линий появлялись при выборе определенного электронного прибора или детали. Сейчас время не подходящее для головоломки. Голова к другому готовится - к затяжному празднику Нового года. Еще раз спасибо. Удачи, успехов и до новых идей в новом году!

Автор - RV6ANQ
Дата добавления - 31 Декабря 2012 в 18:32
Форум NeoBook » Всё о программе NeoBook » Общие вопросы по NeoBook » Ломанная линия (Как создать ломанные и кривые линии на графике)
Страница 1 из 11
Поиск: