Форум программистов, компьютерный форум, киберфорум
Наши страницы

Электротехника, ТОЭ

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 68, средняя оценка - 4.74
OldFedor
7444 / 4111 / 468
Регистрация: 25.08.2012
Сообщений: 11,459
Записей в блоге: 11
#1

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

26.09.2013, 11:48. Просмотров 9825. Ответов 4
Метки нет (Все метки)

Просмотрите - ниже пять (пока) программ.

_1. Решение систем уравнений по Кирхгофу (кому лень разбираться с Маткадом)
Кликните здесь для просмотра всего текста
_Написали программу в Excel Ваши коллеги студенты.
_Реализован метод Крамера и использована одна встроенная функция VBA для нахождения определителя.
Имеется пример. Недостаток - для схем без источников тока.

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

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

_Программа здесь - РешСистУрКирх.rar

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

_С уважением OldFedor.
5
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.09.2013, 11:48
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Прикладные программы по ТОЭ (Электротехника):

ТОЭ - Электротехника
При резонансе приборы показали V=200В; V1=250 B; I=10 A. Определить показание вольтметра V2-? Просьба полностью написать решение. а...

ТОЭ и годы - Электротехника
Форумчане решил помоч младшим курсам и понял что годы взяли свое ТОЭ подзабыл проверьте на правильность, а то векторная диаграмма не...

Задача по ТОЭ - Электротехника
Пытался решить задачу вообще ничего не выходит

Экзамен по ТОЭ - Электротехника
Ребят, помогите пожалуйста, надо хотя бы 2 задачи в течении полутора часа. Заранее огромное спасибо Правила форума: 4.12....

Вопросы по ТОЭ... - Электротехника
помогите с теорией :-[ много вопросов нашёл только эти остались а поисковик не чего толком не находит 1)Раскройте сущность анализа...

Задачи по ТОЭ - Электротехника
Добрый всем день, я знаю будет звучать глупо и нагло но всё равно попрошу. Есть у меня дядя (Ему за 50) и ему дали задачи по ТОЭ, я ему...

4
OldFedor
7444 / 4111 / 468
Регистрация: 25.08.2012
Сообщений: 11,459
Записей в блоге: 11
16.10.2013, 19:24  [ТС] #2
_2. Расчет комплексного эквивалентного сопротивления (для тех, кому нужен только результат)
Кликните здесь для просмотра всего текста
_В основном написали программу в Excel, также как и другие, Ваши коллеги студенты.
_Конечно преподаватели помогли. Больно уж простым на словах было задание,
да реализация оказалась не тревиальной.
_Даже с "Форума VBA" помогали. За что Апострофф'у и Hugo121 - отдельное спасибо.

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

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

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

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

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

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

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

Размер: 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
gazlan
3133 / 1909 / 285
Регистрация: 27.08.2010
Сообщений: 5,132
Записей в блоге: 1
28.10.2013, 19:44 #3
_3. Калькулятор для операций с комплексными числами (OldFedor)
Кликните здесь для просмотра всего текста
__Очередной образчик студенческого творчества.
__Назначение - выполнение основных операций алгебры комплексных числ.

__Интерфейс.

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

__Работа с калькулятором:
__1. Ввести в поле операнд и с ним сразу можно выполнить действия:
___- обратное значение - 1/Z;
___- умножение на сопряженное комплексное число Z*;
___- возвести в квадрат Z^2.
____Результат сохраняется и операции можно продолжить далее, введя новый операнд.
__2. Обычные операции (+, -, * и /)выполняются в следующей последовательности:
___- вводится первый операнд;
___- выбирается (нажимается) действие;
___- вводится второй операнд;
___- жмем на "=" и в поле истории появляется результат с исходными данными,
___при этом результат также сохраняется и его можно использовать далее.
__3. Двойной клик по форме и появится поле ввода округления.
__4. Кнопка с листами - перенос на лист Excel для отчета.
__5. В показательной форме - угол в радианах.

__Недостатки - все операции и результат пока только в алгебраической форме записи.

__Файл здесь - КалькКЧ.rar

__Буду благодарен за любые замечания.

С уважением, OldFedor


