simblocks

电力系统的psat

#!/usr/bin/perl -w
# SIMBLOCKS looks for block descriptions
#
# SIMBLOCKS INPUTFILE
#
# Author:  Federico Milano
# Date:    09-Aug-2003
# Version: 1.0.0
#
#E-mail:    [e-mail]
#Web-site:  http://thunderbox.uwaterloo.ca/~fmilano

# -----------------------------------------------------------------------
# variable declaration
# -----------------------------------------------------------------------
$con = 0;
$spf = 0;
$opf = 0;
$break = 0;
$measures = 0;
$loads = 0;
$machs = 0;
$ultcs = 0;
$ctrls = 0;
$facts = 0;
$other = 0;
$sae = 0;
$wind = 0;

# -----------------------------------------------------------------------
# open input file
# -----------------------------------------------------------------------
open(IN,$ARGV[0]) || die "cannot open $ARGV[0]: $!\n";

# -----------------------------------------------------------------------
# scan file
# -----------------------------------------------------------------------
while (<IN>) {
    
    if (/"Connection"/) {   
	$con++;
    } elsif (/"Power Flow"/) { 
	$spf++;
    } elsif (/"OPF & CPF"/) { 
	$opf++;
    } elsif (/"Faults & Breakers"/) { 
	$break++;
    } elsif (/"Measurements"/) { 
	$measures++;
    } elsif (/"Loads"/) { 
	$loads++;
    } elsif (/"Machines"/) { 
	$machs++;
    } elsif (/"ULTC"/) { 
	$ultcs++;
    } elsif (/"Controls"/) { 
	$ctrls++;
    } elsif (/"FACTS"/) { 
	$facts++;
    } elsif (/"Sparse Dynamic Component"/) { 
	$other++;
    } elsif (/"Subtransmission Equivalent Area"/) { 
	$sae++;
    } elsif (/"Wind Turbines"/) {
	$wind++;
    }	

}

# -----------------------------------------------------------------------
# close input file
# -----------------------------------------------------------------------
close(IN) || die "cannot close $ARGV[0]: $!\n";

# -----------------------------------------------------------------------
# print output
# -----------------------------------------------------------------------
print "[$con $spf $opf $break $loads $machs $ultcs $ctrls $facts $other $sae $wind $measures]";