开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 其他行业 > 查看源码
Listmenu.m
资源名称：power.rar　[点击查看]
上传用户：eighthdate
上传日期：2014-05-24
资源大小：270k
文件大小：2k
源码类别：

其他行业

开发平台：

Matlab

Listmenu.m：源码内容
  1. % This program displays a list of 1 to 8 options for transmission line
  2. % analysis and compensation.
  3. %
  4. % Copyright (C) 1998 by H. Saadat.
  6. global resp model par1 par2 linelngt freq
  7. clc
  8.   menu2 = [
  9.   '     TRANSMISSION LINE PERFORMANCE                   '
  10.   '     ----------Analysis----------              Select'
  11.   ' To calculate sending end quantities                 '
  12.   ' for specified receiving end MW, Mvar             1  '
  13.   '                                                     '
  14.   ' To calculate receiving end quantities               '
  15.   ' for specified sending end MW, Mvar               2  '
  16.   '                                                     '
  17.   ' To calculate sending end quantities                 '
  18.   ' when load impedance is specified                 3  '
  19.   '                                                     '
  20.   ' Open-end line & inductive compensation           4  '
  21.   '                                                     '
  22.   ' Short-circuited line                             5  '
  23.   '                                                     '
  24.   ' Capacitive compensation                          6  '
  25.   '                                                     '
  26.   ' Receiving end circle diagram                     7  '
  27.   '                                                     '
  28.   ' Loadability curve and voltage profile            8  '
  29.   '                                                     '
  30.   ' To quit                                          0  '];
  32.   disp(menu2)
  34.  par2 = -1;
  35.     while par2~=1 & par2~=2 & par2~=3 & par2~=4 & par2~=5 & par2~=6 & par2~=7 & par2~=8 & par2~=0
  36.     par2 = input(' Select number of menu --> ');
  37.     if par2~=1 & par2~=2 & par2~=3 & par2~=4 & par2~=5 & par2~=6 & par2~=7 & par2~=8 & par2~=0
  38.     disp(' Enter 1 to 8 or 0 to quit'), else, end
  39.     end
  40.   if par2 == 0, lineperf, end
  41.   if par2 == 1, givensr(ABCD), listmenu, else, end
  42.   if par2 == 2, givenss(ABCD), listmenu, else, end
  43.   if par2 == 3, givenzl(ABCD), listmenu, else, end
  44.   if par2 == 4, openline(ABCD), listmenu, else, end
  45.   if par2 == 5, shcktlin(ABCD), listmenu, else, end
  46.   if par2 == 6, compmenu, listmenu, else, end
  47.   if par2 == 7, pwrcirc(ABCD), listmenu, else, end
  48.   if par2 == 8, profmenu, listmenu, else, end