На главную страницу
Русский English
 


Поддержка
Форум
Техподдержка
Закрытый разделПерсональная

Авторизация

Запомнить меня на этом компьютере
  Забыли свой пароль?
  Регистрация



Поиск по сайту


Подписка

Изменение параметров

Hits 66986015
4602
Hosts 3541128
712
Visitors 53213372
3203

35


Главная / Поддержка / Форумы / Макро

Форум «Макро»

Версия для печати Версия для печати

Список форумов
Новые темы
Список тем
Поиск по форумам
Помощь
Войти
Регистрация


Тема: «Макрос , Макрос для корректировки потребления » в форуме: Макро   Просмотров: 398
 
Максим Озеров
Заглянувший
 
Всего сообщений: 1
Дата регистрации: 26.06.2024
Создано: 26.06.2024 11:55:22
 
 
Подскажите пожалуйста, нужен макрос для увеличения текущего потребления на определенную величину. Пробовал изменить этот макрос не получается:
r=setlocale("en-us")
Sub CorPotr(raion,potr)
max_it=10 ' максимальное число итераций
eps=0.001 ' точность расчета
reac_p=True ' менять реактивное потребление пропорционально
Set pnode=Rastr.Tables("node"­)
pnode.SetSel("na="&raion)­
Set pn=pnode.Cols("pn")
Set qn=pnode.Cols("qn")
Rastr.printp "Район=" & raion
Rastr.printp "Задано потребление=" & potr
for i=1 to max_it
pop=Rastr.Calc("val","are­a","pop","na="&raion)
koef=potr/pop
Rastr.printp "Текущее потребление =" & pop
Rastr.printp "Отношение заданное/текущее =" & koef
if( abs(koef -1) > eps) then
pn.Calc("pn*"&koef)
if(reac_p) then qn.Calc("qn*"&koef)
kod=Rastr.rgm("")
if(kod <> 0) then
Rastr.printp "---------Аварийное завершение расчета режима----------- "
exit sub
end if
else exit sub
end if
next
end Sub
 
Профиль
Наверх
Николай Некрасов
Постоянный посетитель
 
Всего сообщений: 194
Дата регистрации: 23.04.2007
Создано: 01.07.2024 20:46:04
 
 
Здравствуйте! Т.к. нужно увеличить текущее потребление на определенную величину, то, как я понимаю, новое потребление = текущее потребление + определенная величина. А почему бы не задать новое потребление с помощью встроенных макросов: Расчеты – Выполнить – Коррекция – Задать потребление объединения/района/террит­ории?
 
Профиль
Наверх



Читают тему
гостей: 1, пользователей: 0, из них скрытых: 0


Список форумов
Новые темы
Список тем
Поиск по форумам
Помощь
Войти
Регистрация







Программный комплекс «RasrWin»
Программный комплекс «RastrWin»
© «RastrWin», 1988-2019