| История развития программирования, программирование, языки программирования, книги программирование | На сайте представлена информация про программирование в Интернете и работу |
|
Правильно указать путь к dll-ке По поводу игрушек на VB и DirectX Проиграть звук, На ВинАпи Прозрачный Image в PictureBox, Как нарисовать... Аpi для понижения частоты процессора, Нужна , СРОЧНО!!! Вертикальное написание слов в TextBox или в Label, Вертикальное написание слов в TextBox ил Прежде чем задать вопрос, прочтите это! Определение основного шлюза, очччччччень надо автоматическое построение БД, построить БД программно "Microsoft Visual Basic 6.0" Срочно нужна помощь по VB6, Всё сделал, да не всё работает. НУЖЕН ПРИМЕР НА VBA, Нужен пример по работе в Exel, помогите Не могу внести данные в таблицу. Накиньте инфы по MMControl'y., с чего собственно записьможнопроизводить Работа с MD5, Как работать с MD5 Построение графика в полярных координатах ThunderVB, прога для ВБ ThunderVB Документация и книги по Java, Давайте соберём ссылки Картинка в трее без OCX Как самоуничтожить программу, Как удалить файл-программу Имена элементов формы в циклах Как Вы относитесь к курящим девушкам? работа с Image, уточните! Проблема с подключением к БД, Без использования DSN Связывание двух таблиц, С помощью DataList и DataCombo необновляется DataCombo, после фильтра DataCombo необновляется Создание формы!!!, СreateWindow Перетаскивание одного или нескольких строк, Из ListBox или ComboBox Требуются программисты, способные .... десятичный разделитель в JDBC-ODBC Как создать Dll, Срочно! Как определить наличие даты в ячейке анимация без бликов, Как в ВБ делать нормалную анимацию Опять проблема с изменением цвета, Замена цвета меню. программное размещение окон на экране Как применить два фильтра в Access через ADO, команда Filter объекта Recordset Размножение PictureBox со всеми потрохами, ;)))) Калькулятор, Помогите с кодом для программы Как изменить цвет надписи на кнопке??? html activeX controls, трабл с анимированными гиффами Динамический массив объектов, Как задать? Как инициализировать DirectX (вернее его объект), И вообще посмотрите, посоветуйте Строка состояния размеры марицы A(x,y,z), программное определение массива macros for ms excel, macros for ms excel Microsoft Calendar 8.0 Создание источника данных ODBC, ПОМОГИТЕ!!! исходники программ Как узнать какие функции содержит dll-ka Label Все равно не могу зайти на форум:(((, не переносите эту тему!!! MySql + Простая програма ня java Картинка при запуске, Картинка при запуске программы Обновление через Интернет Удаление значение из ListBox'a Работа для VB программиста в Москве, ... случайно наткнулся Кто-нибудь знаком с ИНС на VB? Как сделать трейнер для игры? Как указать пароль при открытии Access, Проблема Решение задач, плачУ Вопрос !, Очередной вопрос по VB Для гуру VisualBasic escape-последовательности. Помогите с алгоритмом как вызвать сжатие Access через VB, посеветуйте что нибудь ДАЙТЕ ОПИСАНИЕ ПЛИЗ!, ДАЙТЕ ОПИСАНИЕ ПЛИЗ! Не могу зайти на форум!, извините за флейм:-| Как Вы относитесь к курящим девушкам? Помогите с Формой, Помогите ! Сборка отчета по критериям |
Платные хостинги Раскрутка сайта Книги по программированию Построение графика в полярных координатах
- Подскажите, пожалуйста, как можно реализовать построение графика в полярных координатах в элементе PICTURE, если задан массив комплексных данных A(+-a+-bi) или значения амплитуды |A| и значения угла arctg(im(A)/re(A)Спасибо. - Пускай x0, y0 - координаты центра с.к. (системы координат) графика в с.к. PictureBox'a. Тогдаx=x0+Rey=y0-Imесли график задан в комплексных координатах. x=x0+R*Cos(fi)y=y0-R*Sin(fi)если график задан в полярных координатах.Для выведения точки в PictureBox'e используется метод.PSet (x,y),colorPS. А вот использовать для получения угла arctg недостаточно, т.к. arctg(fi+pi)=arctg(fi), т.е. однозначно определить угол без анализа знаков координат не удастся. - Выполнил следующий кодКод Dim X() As Complex Dim x0 As Single, y0 As Single, R As Single, FI As Single Dim xi(1) As Single, yi(1) As Single Dim I As Long X = OpenDataToComplex("tf.dat") Me.Show On Error Resume Next With Pic x0 = .ScaleWidth / 2 y0 = .ScaleHeight / 2 For I = 1 To UBound(X) R = C.Rho(X(I)) FI = C.Arg(X(I)) xi(1) = x0 + R * Cos(FI) * 1000 yi(1) = y0 - R * Sin(FI) * 1000 Pic.PSet (xi(1), yi(1)), vbBlue Pic.Line -(xi(0), yi(0)), vbBlue xi(0) = xi(1) yi(0) = yi(1) Next I End WithhighlightSyntax('vbBlMTJj','vb');но получил беспорядочное расположение линий.Мне нужно, чтобы график был похож на годограф НайквистаЧто мне нужно изменить??? - А код OpenDataToComplex можешь показать? Заодно с кодом класса C. - почитай.. может поможет http://vingrad.ru/VB-VB-002858 - Функция OpenDataToComplex осуществляет ввод файла комплексных данных A+Bi в программуКод Public Function OpenDataToComplex(ByVal FileName As String) As VariantDim Fnum As IntegerDim iCount As Long, lLen As LongDim lString As StringDim byBuffer() As Complex iCount = 0 Fnum = FreeFile Open FileName For Input Access Read Lock Write As #Fnum Do While Not EOF(1) iCount = iCount + 1 Line Input #Fnum, lString Do While InStr("0123456789.+- ", Left$(lString, 1)) = 0 lString = Mid$(lString, 2, Len(lString) - 1) Loop ReDim Preserve byBuffer(1 To iCount) As Complex lLen = InStr(lString, ";") byBuffer(iCount).RE = CDbl(Val(Left$(lString, lLen))) byBuffer(iCount).IM = CDbl(Val(Right$(lString, Len(lString) - lLen))) Loop Close #Fnum OpenDataToComplex = byBufferEnd FunctionhighlightSyntax('vbZlODFl','vb');Класс С осуществляет работу с комплексными числами. Например, создание комплексного числа и получение модуля и аргумента функции:Код Public Type Complex Re As Double Im As DoubleEnd TypePublic Function Cmplx(ByVal Real As Double, ByVal Imag As Double) As Complex Cmplx.Re = Real Cmplx.Im = ImagEnd FunctionPublic Function Polar(ByVal Rho As Double, ByVal Arg As Double) As Complex Polar.Re = Rho * Cos(Arg) Polar.Im = Rho * Sin(Arg)End FunctionPublic Property Get Rho(ByRef X As Complex) As Double If X.Im = 0 Then Rho = Abs(X.Re) ElseIf Abs(X.Re) < Abs(X.Im) Then Rho = Abs(X.Im) * Sqr(1 + Square(X.Re / X.Im)) Else Rho = Abs(X.Re) * Sqr(1 + Square(X.Im / X.Re)) End IfEnd PropertyPublic Property Get Arg(ByRef X As Complex) As DoubleDim A As Double, piDiv2 As Double piDiv2 = 2 * Atn(1) 'pi/2 Select Case X.Re Case Is > 0 If (X.Im = 0) Then A = 0 Else A = Atn(X.Im / X.Re) End If Case 0 Select Case X.Im Case Is > 0: A = piDiv2 Case 0: A = 0 Case Is < 0: A = -piDiv2 End Select Case Is < 0 Select Case X.Im Case Is > 0: A = Atn(X.Im / X.Re) + 2 * piDiv2 Case 0: A = 2 * piDiv2 Case Is < 0: A = Atn(X.Im / X.Re) - 2 * piDiv2 End Select End Select Arg = AEnd PropertyhighlightSyntax('vbzNDI=','vb');Файл данных tf.dat предсталяет собой частотную передаточную функцию двух сигналов: отношение взаимного спектра к автоспектру входного сигнала. Мне нужно его представить в виде частотного годографа Найквиста. Как это получить?  |