_3.1. Дискуссия, замечания и дополнения (gazlan).
Кликните здесь для просмотра всего текста
Цитата Сообщение от OldFedor Посмотреть сообщение
все операции и результат пока только в алгебраической форме записи
1. Кажется, никаких принципиальных трудностей в добавлении показательной/смешаной формы быть не должно?
2. Не логичнее поставить j перед числом?
3. Что мешает сделать обычный - однострочный - ввод (скобочки, мат.функции итп.)? Весь левый блок сразу станет необязательным.

Раскраска впечатляет :-)

Цитата Сообщение от gazlan Посмотреть сообщение
Кажется, никаких принципиальных трудностей в добавлении показательной/смешаной формы быть не должно?
Нет конечно, перед зимней сессией в контрольную неделю обновлю.
Цитата Сообщение от gazlan Посмотреть сообщение
Не логичнее поставить j перед числом?
Здесь такая особенность. Как учат. Проконсультируюсь.
Этим калькулятором студенты уже пользуются.
Цитата Сообщение от gazlan Посмотреть сообщение
Что мешает сделать обычный - однострочный - ввод (скобочки, мат.функции итп.)? Весь левый блок сразу станет необязательным.
Это только кажется, уверяю Вас.
- такое было задание
- строчный анализ выражения существенно сложнее.

Цитата Сообщение от OldFedor Посмотреть сообщение
существенно сложнее
Стандартный лексический разбор. Готовые примеры (для действительных чисел) есть во множестве. Зато, обобщив для комплексных, получите возможность записи сложных выражений.

+ не нашел, где сейчас скачать: страничка автора исчезла, а все ссылки какие-то фейковые, поэтому приложу к посту. По данным Google, последняя версия - 5.0

Цитата Сообщение от gazlan Посмотреть сообщение
Стандартный лексический разбор. Готовые примеры (для действительных чисел) есть во множестве. Зато, обобщив для комплексных, получите возможность записи сложных выражений.
Благодарствую, обязательно учту.

Попался еще один калькулятор для комплексных чисел:
SpeQ is a mathematics program where you can enter your calculations in a sheet. It's useful for making simple as well as advanced mathematical calculations, and is designed to be very easy to use. SpeQ is a small program that runs on any Windows computer.
SpeQ Mathematics
ComplexCalc 4.0.rar

