Форум программистов, компьютерный форум, киберфорум
Электротехника, ТОЭ
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Электротехника МКТ для цепи с индуктивно связанных элементов https://www.cyberforum.ru/ electrotechnology/ thread1375331.html
Можете проверить метод контурных токово к задачам: Для 1 картинки: J1k=J J2k(jXL2+R)-J1k*jXM=0
Автогенератор в Multisim Электротехника
Доброго времени суток! Решил создать в Multisim автогенератор с трансформаторной обратной связью (см. Изображение автогенератора). Собрал, подобрал компоненты (рассчитал по формулам), у меня возникло...
Электротехника Трехфазная цепь
Всем привет. Кто может смоделировать вот такую цепь. Вот мой вариант (EWB) Но мне кажется это неверно ибо не совпадают показания амперметров с рассчитанными значениями
Электротехника Найти токи и установить тип резонанса Кaждый из oдинaкoвых кoнтурoв двухкoнтурной связанной cиcтемы настроен на резонанс R1=R2=5 Ом, η=0,8, P2=10кВт. Найти токи I1 и I2. Установить тип резoнaнсa, ответ пояснить. Опрeдeлить во сколько раз... https://www.cyberforum.ru/ electrotechnology/ thread1374035.html
Электротехника Фaзoвый cдвиг мeждy нaпряжeниeм нa eмкocти втopoгo контypa и ЭДC нa вxoдe cиcтeмы https://www.cyberforum.ru/ electrotechnology/ thread1373940.html
Двa индyктивнo cвязaнныx кoнтypa имeют пapaмeтpы: L1=400 мкГн, L2=410 мкГн, C1=310 пФ, C2=290 пФ, R1=16 Ом, R2=14 Ом, M=36 мкГн. Иcтoчник cигнaлa c чacтoтoй 460 кГц и ЭДС E=100 В включeн в пepвый...
Электротехника Расчет параметров и резонансного сопротивления
Изoбpaзить cxeму кoнтуpa, paccчитaть eгo пapaмeтpы и peзoнaнcнoe coпpoтивлeниe, ecли извecтнo, чтo чacтoтa пapaллeльнoгo peзoнaнca 600 кГц, a чacтoтa пocлeдoвaтeльнoгo peзoнaнca 400 кГц. Дoбpoтнocть...
Формула нахождения взаимной индуктивности Электротехника
Подскажите, пожалуйста, как рассчитать взаимоиндукцию исходя из опытных данных по формуле М = (Хсогл - Хвстр) / 4\omega (1) Такая формула получена путём вычитания Хсогл от Хвстр: (\omegaL1 +...
Электротехника Лабораторная нонейм Препод задал отвечать на вопросы,по лабе. Помогите пожалуйста ответить на 3 и 5 вопросы по пятой лабе. P.S. Облазил весь интернет,поспрашивал всех знакомых,помощи не нашел :( https://www.cyberforum.ru/ electrotechnology/ thread1372301.html
Электротехника Построение АЧХ и ФЧХ https://www.cyberforum.ru/ electrotechnology/ thread1372116.html
Ребят, сил больше нет! :) Имеем следующую схему фильтра. Тип фильтра не известен. При моделировании в MultiSIM входное и выходное напряжение при любых подобранных мной частотах генератора одинаковые...
Электротехника Расчет цепи однофазного синусоидального тока Доброго времени суток, в общем необходимо выполнить расчет цепи. Застопорился в одном месте, задание и решение до проблемы прикрепляю. Где я ошибся? Заранее огромное спасибо. https://www.cyberforum.ru/ electrotechnology/ thread1371576.html
7480 / 4144 / 474
Регистрация: 25.08.2012
Сообщений: 11,527
Записей в блоге: 11
16.10.2013, 19:24  [ТС] 0

Прикладные программы по ТОЭ - Электротехника - Ответ 5191585

16.10.2013, 19:24. Показов 17806. Ответов 7
Метки (Все метки)

Ответ

_2. Расчет комплексного эквивалентного сопротивления (для тех, кому нужен только результат)
Кликните здесь для просмотра всего текста
_В основном написали программу в Excel, также как и другие, Ваши коллеги студенты.
_Конечно преподаватели помогли. Больно уж простым на словах было задание,
да реализация оказалась не тревиальной.
_Даже с "Форума VBA" помогали. За что Апострофф'у и Hugo121 - отдельное спасибо.

_Реализованы классические операции алгебры комплексных чисел.

_Для чего и почему:
_- тем кто уже разобрался и "набил руку"нужен конечный результат;
_- кому-то лень или нет времени разбираться (а зря, кстати);
_- для существенного сокращения времени;
_- практически любую схему Вы можите свести к нескольким шаблонам;
_- получение навыков программирования.

_Все просто:
_- последовательно вводите исходные импендансы при этом, при этом
внимательно следите за нумерацией Zi (особенно для шаблонов "звезда - треугольник" и "треугольник - звезда");
_- клик по картинке шаблона и...вот он результат.
_- есть возможность перенести на лист для отчета, например.
_После клика производится анализ введенных данных на предмет ошибок в написании.
_Разделитель - запятая.

_Интерфейс - проще некуда.

_
Прикладные программы по ТОЭ


_Результаты на листе.

_Название: ТОЭ1.jpg
Просмотров: 1054

Размер: 16.0 Кб

_Программа - РасчZэ.rar

_Замечания и предложения по "рихтовке" приму с благодарностью.
_Найдете "косяки" - сразу пишите здесь же. Исправим.

_С уважением OldFedor.

_2.1 Замечания и дополнения к "Расчет комплексного..."
Кликните здесь для просмотра всего текста
_- Апострофф
Кликните здесь для просмотра всего текста
Цитата Сообщение от OldFedor Посмотреть сообщение
косяки
Цитата Сообщение от OldFedor Посмотреть сообщение
Call MsgBox("В поле только цыфры! Разделитель - запятая. Поля с №№ " & n & ".x")
Улыбнуло

А по теме - не понял смысла в использовании CDec в программе

Или вот это-
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Private Sub РасчДляФорм2()
Dim re!, im!, r!
Call Очистка
If iImg = 1 Then' почему было не включить в Select Case iImg, который идет следом?
   If iForm1 = 1 Then
      If iForm2 = 1 Then re = z1.re: im = z1.im Else re = Round(Sqr(z1.re ^ 2 + z1.im ^ 2), 3): _
                              If z1.re Then im = Round(Atn(z1.im / z1.re), 3) Else im = 1.571
      lbl11 = re: lbl12 = im
   Else
      If iForm2 = 1 Then re = Round(z1.re * Cos(z1.im), 3): im = Round(z1.re * Sin(z1.im), 3) Else _
                             re = z1.re: im = z1.im
      lbl11 = re: lbl12 = im
   End If: Exit Sub
End If
Select Case iImg
Case 2: zx = Прл(z1, z2)
Case 3: zx = Прл(z1, z2): zx = Прл(zx, z3)
Case 4: zx = Прл(z2, z3): zx = CxAdd(zx, z1)
Case 5: zx = Прл(z3, z4): zx = Прл(zx, z2): zx = Псл(zx, z1)
Case 6: zx = Прл(z3, z4): zx = Псл(zx, z2): zx = Прл(zx, z1)
Case 7: zx = Прл(z4, z5): zx = Прл(zx, z3): zx = Псл(zx, z2): zx = Прл(zx, z1)
Case 8: zx = Псл(z4, z5): zx = Прл(zx, z3): zx = Псл(zx, z2): zx = Прл(zx, z1)
Case 9: zx = Псл(z4, z5): zx = Прл(zx, z3): zx = Псл(zx, z2)
             zx = Псл(zx, z6): zx = Прл(zx, z1)
Case 10: Call Звез_Треуг(z2, z4, z3, z12, z23, z31)
             zx = Прл(z23, z5): z23 = Прл(z12, z6): zx = Псл(zx, z23): zx = Прл(zx, z1)
Case 11: Call Звез_Треуг(z1, z2, z3, z12, z23, z31)
   If iForm2 = 1 Then
      lbl11 = Round(z12.re, 3): lbl12 = Round(z12.im, 3)
      lbl21 = Round(z23.re, 3): lbl22 = Round(z23.im, 3)
      lbl31 = Round(z31.re, 3): lbl32 = Round(z31.im, 3)
   Else
      lbl11 = Round(Sqr(z12.re ^ 2 + z12.im ^ 2), 3): lbl12 = Round(Atn(z12.im / z12.re))
      lbl21 = Round(Sqr(z23.re ^ 2 + z23.im ^ 2), 3): lbl22 = Round(Atn(z23.im / z23.re))
      lbl31 = Round(Sqr(z31.re ^ 2 + z31.im ^ 2), 3): lbl32 = Round(Atn(z31.im / z31.re))
   End If
Case 12: Call Треуг_Звез(z12, z23, z31, z1, z2, z3)
   If iForm2 = 1 Then
      lbl11 = Round(z1.re, 3): lbl12 = Round(z1.im, 3)
      lbl21 = Round(z2.re, 3): lbl22 = Round(z2.im, 3)
      lbl31 = Round(z3.re, 3): lbl32 = Round(z3.im, 3)
   Else
      lbl11 = Round(Sqr(z1.re ^ 2 + z1.im ^ 2), 3): lbl12 = Round(Atn(z1.im / z1.re))
      lbl21 = Round(Sqr(z2.re ^ 2 + z2.im ^ 2), 3): lbl22 = Round(Atn(z2.im / z2.re))
      lbl31 = Round(Sqr(z3.re ^ 2 + z3.im ^ 2), 3): lbl32 = Round(Atn(z3.im / z3.re))
   End If
End Select
If iImg < 11 Then
   Select Case iForm2
   Case 1: lbl11 = Round(zx.re, 3): lbl12 = Round(zx.im, 3)
   Case 2
   re = zx.re: im = zx.im
   lbl11 = Round(Sqr(re ^ 2 + im ^ 2), 3): lbl12 = Round(Atn(im / re), 3)
   End Select
End If
End Sub
А вообще - круто, особенно оформление

_2.2. Ответы на замечания.
Кликните здесь для просмотра всего текста
_- Апострофф
Кликните здесь для просмотра всего текста
Цитата Сообщение от Апострофф Посмотреть сообщение
Улыбнуло
Просмотрел - верно, правильно "цифры".
Цитата Сообщение от Апострофф Посмотреть сообщение
не понял смысла в использовании CDec в программе
Оставил написание так, как было у студиозов. Хотя по преобразованию типов у них была лекция.
И, теоретически, они должны знать что правая часть (txt, то бишь String) и так будет преобразована к левой.
Но...оставил. Это будет работа над ошибками и, конечно, избыточность будет исключена.
Цитата Сообщение от Апострофф Посмотреть сообщение
почему было не включить в Select Case iImg, который идет следом?
На первый взгляд - да. Но z1 преобразовывается всегда и если только будет одна переменная z1,
то дальнейший код пропускается, если несколько переменных - z1 уже есть и используется в выражениях.
Хотя рихтовать есть чего, согласен.

За программу отвечала кафедра математики и программирования (хотя и я принимал участие).
Моя роль - это ТОЭ.


Вернуться к обсуждению:
Прикладные программы по ТОЭ Электротехника
3
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.10.2013, 19:24

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Итерационный алгоритм. Прикладные задачи математики
Пожалуйста помогите, задача и пример программы во вложениях Язык программы как на втором...

Прикладные объекты/Регистры сведений/РегистрСведенийНаборЗаписей
Всем привет, и сразу к делу: проблема в том что код(см. ниже) отрабатывает не совсем корректно,...

Курсовая по теме Анализ интерфейса (4 ядра). Процессор прикладные устройства"
Доброго времени суток! Задали тему курсовой &quot;Анализ интерфейса (4 ядра). Процессор прикладные...

Как с помощью методов java.lang.reflect вызвать прикладные методы локального интерфейса?
Подскажите, пожалуйста, как с помощью методов java.lang.reflect вызвать прикладные методы...

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