Сергей A
Посетитель
Всего сообщений: 9
Дата регистрации: 29.05.2021
|
Создано:
01.07.2021 15:15:06
|
Добрый день! Подскажите пожалуйста как сделать так что бы на графике поток мощности в комплексной форме ветви отображался в кВт а не в мВт? Аналогично для комплексной мощности нагрузки и генерации. Спасибо
|
Александр Александров
Администратор
Всего сообщений: 628
Дата регистрации: 31.05.2008
|
Создано:
01.07.2021 16:30:38
|
Здравствуйте!
Есть макрос
SetParam "node", "pn", "", 0
SetParam "node", "qn", "", 0
SetParam "node", "pg", "", 0
SetParam "node", "qg", "", 0
SetParam "node", "sn", "cmplx(1000*pn,1000*qn,0)", 0
SetParam "node", "sg", "cmplx(1000*pg,1000*qg,0)", 0
SetParam "vetv", "slb", "cmplx(1000*#plb*_zbg,1000*#qlb*_zbg,3)", 0
SetParam "vetv", "sle", "cmplx(1000*#ple*_zen,1000*#qle*_zen,3)", 0
SetParam "vetv", "ib", "#ib", 3
SetParam "vetv", "ie", "#ie", 3
Sub SetParam( tabl, name, formula, prec )
Set tta=Rastr.Tables(tabl)
Set cl=tta.Cols
j=cl.Find(name)
if j=-1 then
MsgBox "NotFound Col-> "+ CSTR( name )
else
Set newct=cl(j)
end if
' newct.Prop(FL_ZAG)=zag
newct.Prop(FL_FORMULA)=formula
' newct.Prop(FL_NAMEREF)=ssilka
' newct.Prop(FL_DESC)=desc
newct.Prop(FL_PREC)=prec
' newct.Prop(FL_WIDTH)=width
' newct.Prop(FL_MASH)=mash
' newct.Prop(FL_CASH)=cash
' newct.Prop(FL_UNIT)=unit
End Sub
|
Сергей A
Посетитель
Всего сообщений: 9
Дата регистрации: 29.05.2021
|
Создано:
02.07.2021 08:32:33
|
спасибо большое!
но поток в ветви перестает отображаться после пуска макроса
|
Александр Александров
Администратор
Всего сообщений: 628
Дата регистрации: 31.05.2008
|
Создано:
02.07.2021 13:19:15
|
Попробуйте скачать по ссылке.
https://disk.yandex.ru/d/U9jgzhws3YSJPg
|
Сергей A
Посетитель
Всего сообщений: 9
Дата регистрации: 29.05.2021
|
Создано:
02.07.2021 14:16:42
|
Вот теперь все работает! Благодарю!
|