Прикладные программы по ТОЭ
1
OldFedor
7444 / 4111 / 468
Регистрация: 25.08.2012
Сообщений: 11,459
Записей в блоге: 11
15.02.2015, 19:49  [ТС] #4
_4. Программа расчета трехфазных цепей (готовое решение)
Кликните здесь для просмотра всего текста
_Предлагаю Вашему вниманию еще один образчик совместного творчества студетнов
электриков и программистов "Программа расчета трехфазных цепей переменного тока".
Она выполнена в соответствии с заданием на курсовое проектирование тех и других.
_Не смотря на кажущуюся простоту, это довольно объемная работа и, главное, весьма полезная.
Удалено лишнее (всякие тензоры и гармонические расчеты, спасибо MiddleFedor'y).
Программа используется для проверки решенных задач (конечно при их большом объеме).
_Расчет ведется для "типовых" схем включения нагрузки. Есть проверка баланса мощности.

_Интерфейс.
_Опция "Дополнительно" - мощности.

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

_Особенности.
- легко делается обрыв. Надо ввести, ну, например, 1000000 Ом;
- короткое можно сделать только для схемы "звезда с нулем с Rn" обнулив сопротивление фазы;
- приличная проверка правильности ввода данных (увидите).

_Использование.
- печать - через штатные опции Excel'a;
- запуск - клик на кнопку "Start".

Надеюсь, что окажется полезной.

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

Качать тут - 3Ф.rar
1
OldFedor
7444 / 4111 / 468
Регистрация: 25.08.2012
Сообщений: 11,459
Записей в блоге: 11
16.03.2015, 18:01  [ТС] #5
_5. Построение векторных диаграмм (готовое решение)


Кликните здесь для просмотра всего текста
_Много было стенаний ТС - где бы программульку найти, что бы диаграммы строила?
Интересно, поискал и в заправду - нет! Вернее есть что-то, да все не то и делают не так.
_Но вот для ТОЭ, для замкнутого контура или участка цепи - нет.
И не то чтобы она очень нужна - построить на бумаге не сложно. Но иной раз слагаемых
столько, что весь лист исчеркан и фиг разберешься. А ну как ошибся раз - так стирать перерисовывать.
И вот результат - вытертый лист бумаги на котором "забор" из новых стрелок и следы старых.
_Решил набросать в Excel'e что нибудь попроще. Попробовал - получилось.
Программа VektorD не "крутая", но способная. Есть особенности о чем ниже.
_Оговорюсь - VektorD не панацея от всех бед, а помошник. Но если Вы не понимаете
что есть диаграмма и как она строится она Вам бесполезна.

_1. Интерфейс.

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

_Заполняемые поля - "Контур 1". Сюда Вы заносите действительную и мнимую часть каждого вектора диаграммы.
Можно, нажав "Форма записи", ввести и как mod*exp(Fi).
_Заносите последовательно так, как бы Вы в "рукопашную" строили диаграмму. Классика - каждую составляющую
падения напряжения на элементах цепи при обходе контура. Естественно, все они должны быть посчитаны.
Т.е. это одно из уравнений по второму закону Кирхгофа.
_"ЗО" и "ЗП" - кнопки установки меток для замыкающих векторов.
Например, Вам надо на диаграмме отобразить итоговый (промежуточный) вектор полного падения на R + jxL.
Клик в 5-м столбце - появится "ЗП1" (замыкащий промежуточный, 1 - начало). Клик в другом месте - "ЗП1"
(замыкащий промежуточный, 2 - конец). Очередность ЗП1,2 определяет направление вектора.
Нажмете еще раз - "ЗП34" и т.д.
_Аналогично с "ЗО" - замыкающий общий. Это или ЭДС или просто падение напряжения на участке.
_Построить - жмем и wuala, диаграмма готова. Далее Вы можете средствами Excel
добавить надписи векторов, названия и пояснительные тексты. Мне честно было лень писать для этого код.
Но поле для обозначения составляющих диаграммы есть - не ленитесь и заполняйте (колонка №2), а то потом запутаетесь.
_Крест - очистить все поля. Удаляется все.
_2. Работа.
Если вектора набросали как Бог на душу положит - диаграмма будет такая же.
Не спеша, вдумчиво заполняйте поля "Контур 1". Не пропускайте поля - это ошибка.
_Еще одна ошибка - заносить итоговый вектор ЭДС (или их суммы по контуру) как есть.
В итоге на диаграмме замкнутой ломаной Вы не получите. Перенесите ЭДС в правую часть уравнения и она или ее результат будет с минусом.
_3. Ограничения:
- контур (уравнение) - один. Если будет интерес, то модернизирую для нескольких;
- величины от единиц до сотен. Если очень маленькие - измените масштаб, например умножить
на 1000 и наоборот.
_4. Советы:
- сохраняйте результат до нажатия кнопки "Очистить". Ошиблись? Закройте без сохранения и откройте вновь;
- сделайте копию файла VektorD.
_5. Пример.
Вот так должна выглядеть диаграмма ТС из - Векторная диаграмма токов и топографическая диаграмма напряжений

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

Замечания и предложения приму с благодарностью ("косяки" не исключены).

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

Качать здесь - VektorD.zip
1
16.03.2015, 18:01
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.03.2015, 18:01
Привет! Вот еще темы с ответами:

Задача№2 по ТОЭ - Электротехника
Прошу вашей помощи форумчане :) 2. Определите показание вольтметра в схеме рис. 2. I' = 2 А, R1 = 6 Ом, X(L1) = 8 Ом, X(L2) = 18 Ом, K =...

Задачка по ТОЭ - Электротехника
Помогите пожалуйта решить задачку по ТОЭ, ничего не получается с комплесными числами =(

Карточка по ТОЭ - Электротехника
Пожалуйста помогите решить карточку по ТОЭ. Правила форума: 5.18. Запрещено размещать задания в виде картинок и других файлов с...

Задачи по ТОЭ - Электротехника
Прошу помощи с задачами по ТОЭ, из третьего снимка любые три, из первых двух все, заранее спасибо!:)


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

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

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