#!/usr/bin/perl ############################################ # select.cgi # Emission Control - Filter Selection Guide # Dale Burmester March 25th,2001 # updated Jan 27, 2003 ############################################ &parse_form; &return_html; sub parse_form { # filter type is after the ? passed from .html $filter = "$ENV{QUERY_STRING}"; # Get the input read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); # Split the name-value pairs @pairs = split(/&/, $buffer); foreach $pair (@pairs){ ($name, $value) = split(/=/, $pair); $name =~ tr/+/ /; $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; # If they try to include server side includes, erase them, so they # arent a security risk if the html gets returned. Another # security hole plugged up. $value =~ s///g; # Create two associative arrays here. One is a configuration array # which includes all fields that this form recognizes. The other # is for fields which the form does not recognize and will report # back to the user in the html return page and the e-mail message. # Also determine required fields. if ($name eq 'recipient' || $name eq 'coordinates' || $name eq 'coordinates.x' || $name eq 'coordinates.y' || $name eq 'open.x' || $name eq 'open.y' || $name eq 'filter' || $name eq '1filter' || $name eq 'dw' || $name eq '1dw' || $name eq 'phase' || $name eq 'mounting' || $name eq 'standards' || $name eq '1mounting' || $name eq 'B1' || $name eq 'type' || $name eq 'feed' || $name eq 'current' || $name eq 'voltage' || $name eq 'fuses' || $name eq 'switch' || $name eq 'vselect' || $name eq 'connections' || $name eq 'terminations' || $name eq 'class' || $name eq 'mounting' || $name eq 'subject' || $name eq 'email' || $name eq 'realname' || $name eq 'redirect' || $name eq 'bgcolor' || $name eq 'background' || $name eq 'link_color' || $name eq 'vlink_color' || $name eq 'text_color' || $name eq 'title' || $name eq 'return_link_title' || $name eq 'return_link_url') { $CONFIG{$name} = $value; } elsif ($name eq 'required') { @required = split(/,/,$value); } elsif ($name eq 'env_report') { @env_report = split(/,/,$value); } else { if ($FORM{$name}) { $FORM{$name} = "$FORM{$name}, $value"; } else { $FORM{$name} = $value; } } } } ####################### sub return_html { print "Content-type: text/html\n\n"; print "\n \n"; print " emission control, ltd - Filter Selection Guide
emission control, ltd.
Filter Selection Guide

 
Emission Control

Powerline Filter Products
Single Phase Filters
Three Phase Filters
Feed Through Filters


Filter Selection Guides
Single Phase
Three Phase
Feed Through
Printed Circuit Board


Frequently Asked Questions

RoHS Compliance

Tech Notes

Conducted EMI Testing

Contact Us

print "
"; ############################# # if filter type is passed on the command line, then make sure it gets put into the form # Also, if the filter type is passed on the command line, then this is the first time if ( ($filter eq "Single_Phase") || ($filter eq "Three_Phase") || ($filter eq "Feed_Through") || ($filter eq "Printed_Circuit") || ($filter eq "Power_Entry") ) { $CONFIG{'filter'} = $filter; } # else, this is not the first time and we need to display results now else { &display_results; } ######################## # Enter menu of choices print "
"; if ($CONFIG{'filter'} eq 'Single_Phase') { print " "; } if ($CONFIG{'filter'} eq 'Three_Phase') { print " "; } if ($CONFIG{'filter'} eq 'Feed_Through') { print " "; } if ($CONFIG{'filter'} eq 'Printed_Circuit') { print " "; } if ($CONFIG{'filter'} eq 'Power_Entry') { print " "; } print "
You are now in the $CONFIG{'filter'} filter selection guide. Please select your preferences and then hit the \"Find a Filter / Submit\" button to find the filter that closest matches your needs.

"; # # Feed Through filters are all based on current and voltage only # < 16,25,40,100,200,300 for <= 250 V # < 40,100,200,300 for <=440 V if ($CONFIG{'filter'} eq 'Feed_Through') { print ""; print "
Voltage Rating "; print " 250 VAC "; print " 440 VAC
Current Rating "; print " 16 Amps "; print " 25 Amps "; print " 40 Amps
"; print " 100 Amps "; print " 200 Amps "; print " 300 Amps "; print "
Capacitor Class "; print " X2 "; print " Y "; print "
Mounting "; print " Lock-nut (metric nut M32) "; print " Flange-mounting "; print "
"; } # Single Phase / Chasis Mount if ($CONFIG{'filter'} eq 'Single_Phase') { print ""; print " "; print "
"; print " "; print ""; print "
Current Rating "; print " 1 Amp "; print " 3 Amps "; print " 5 Amps "; print " 6 Amps "; print "
10 Amps "; print " 16 Amps "; print " 20 Amps "; print " 30 Amps"; print "
40 Amps "; print " 50 Amps "; print "
"; print "
"; print " "; print "
Type
High Current "; print "Designed for high current motor drives
Very effective for high current loads"; print "
High Performance "; print "Two stage filters for exterme noise problems
High attenuation at low frequencies
Effective in meeting Class B FCC part 15 and EN 55022 standards
Designed to quiet noise from switch-mode power supplies"; print "
General Purpose "; print "Provides adequate attenuation to meet Class A FCC part 15 and EN 55022 standards
Economical solution for incoming and outgoing emissions
Designed for motor control, office machines and other equipment"; print "
"; print "
"; print "
Terminations "; print " Studs "; print " Quick Connects "; print " Wire Leads "; print "
"; print "
"; } # end of single phase selections # if three phase - select delta or wye if ($CONFIG{'filter'} eq 'Three_Phase') { print ""; print "
"; print " "; print "
Configuration "; print " Delta (250 VAC) "; print " Delta (480 VAC) "; print "
Delta (600 VAC) "; print " Wye (433 VAC) "; print "
"; print "
"; print " "; print ""; print ""; print "
Current Rating "; print " 10 Amps "; print " 20 Amps "; print " 30 Amps"; print "
40 Amps "; print " 60 Amps "; print " 75 Amps "; print "
100 Amps "; print " 150 Amps "; print " 200 Amps "; print "
300 Amps "; print "
"; print "
"; print "
Standards "; print " FCC Class A and Class B"; print " European EN 50081"; print "
"; print "
"; } # end of three phase selections # if printed circuit if ($CONFIG{'filter'} eq 'Printed_Circuit') { print ""; print "
"; print "
Current "; print " 1 Amp "; print " 3 Amps "; print " 4 Amps"; print " 6 Amps"; print "
"; print "
"; print "
Connections "; print " Printed Circuit Pins"; print " Quick Connects "; print "
"; print "
"; } # end of printed circuit # if power entry if ($CONFIG{'filter'} eq 'Power_Entry') { print ""; print "
"; print "
Current "; print " 1 Amp "; print " 3 Amps "; print " 4 Amps"; print " 6 Amps"; print "
"; print "
"; print "
Mounting "; print " Flange "; print " Snap In "; print "
"; print "
"; print "
Fuses "; print " U.S. Fuse "; print " Metric Fuses "; print " No Fuses "; print "
"; print "
"; print "
On/Off bipolar rocker switch "; print " Yes "; print " No "; print "
"; print "
"; print "
Voltage selector switch "; print " Yes "; print " No "; print "
"; print "
"; } # end of power entry # Submit Button and put the finishing touches on the page print "



"; print "
"; } ################################################################################################################# ################################################################################################################# sub display_results { ## $class = $CONFIG{'class'}; $c = $CONFIG{'current'}; $type = $CONFIG{'type'}; $term = $CONFIG{'terminations'}; $dw = $CONFIG{'dw'}; $s = $CONFIG{'standards'}; $conn = $CONFIG{'connections'}; $fuses = $CONFIG{'fuses'}; $switch = $CONFIG{'switch'}; $m = $CONFIG{'mounting'}; $v = $CONFIG{'vselect'}; $ir = 0; $repeat[0] = ""; ###################################################################################################################### # define relationships between filters, notes/definitions and also links to data sheets %map = ( M10 => "Single-Phase filter, standard mounting, Stud connections.", "M10/B" => "Single-Phase filter, bulkhead mounting, Stud connections.", M20 => "Single-Phase filter, standard mounting, Stud connections.", "M20/B" => "Single-Phase filter, bulkhead mounting, Stud connections.", M30 => "Single-Phase filter, standard mounting, Stud connections.", "M30/B" => "Single-Phase filter, bulkhead mounting, Stud connections.", M40 => "Single-Phase filter, standard mounting, Stud connections.", "M40/B" => "Single-Phase filter, bulkhead mounting, Stud connections.", "M50/B" => "Single-Phase filter, bulkhead mounting, Stud connections.", P3Q => "High performance, two stage very high attentuation filter. Excellent noise control from 10kHz to 1 MHz. Quick-connect connections.", S3Q => "Two-stage, high performance, very high attentuation filter. Noise control down to 10 kHz. Optimized for differential-mode noise. Quick-connect connections.", P3W => "High performance, two stage very high attentuation filter. Excellent noise control from 10kHz to 1 Mhz. Wire Leads.", S3W => "Two-stage, high performance, very high attentuation filter. Noise control down to 10 kHz. Optimized for differential-mode noise. Wire Leads.", P6Q => "High performance, two stage very high attentuation filter. Excellent noise control from 10kHz to 1 MHz. Quick-connect connections.", S6Q => "Two-stage, high performance, very high attentuation filter. Noise control down to 10 kHz. Optimized for differential-mode noise. Quick-connect connections.", W6Q => "Two-stage, High performance, high attentuation filter. Superior noise control from 10kHz to 30 MHz. Quick-connect connections.", P6W => "High performance, two stage very high attentuation filter. Excellent noise control from 10kHz to 1 Mhz. Wire Leads.", S6W => "Two-stage, high performance, very high attentuation filter. Noise control down to 10 kHz. Optimized for differential-mode noise. Wire Leads.", P10Q => "High performance, two stage very high attentuation filter. Excellent noise control from 10kHz to 1 MHz. Quick-connect connections.", S10Q => "Two-stage, high performance, very high attentuation filter. Noise control down to 10 kHz. Optimized for differential-mode noise. Quick-connect connections.", W10Q => "Two-stage, High performance, high attentuation filter. Superior noise control from 10kHz to 30 MHz. Quick-connect connections.", P10W => "High performance, two stage very high attentuation filter. Excellent noise control from 10kHz to 1 Mhz. Wire Leads.", S10W => "Two-stage, high performance, very high attentuation filter. Noise control down to 10 kHz. Optimized for differential-mode noise. Wire Leads.", W16Q => "Two-stage, High performance, high attentuation filter. Superior noise control from 10kHz to 30 MHz. Quick-connect connections.", B10S => "General purpose, minimum attenuation filter. Stud Connections", K10S => "General purpose, medium attentuation filter. Good for differential-mode noise from 1 MHz to 30 MHz. Stud Connections", R10S => "Two-stage, general performance, high attentuation filter. Great for common-mode noise from 1 MHz to 30 Mhz. Stud Connections", K1W => "General purpose, medium attentuation filter. Good for differential-mode noise from 1 MHz to 30 MHz. Wire Leads", B1Q => "General purpose, minimum attenuation filter. Quick Connect Terminals", K1Q => "General purpose, medium attentuation filter. Good for differential-mode noise from 1 MHz to 30 MHz. Quick Connect Terminals", R3Q => "Two-stage, general performance, high attentuation filter. Great for common-mode noise from 1 MHz to 30 Mhz. Quick Connect Terminals", K3W => "General purpose, medium attentuation filter. Good for differential-mode noise from 1 MHz to 30 MHz. Wire Leads", R3W => "Two-stage, general performance, high attentuation filter. Great for common-mode noise from 1 MHz to 30 Mhz. Wire Leads", B3Q => "General purpose, minimum attenuation filter. Quick Connect Terminals", K3Q => "General purpose, medium attentuation filter. Good for differential-mode noise from 1 MHz to 30 MHz. Quick Connect Terminals", K5W => "General purpose, medium attentuation filter. Good for differential-mode noise from 1 MHz to 30 MHz. Wire Leads", R5W => "Two-stage, general performance, high attentuation filter. Great for common-mode noise from 1 MHz to 30 Mhz. Wire Leads", B5Q => "General purpose, minimum attenuation filter. Quick Connect Terminals", K5Q => "General purpose, medium attentuation filter. Good for differential-mode noise from 1 MHz to 30 MHz. Quick Connect Terminals", R5Q => "Two-stage, general performance, high attentuation filter. Great for common-mode noise from 1 MHz to 30 Mhz. Quick Connect Terminals", B10W => "General purpose, minimum attenuation filter. Wire Leads", K10W => "General purpose, medium attentuation filter. Good for differential-mode noise from 1 MHz to 30 MHz. Wire Leads", R10W => "Two-stage, general performance, high attentuation filter. Great for common-mode noise from 1 MHz to 30 Mhz. Wire Leads", B10Q => "General purpose, minimum attenuation filter. Quick Connect Terminals", K10Q => "General purpose, medium attentuation filter. Good for differential-mode noise from 1 MHz to 30 MHz. Quick Connect Terminals", R10Q => "Two-stage, general performance, high attentuation filter. Great for common-mode noise from 1 MHz to 30 Mhz. Quick Connect Terminals", B20S => "General purpose, minimum attenuation filter. Stud Connections", K20S => "General purpose, medium attentuation filter. Good for differential-mode noise from 1 MHz to 30 MHz. Stud Connections", R20S => "Two-stage, general performance, high attentuation filter. Great for common-mode noise from 1 MHz to 30 Mhz. Stud Connections", B20W => "General purpose, minimum attenuation filter. Wire Leads", K20W => "General purpose, medium attentuation filter. Good for differential-mode noise from 1 MHz to 30 MHz. Wire Leads", R20W => "Two-stage, general performance, high attentuation filter. Great for common-mode noise from 1 MHz to 30 Mhz. Wire Leads", B20Q => "General purpose, minimum attenuation filter. Quick Connect Terminals", K20Q => "General purpose, medium attentuation filter. Good for differential-mode noise from 1 MHz to 30 MHz. Quick Connect Terminals", R20Q => "Two-stage, general performance, high attentuation filter. Great for common-mode noise from 1 MHz to 30 Mhz. Quick Connect Terminals", B30S => "General purpose, minimum attenuation filter. Stud Connections", K30S => "General purpose, medium attentuation filter. Good for differential-mode noise from 1 MHz to 30 MHz. Stud Connections", DL10 =>"Delta Three Phase, L-Section, 1 Stage-filter.", DT10 =>"Delta Three Phase, T-Section, 2 Stage-filter", DL20 =>"Delta Three Phase, L-Section, 1 Stage-filter.", DT20 =>"Delta Three Phase, T-Section, 2 Stage-filter", DL30 =>"Delta Three Phase, L-Section, 1 Stage-filter.", DT30 =>"Delta Three Phase, T-Section, 2 Stage-filter", DL40 =>"Delta Three Phase, L-Section, 1 Stage-filter.", DT40 =>"Delta Three Phase, T-Section, 2 Stage-filter", DL60 =>"Delta Three Phase, L-Section, 1 Stage-filter.", DT60 =>"Delta Three Phase, T-Section, 2 Stage-filter", FL100 =>"Delta Three Phase, L-Section, 1 Stage-filter", FL150 =>"Delta Three Phase, L-Section, 1 Stage-filter", FL200 =>"Delta Three Phase, L-Section, 1 Stage-filter", FL300 =>"Delta Three Phase, L-Section, 1 Stage-filter", HL75 =>"Delta Three Phase, L-Section, 1 Stage-filter.", HL10 =>"Delta Three Phase, L-Section, 1 Stage-filter.", HT10 =>"Delta Three Phase, T-Section, 2 Stage-filter", HL20 =>"Delta Three Phase, L-Section, 1 Stage-filter.", HT20 =>"Delta Three Phase, T-Section, 2 Stage-filter", HL30 =>"Delta Three Phase, L-Section, 1 Stage-filter.", HT30 =>"Delta Three Phase, T-Section, 2 Stage-filter", HL40 =>"Delta Three Phase, L-Section, 1 Stage-filter.", HT40 =>"Delta Three Phase, T-Section, 2 Stage-filter", HL60 =>"Delta Three Phase, L-Section, 1 Stage-filter.", HT60 =>"Delta Three Phase, T-Section, 2 Stage-filter", HL75 =>"Delta Three Phase, L-Section, 1 Stage-filter.", YL20 =>"Three Phase, Wye Configuration, L-Section, 1 Stage-filter.", YT20 =>"Three Phase, Wye Configuration, T-Section, 2 Stage-filter", YL30 =>"Three Phase, Wye Configuration, L-Section, 1 Stage-filter.", YT30 =>"Three Phase, Wye Configuration, T-Section, 2 Stage-filter", YL40 =>"Three Phase, Wye Configuration, L-Section, 1 Stage-filter.", YT40 =>"Three Phase, Wye Configuration, T-Section, 2 Stage-filter", YL60 =>"Three Phase, Wye Configuration, L-Section, 1 Stage-filter.", YT60 =>"Three Phase, Wye Configuration, T-Section, 2 Stage-filter", L1P =>"Printed Circuit Pins. Most compact, directly mountable PCB filter. Suitable for use with digital equipments, low power SMPS, and consumer electronics.", LL1P =>"Printed Circuit Pins. Economical, Compact, high performance, directly mountable PCB filter. Typical applications include industrial measuring equipment, consumer electronics and low power SMPS", LL1Q =>"Quick Connects. Economical, Compact, high performance, directly mountable PCB filter. Typical applications include industrial measuring equipment, consumer electronics and low power SMPS", L3P =>"Printed Circuit Pins. Most compact, directly mountable PCB filter. Suitable for use with digital equipments, low power SMPS, and consumer electronics.", LL4P =>"Printed Circuit Pins. Economical, Compact, high performance, directly mountable PCB filter. Typical applications include industrial measuring equipment, consumer electronics and low power SMPS", LL4Q =>"Quick Connects. Economical, Compact, high performance, directly mountable PCB filter. Typical applications include industrial measuring equipment, consumer electronics and low power SMPS", L6P =>"Printed Circuit Pins. Most compact, directly mountable PCB filter. Suitable for use with digital equipments, low power SMPS, and consumer electronics.", LL6P =>"Printed Circuit Pins. Economical, Compact, high performance, directly mountable PCB filter. Typical applications include industrial measuring equipment, consumer electronics and low power SMPS", LL6Q =>"Quick Connects. Economical, Compact, high performance, directly mountable PCB filter. Typical applications include industrial measuring equipment, consumer electronics and low power SMPS", CD1FA1 =>"Power Entry with flange mounting, on/off bipolar rocker switch, voltage selection, and 1 (US) fuse. Gives high performance in common and differential mode noise control with good screening effect.", CD1FM2 =>"Power Entry with flange mounting, on/off bipolar rocker switch, voltage selection, and 2 metric fuses. Gives high performance in common and differential mode noise control with good screening effect.", CV1FA1 =>"Power Entry with voltage selection, flange mounting and 1 (US) fuse.", CV1SA1 =>"Power Entry with voltage selection , snap mounting and 1 (US) fuse.", CV1FM2 =>"Power Entry with voltage selection, flange mounting and 2 (metric) fuses.", CV1SM2 =>"Power Entry with voltage selection, snap mounting and 2 (metric) fuses.", C1FA1 =>"Power Entry with On/Off Switch, flange mounting and 1 (US) fuse.", C1SA1 =>"Power Entry with On/Off Switch, snap mounting and 1 (US) fuse.", C1FM2 =>"Power Entry with On/Off Switch, flange mounting and 2 (metric) fuses.", C1SM2 =>"Power Entry with On/Off Switch, snap mounting and 2 (metric) fuses.", CF1FM1 =>"General purpose, 1-stage, medium attentuation. 1 Metric Fuse.", CF1FM2 =>"General purpose, 1-stage, medium attentuation. 2 Metric Fuses.", EA1Q =>"Good for common-mode noise.", EB1Q =>"Good for common-mode noise, Good for differetial-mode noise from 50 kHz to 1MHz.", EC1Q =>"Best overall noise control.", EF1Q =>"Good noise control from 1 Mhz - 30 MHz.", CD4FA1 =>"Power Entry with flange mounting, on/off bipolar rocker switch, voltage selection, and 1 (US) fuse. Gives high performance in common and differential mode noise control with good screening effect.", CD4FM2 =>"Power Entry with flange mounting, on/off bipolar rocker switch, voltage selection, and 2 metric fuses. Gives high performance in common and differential mode noise control with good screening effect.", CV3FA1 =>"Power Entry with voltage selection, flange mounting and 1 (US) fuse.", CV3SA1 =>"Power Entry with voltage selection , snap mounting and 1 (US) fuse.", CV3FM2 =>"Power Entry with voltage selection, flange mounting and 2 (metric) fuses.", CV3SM2 =>"Power Entry with voltage selection, snap mounting and 2 (metric) fuses.", C3FA1 =>"Power Entry with On/Off Switch, flange mounting and 1 (US) fuse.", C3SA1 =>"Power Entry with On/Off Switch, snap mounting and 1 (US) fuse.", C3FM2 =>"Power Entry with On/Off Switch, flange mounting and 2 (metric) fuses.", C3SM2 =>"Power Entry with On/Off Switch, snap mounting and 2 (metric) fuses.", CF3FM1 =>"General purpose, 1-stage, medium attentuation. 1 Metric Fuse.", CF3FM2 =>"General purpose, 1-stage, medium attentuation. 2 Metric Fuses.", EA3Q =>"Good for common-mode noise.", EB3Q =>"Good for common-mode noise, Good for differetial-mode noise from 50 kHz to 1MHz.", EC3Q =>"Best overall noise control.", EF3Q =>"Good noise control from 1 Mhz - 30 MHz.", CD4FA1 =>"Power Entry with flange mounting, on/off bipolar rocker switch, voltage selection, and 1 (US) fuse. Gives high performance in common and differential mode noise control with good screening effect.", CD4FM2 =>"Power Entry with flange mounting, on/off bipolar rocker switch, voltage selection, and 2 metric fuses. Gives high performance in common and differential mode noise control with good screening effect.", CV6FA1 =>"Power Entry with voltage selection, flange mounting and 1 (US) fuse.", CV6SA1 =>"Power Entry with voltage selection , snap mounting and 1 (US) fuse.", CV6FM2 =>"Power Entry with voltage selection, flange mounting and 2 (metric) fuses.", CV6SM2 =>"Power Entry with voltage selection, snap mounting and 2 (metric) fuses.", C6FA1 =>"Power Entry with On/Off Switch, flange mounting and 1 (US) fuse.", C6SA1 =>"Power Entry with On/Off Switch, snap mounting and 1 (US) fuse.", C6FM2 =>"Power Entry with On/Off Switch, flange mounting and 2 (metric) fuses.", C6SM2 =>"Power Entry with On/Off Switch, snap mounting and 2 (metric) fuses.", CF6FM1 =>"General purpose, 1-stage, medium attentuation. 1 Metric Fuse.", CF6FM2 =>"General purpose, 1-stage, medium attentuation. 2 Metric Fuses.", EA6Q =>"Good for common-mode noise.", EB6Q =>"Good for common-mode noise, Good for differetial-mode noise from 50 kHz to 1MHz.", EC6Q =>"Best overall noise control.", EF6Q =>"Good noise control from 1 Mhz - 30 MHz.", CD6FA1 =>"Power Entry with flange mounting, on/off bipolar rocker switch, voltage selection, and 1 (US) fuse. Gives high performance in common and differential mode noise control with good screening effect.", CD6FM2 =>"Power Entry with flange mounting, on/off bipolar rocker switch, voltage selection, and 2 metric fuses. Gives high performance in common and differential mode noise control with good screening effect.", CV6FA1 =>"Power Entry with voltage selection, flange mounting and 1 (US) fuse.", CV6SA1 =>"Power Entry with voltage selection , snap mounting and 1 (US) fuse.", CV6FM2 =>"Power Entry with voltage selection, flange mounting and 2 (metric) fuses.", CV6SM2 =>"Power Entry with voltage selection, snap mounting and 2 (metric) fuses.", C6FA1 =>"Power Entry with On/Off Switch, flange mounting and 1 (US) fuse.", C6SA1 =>"Power Entry with On/Off Switch, snap mounting and 1 (US) fuse.", C6FM2 =>"Power Entry with On/Off Switch, flange mounting and 2 (metric) fuses.", C6SM2 =>"Power Entry with On/Off Switch, snap mounting and 2 (metric) fuses.", CF6FM1 =>"General purpose, 1-stage, medium attentuation. 1 Metric Fuse.", CF6FM2 =>"General purpose, 1-stage, medium attentuation. 2 Metric Fuses.", EA6Q =>"Good for common-mode noise.", EB6Q =>"Good for common-mode noise, Good for differetial-mode noise from 50 kHz to 1MHz.", EC6Q =>"Best overall noise control.", EF6Q =>"Good noise control from 1 Mhz - 30 MHz.", G40S2X =>"Feed Through, High Current, with Metric Nut M32, Class X2", G40S2Y =>"Feed Through, High Current, with Metric Nut M32, Class Y", G16F2Y =>"Feed Through, High Current, with mounting flange, Class Y", G40S2X =>"Feed Through, High Current, with Metric Nut M32, Class X2", G40S2Y =>"Feed Through, High Current, with Metric Nut M32, Class Y", G25F2Y =>"Feed Through, High Current, with mounting flange, Class Y", G40S2X =>"Feed Through, High Current, with Metric Nut M32, Class X2", G40S2Y =>"Feed Through, High Current, with Metric Nut M32, Class Y", G40F2Y =>"Feed Through, High Current, with mounting flange, Class Y", G100S2X =>"Feed Through, High Current, with Metric Nut M32, Class X2", G100S2Y =>"Feed Through, High Current, with Metric Nut M32, Class Y", G100F2Y =>"Feed Through, High Current, with mounting flange, Class Y", G200S2X =>"Feed Through, High Current, with Metric Nut M32, Class X2", G200S2Y =>"Feed Through, High Current, with Metric Nut M32, Class Y", G300S2X =>"Feed Through, High Current, with Metric Nut M32, Class X2", G300S2Y =>"Feed Through, High Current, with Metric Nut M32, Class Y", G40S4X =>"440 VAC, Feed Through, High Current, with Metric Nut M32, Class X2", G100S4X =>"440 VAC, Feed Through, High Current, with Metric Nut M32, Class X2", G200S4X =>"440 VAC, Feed Through, High Current, with Metric Nut M32, Class X2", G300S4X =>"440 VAC, Feed Through, High Current, with Metric Nut M32, Class X2" ); # define data sheets %datasheet = ( M10 => "m", "M10/B" => "mb", M20 => "m", "M20/B"=> "mb", M30 => "m", "M30/B" => "mb", M40 => "m", "M40/B" => "mb", "M50/B" => "mb", P3Q => "p36", S3Q => "s3", P3W => "p36", S3W => "s3", P6Q => "p36", S6Q => "s610", W6Q => "w", P6W => "p36", S6W => "s610", P10Q => "p10", S10Q => "s610", W10Q => "w", P10W => "p10", S10W => "s610", W16Q => "w", B10S => "b1020", K10S => "k1510", R10S => "r10", K1W => "k1510", B1Q => "b135", K1Q => "k1510", R3Q => "r35", K3W => "k1510", R3W => "r35", B3Q => "b135", K3Q => "k1510", K5W => "k1510", R5W => "r35", B5Q => "b135", K5Q => "k1510", R5Q => "r35", B10W => "b1020", K10W => "k1510", R10W => "r10", B10Q => "b1020", K10Q => "k1510", R10Q => "r10", B20S => "b1020", K20S => "k20", R20S => "r20", B20W => "b1020", K20W => "k20", R20W => "r20", B20Q => "b1020", K20Q => "k20", R20Q => "r20", B30S => "b30", K30S => "k30", DL10 =>"dl", DT10 =>"dt", DL20 =>"dl", DT20 =>"dt", DL30 =>"dl", DT30 =>"dt", DL40 =>"dl", DT40 =>"dt", DL60 =>"dl", DT60 =>"dt", FL100 =>"fl", FL150 =>"fl", FL200 =>"fl", FL300 =>"fl", HL10 =>"hl", HT10 =>"ht", HL20 =>"hl", HT20 =>"ht", HL30 =>"hl", HT30 =>"ht", HL40 =>"hl", HT40 =>"ht", HL60 =>"hl", HT60 =>"ht", HL75 =>"hl", YL20 =>"yl", YT20 =>"yt", YL30 =>"yl", YT30 =>"yt", YL40 =>"yl", YT40 =>"yt", YL60 =>"yl", YT60 =>"yt", L1P =>"l", LL1P =>"ll", LL1Q =>"ll", L3P =>"l", LL4P =>"ll", LL4Q =>"ll", L6P =>"l", LL6P =>"ll", LL6Q =>"ll", CD1FA1 =>"cd", CD1FM2 =>"cd", CV1FA1 =>"cv-f", CV1SA1 =>"cv-s", CV1FM2 =>"cv-f", CV1SM2 =>"cv-s", C1FA1 =>"c-f", C1SA1 =>"c-s", C1FM2 =>"c-f", C1SM2 =>"c-s", CF1FM1 =>"cf", CF1FM2 =>"cf", EA1Q =>"ea", EB1Q =>"eb", EC1Q =>"ec", EF1Q =>"ef", CD4FA1 =>"cd", CD4FM2 =>"cd", CV3FA1 =>"cv-f", CV3SA1 =>"cv-s", CV3FM2 =>"cv-f", CV3SM2 =>"cv-s", C3FA1 =>"c-f", C3SA1 =>"c-s", C3FM2 =>"c-f", C3SM2 =>"c-s", CF3FM1 =>"cf", CF3FM2 =>"cf", EA3Q =>"ea", EB3Q =>"eb", EC3Q =>"ec", EF3Q =>"ef", CD6FA1 =>"cd", CD6FM2 =>"cd", CV6FA1 =>"cv-f", CV6SA1 =>"cv-s", CV6FM2 =>"cv-f", CV6SM2 =>"cv-s", C6FA1 =>"c-f", C6SA1 =>"c-s", C6FM2 =>"c-f", C6SM2 =>"c-s", CF6FM1 =>"cf", CF6FM2 =>"cf", EA6Q =>"ea", EB6Q =>"eb", EC6Q =>"ec", EF6Q =>"ef", G40S2X =>"g-s", G40S2Y =>"g-s", G16F2Y =>"g-f", G40S2X =>"g-s", G40S2Y =>"g-s", G25F2Y =>"g-f", G40S2X =>"g-s", G40S2Y =>"g-s", G40F2Y =>"g-f", G100S2X =>"g-s", G100S2Y =>"g-s", G100F2Y =>"g-f", G200S2X =>"g-s", G200S2Y =>"g-s", G300S2X =>"g-s", G300S2Y =>"g-s", G40S4X =>"g-s", G100S4X =>"g-s", G200S4X =>"g-s", G300S4X =>"g-s", ); ###################################################################################################################### print ""; print ""; ## $default = "false"; ## if ($CONFIG{'filter'} eq 'Single_Phase') { # if ($CONFIG{'mounting'} eq 'Chasis Mount') { if ($c == 0) { $default = "true"; } if ($type eq '') { $default = "true"; } if ($term eq '') { $default = "true"; } if (($CONFIG{'type'} eq 'high_current') || ($type eq '')) { if (($CONFIG{'terminations'} eq 'quick_connects') || ($CONFIG{'terminations'} eq 'wire_leads')) { print ""; } if ($CONFIG{'current'} <= 10) { if ($term eq 'studs' || $term eq '') { $filter[0] = "M10"; $filter[1] = "M10/B"; &mini; } else { if ($type ne '') { $filter[0] = "M10"; $filter[1] = "M10/B"; &none; } } } # end current <= 10 if (($CONFIG{'current'} == 16) || ($CONFIG{'current'} == 20) || ($c == 0) ) { if ($term eq 'studs' || $term eq '') { $filter[0] = "M20"; $filter[1] = "M20/B"; &mini; } else { if ($type ne '') { $filter[0] = "M20"; $filter[1] = "M20/B"; &none; } } } # end current = 16 or 20 if ($CONFIG{'current'} == 30 || ($c == 0)) { if ($term eq 'studs' || $term eq '') { $filter[0] = "M30"; $filter[1] = "M30/B"; &mini; } else { if ($type ne '') { $filter[0] = "M30"; $filter[1] = "M30/B"; &none; } } &mini; } # end current = 30 if ($CONFIG{'current'} == 40 || ($c == 0)) { if ($term eq 'studs' || $term eq '') { $filter[0] = "M40"; $filter[1] = "M40/B"; &mini; } else { if ($type ne '') { $filter[0] = "M40"; $filter[1] = "M40/B"; &none; } } &mini; } # end current = 40 if ($CONFIG{'current'} == 50 || ($c == 0)) { if ($term eq 'studs' || $term eq '') { $filter[0] = "M50/B"; &mini; } else { if ($type ne '') { $filter[0] = "M50/B"; &none; } } } # end current = 50 } # end high_currrrent if ($CONFIG{'type'} eq 'high_performance' || $type eq '') { if ($CONFIG{'terminations'} eq 'studs') { print ""; } if ($c == 1 || $c == 3 || $c ==0) { if ($term eq 'studs' && $type ne '' ) { $filter = "M10";&none; $filter = "M10/B";&none; $filter = "P3Q";&none; $filter = "S3Q";&none; $filter = "W6Q";&none; } #end of studs if (($term eq 'quick_connects') || $term eq '') { $filter = "P3Q";&mini; $filter = "S3Q";&mini; $filter = "W6Q";&mini; } #end of quick connections if ($term eq 'wire_leads' || $term eq '') { $filter = "P3W";&mini; $filter = "S3W";&mini; } #end of wire leads } # end of current = 1 or 3 if ($c == 5 || $c == 6 || $c == 0) { if ($term eq 'studs' && $type ne '' ) { $filter = "M10";&none; $filter = "M10/B";&none; $filter = "P6Q";&none; $filter = "S6Q";&none; $filter = "W6Q";&none; } #end of studs if ($term eq 'quick_connects' || $term eq '') { $filter = "P6Q";&mini; $filter = "S6Q";&mini; $filter = "W6Q";&mini; } #end of quick connects if ($term eq 'wire_leads' || $term eq '') { $filter = "P6W";&mini; $filter = "S6W";&mini; } #end of wire leads } #end of 5 or 6 amps if ($c == 10 || $c == 0) { if ($term eq 'studs' && $type ne '' ) { $filter = "M10"; &none; $filter = "M10/B"; &none; $filter = "P10Q"; &none; $filter = "S10Q"; &none; $filter = "W10Q"; &none; } #end of studs if ($term eq 'quick_connects' || $term eq '') { $filter = "P10Q";&mini; $filter = "S10Q";&mini; $filter = "W10Q";&mini; } #end of quick connects if ($term eq 'wire_leads' || $term eq '') { $filter = "P10W";&mini; $filter = "S10W";&mini; } #end of wire leads } #end of 10 amps if ($c == 16 || $c == 0) { if ($term eq 'studs' && $type ne '' ) { $filter = "M20"; &none; $filter = "M20/B"; &none; $filter = "W16Q"; &none; } #end of studs if ($term eq 'quick_connects' || $term eq '') { $filter = "W16Q";&mini; } #end of quick connects if ($term eq 'wire_leads' && $type ne '' ) { $filter = "M20";&none; $filter = "M20/B";&none; $filter = "W16Q";&none; } #end of wire leads } #end of 16 amps if ($c == 20) { if ($term eq 'studs' && $type ne '' ) { $filter[0] = "M20"; $filter[1] = "M20/B"; &none; } #end of studs if ($term eq 'quick_connects' && $type ne '' ) { $filter[0] = "M20"; $filter[1] = "M20/B"; &none; } #end of quick connects if ($term eq 'wire_leads' && $type ne '' ) { $filter[0] = "M20"; $filter[1] = "M20/B"; &none; } #end of wire leads } #end of 20 amps if ($c == 30 || $c == 0) { if ($term eq 'studs' && $type ne '' ) { $filter[0] = "M30"; $filter[1] = "M30/B"; &none; } #end of studs if ($term eq 'quick_connects' && $type ne '' ) { $filter[0] = "M30"; $filter[1] = "M30/B"; &none; } #end of quick connects if ($term eq 'wire_leads' && $type ne '' ) { $filter[0] = "M30"; $filter[1] = "M30/B"; &none; } #end of wire leads } #end of 30 amps if ($c == 40 || $c == 0) { if ($term eq 'studs' && $type ne '' ) { $filter = "M40";&none; $filter = "M40/B";&none; } #end of studs if ($term eq 'quick_connects' && $type ne '' ) { $filter[0] = "M40"; $filter[1] = "M40/B"; &none; } #end of quick connects if ($term eq 'wire_leads' && $type ne '' ) { $filter[0] = "M40"; $filter[1] = "M40/B"; &none; } #end of wire leads } #end of 40 amps if ($c == 50 || $c == 0) { if ($term eq 'studs' && $type ne '' ) { $filter = "M50/B"; &none; } #end of studs if ($term eq 'quick_connects' && $type ne '' ) { $filter = "M50/B"; &none; } #end of quick connects if ($term eq 'wire_leads' && $type ne '' ) { $filter = "M50/B"; &none; } #end of wire leads } #end of 50 amps } # end high_performance if ($CONFIG{'type'} eq 'general_purpose' || $type eq '') { if ($c == 1 || $c ==0) { if ($term eq 'studs' || $term eq '') { $filter = "B10S";&mini; $filter = "K10S";&mini; $filter = "R10S";&mini; } #end of studs if ($term eq 'quick_connects' || $term eq '') { $filter = "B1Q";&mini; $filter = "K1Q";&mini; $filter = "R3Q";&mini; } #end of quick connects if ($term eq 'wire_leads' || $term eq '') { $filter = "K1W";&mini; $filter = "R3W";&mini; } #end of wire leads } #end of 1 amp if ($c == 3 || $c == 0) { if ($term eq 'studs' || $term eq '' ) { $filter = "B10S";&mini; $filter = "K10S";&mini; $filter = "R10S";&mini; } #end of studs if ($term eq 'quick_connects' || $term eq '' ) { $filter = "B3Q";&mini; $filter = "K5Q";&mini; $filter = "R3Q";&mini; } #end of quick connects if ($term eq 'wire_leads' || $term eq '' ) { $filter = "K5W";&mini; $filter = "R3W";&mini; } #end of wire leads } #end of 3 amp if ($c == 5 || $c == 0) { if ($term eq 'studs' || $term eq '' ) { $filter = "B10S";&mini; $filter = "K10S";&mini; $filter = "R10S";&mini; } #end of studs if ($term eq 'quick_connects' || $term eq '' ) { $filter = "B5Q";&mini; $filter = "K5Q";&mini; $filter = "R5Q";&mini; } #end of quick connects if ($term eq 'wire_leads' || $term eq '' ) { $filter = "K5W";&mini; $filter = "R5W";&mini; } #end of wire leads } #end of 5 amp if ($c == 6 || $c == 10 || $c == 0) { if ($term eq 'studs' || $term eq '' ) { $filter = "B10S";&mini; $filter = "K10S";&mini; $filter = "R10S";&mini; } #end of studs if ($term eq 'quick_connects' || $term eq '' ) { $filter = "B10Q";&mini; $filter = "K10Q";&mini; $filter = "R10Q";&mini; } #end of quick connects if ($term eq 'wire_leads' || $term eq '' ) { $filter = "B10W";&mini; $filter = "K10W";&mini; $filter = "R10W";&mini; } #end of wire leads } #end of 6,10 amp if ($c == 16 || $c ==20 || $c ==0) { if ($term eq 'studs' || $term eq '' ) { $filter = "B20S";&mini; $filter = "K20S";&mini; $filter = "R20S";&mini; } #end of studs if ($term eq 'quick_connects' || $term eq '' ) { $filter = "B20Q";&mini; $filter = "K20Q";&mini; $filter = "R20Q";&mini; } #end of quick connects if ($term eq 'wire_leads' || $term eq '' ) { $filter = "B20W";&mini; $filter = "K20W";&mini; $filter = "R20W";&mini; } #end of wire leads } #end of 16,20 amp if ($c == 30 || $c == 0) { if ($term eq 'studs' || $term eq '' ) { $filter = "B30S";&mini; $filter = "K30S";&mini; } #end of studs if ($term eq 'quick_connects' && $type ne '' ) { $filter = "B30S";&none; $filter = "K30S";&none; } #end of quick connects if ($term eq 'wire_leads' && $type ne '' ) { $filter[0] = "B30S"; $filter[1] = "K30S"; &none; } #end of wire leads } #end of 30 amp if ($c == 40 || $c == 0) { if ($term eq 'studs' && $type ne '' ) { $filter[0] = "M40"; $filter[1] = "M40/B"; &none; } } if ($c == 50 || $c == 0) { if ($term eq 'studs' && $type ne '' ) { $filter = "M50/B"; &none; } } } # end general_purpose } # end of chasis mount mounting } # end of single phase ######################################################## # # Three Phase filters are based on delta or wye # delta has one series each for <= 250 VAC, <= 480 VAC, or <= 600 VAC # wye is for V <=433 VAC if ($CONFIG{'filter'} eq 'Three_Phase') { if ($CONFIG{'dw'} eq 'delta250' || $dw eq '') { if ($CONFIG{'current'} <= 10) { if ($s eq 'fcc' || $s eq '' ){ $filter = "DL10";&mini; $filter = "DT10";&mini; } if ($s eq 'european' || $s eq ''){ $filter = "DT10";&mini; } } if ($CONFIG{'current'} == 20 || $c ==0) { if ($s eq 'fcc' || $s eq '' ){ $filter = "DL20";&mini; $filter = "DT20";&mini; } if ($s eq 'european' || $s eq '' ){ $filter = "DT20";&mini; } } if ($CONFIG{'current'} == 30 || $c == 0) { if ($s eq 'fcc' || $s eq '' ){ $filter = "DL30";&mini; $filter = "DT30";&mini; } if ($s eq 'european' || $s eq '' ){ $filter = "DT30";&mini; } } if ($CONFIG{'current'} == 40 || $c == 0) { if ($s eq 'fcc' || $s eq '' ){ $filter = "DL40";&mini; $filter = "DT40";&mini; } if ($s eq 'european' || $s eq '' ){ $filter = "DT40";&mini; } } if ($CONFIG{'current'} == 60 || $c == 0) { if ($s eq 'fcc' || $s eq '' ){ $filter = "DL60";&mini; $filter = "DT60";&mini; } if ($s eq 'european' || $s eq '' ){ $filter = "DT60";&mini; } } if ($CONFIG{'current'} == 75) { if ($s eq 'fcc'){ $filter = "HL75";&mini; print ""; $filter = "DL40";&mini; $filter = "DT40";&mini; } if ($s eq 'european'){ print ""; $filter = "DT40";&mini; } } #end of current } # end of delta250 #### delta 480 if ($CONFIG{'dw'} eq 'delta480' || $dw eq '') { if ($CONFIG{'current'} <= 100) { $filter = "FL100";&mini; } if ($CONFIG{'current'} <= 150) { $filter = "FL150";&mini; } if ($CONFIG{'current'} <= 200) { $filter = "FL200";&mini; } if ($CONFIG{'current'} <= 300) { $filter = "FL300";&mini; } } #### end of delta 480 if ($CONFIG{'dw'} eq 'delta600' || $dw eq '') { if ($CONFIG{'current'} <= 10) { if ($s eq 'fcc' || $s eq '' ){ $filter = "HL10";&mini; $filter = "HT10";&mini; } if ($s eq 'european' || $s eq '' ){ $filter = "HT10";&mini; } } if ($CONFIG{'current'} == 20 || $c == 0) { if ($s eq 'fcc' || $s eq '' ){ $filter = "HL20";&mini; $filter = "HT20";&mini; } if ($s eq 'european' || $s eq '' ){ $filter = "HT20";&mini; } } if ($CONFIG{'current'} == 30 || $c == 0) { if ($s eq 'fcc' || $s eq '' ){ $filter = "HL30";&mini; $filter = "HT30";&mini; } if ($s eq 'european' || $s eq '' ){ $filter = "HT30";&mini; } } if ($CONFIG{'current'} == 40 || $c == 0) { if ($s eq 'fcc' || $s eq '' ){ $filter = "HL40";&mini; $filter = "HT40";&mini; } if ($s eq 'european' || $s eq '' ){ $filter = "HT40";&mini; } } if ($CONFIG{'current'} == 60 || $c == 0) { if ($s eq 'fcc' || $s eq '' ){ $filter = "HL60";&mini; $filter = "HT60";&mini; } if ($s eq 'european' || $s eq '' ){ $filter = "HT60";&mini; } } if ($CONFIG{'current'} == 75 || $c == 0) { if ($s eq 'fcc' || $s eq '' ){ $filter = "HL75";&mini; } if ($s eq 'european'){ print ""; $filter = "HT40";&mini; } } #end of current } # end of delta600 if ($CONFIG{'dw'} eq 'wye' || $dw eq '') { if ($CONFIG{'current'} == 20 || $c == 10 || $c == 0) { if ($s eq 'fcc' || $s eq '' ){ $filter = "YL20";&mini; $filter = "YT20";&mini; } if ($s eq 'european' || $s eq '' ){ $filter = "YT20";&mini; } } if ($CONFIG{'current'} == 30 || $c ==0) { if ($s eq 'fcc' || $s eq '' ){ $filter = "YL30";&mini; $filter = "YT30";&mini; } if ($s eq 'european' || $s eq '' ){ $filter = "YT30";&mini; } } if ($CONFIG{'current'} == 40 || $c == 0) { if ($s eq 'fcc' || $s eq '' ){ $filter = "YL40";&mini; $filter = "YT40";&mini; } if ($s eq 'european' || $s eq '' ){ $filter = "YT40";&mini; } } if ($CONFIG{'current'} == 60 || $c == 0) { if ($s eq 'fcc' || $s eq '' ){ $filter = "YL60";&mini; $filter = "YT60";&mini; } if ($s eq 'european' || $s eq '' ){ $filter = "YT60";&mini; } } if ($c == 75) { if ($s eq 'fcc'){ print ""; $filter = "YL40";&mini; $filter = "YT40";&mini; } if ($s eq 'european'){ print ""; $filter = "YT40";&mini; } } #end of current } # end of wye } # end of three phase ################################################################################ # # Feed Through filters are all based on current and voltage only # < 16,25,40,100,200,300 for <= 250 V # < 40,100,200,300 for <=440 V if ($CONFIG{'filter'} eq 'Feed_Through') { if ($CONFIG{'voltage'} == 0) { $default = "true"; } if ($CONFIG{'current'} == 0) { $default = "true"; } if ($CONFIG{'mounting'} eq '') { $default = "true"; } if ($CONFIG{'class'} eq '') { $default = "true"; } if (($CONFIG{'voltage'} == 0) || ($CONFIG{'voltage'} == 250)) { if (($CONFIG{'current'} == 0) || ($CONFIG{'current'} == 16)) { if (($CONFIG{'class'} eq 'X2') || ($CONFIG{'class'} eq '')) { if (($CONFIG{'mounting'} eq 'Lock_nut') || ($CONFIG{'mounting'} eq '')) { $filter[0] = "G40S2X";&mini; } # if ($CONFIG{'mounting'} eq 'Flange') { if ($class ne '') { $filter[0] = "G40S2X"; &none; } if ($class ne '') { $filter[0] = "G16F2Y"; &none; } } # } # end of capacitor class X2 if (($CONFIG{'class'} eq 'Y') || ($CONFIG{'class'} eq '')) { if ($CONFIG{'mounting'} eq 'Lock_nut' || ($CONFIG{'mounting'} eq '')) { $filter[0] = "G40S2Y"; &mini; } if (($CONFIG{'mounting'} eq 'Flange') || ($CONFIG{'mounting'} eq '')) { $filter[0] = "G16F2Y"; &mini; } } # end of capacitor class Y } # end of 16 amps if (($CONFIG{'current'} == 0) || ($CONFIG{'current'} == 25)) { if (($CONFIG{'class'} eq 'X2') || ($CONFIG{'class'} eq '')) { if (($CONFIG{'mounting'} eq 'Lock_nut') || ($CONFIG{'mounting'} eq '')) { $filter[0] = "G40S2X"; &mini; } # if ($CONFIG{'mounting'} eq 'Flange') { if ($class ne '') { $filter[0] = "G40S2X"; $filter[1] = "G25F2Y"; &none;} } # } # end of capacitor class X2 if (($CONFIG{'class'} eq 'Y') || ($CONFIG{'class'} eq '')) { if (($CONFIG{'mounting'} eq 'Lock_nut') || ($CONFIG{'mounting'} eq '')) { $filter[0] = "G40S2Y"; &mini; } if (($CONFIG{'mounting'} eq 'Flange') || ($CONFIG{'mounting'} eq '')) { $filter[0] = "G25F2Y"; &mini; } } # end of capacitor class Y } # end of 25 amps if (($CONFIG{'current'} == 0) || ($CONFIG{'current'} == 40)) { if (($CONFIG{'class'} eq 'X2') || ($CONFIG{'class'} eq '')) { if (($CONFIG{'mounting'} eq 'Lock_nut') || ($CONFIG{'mounting'} eq '')) { $filter[0] = "G40S2X"; &mini; } # if ($CONFIG{'mounting'} eq 'Flange') { if ($class ne '') { $filter[0] = "G40S2X";$filter[1] = "G40S2Y";&none; } } # } # end of capacitor class X2 if (($CONFIG{'class'} eq 'Y') || ($CONFIG{'class'} eq '')) { if (($CONFIG{'mounting'} eq 'Lock_nut') || ($CONFIG{'mounting'} eq '')) { $filter[0] = "G40S2Y"; &mini; } if (($CONFIG{'mounting'} eq 'Flange') || ($CONFIG{'mounting'} eq '')) { $filter[0] = "G40F2Y"; &mini; } } # end of capacitor class Y } # end of 40 amps if (($CONFIG{'current'} == 0) || ($CONFIG{'current'} == 100)) { if (($CONFIG{'class'} eq 'X2') || ($CONFIG{'class'} eq '')) { if (($CONFIG{'mounting'} eq 'Lock_nut') || ($CONFIG{'mounting'} eq '')) { $filter[0] = "G100S2X"; &mini; } # if ($CONFIG{'mounting'} eq 'Flange') { if ($class ne '') { $filter[0] = "G100S2X";$filter[1] = "G100F2Y"; &none; } } # } # end of capacitor class X2 if (($CONFIG{'class'} eq 'Y') || ($CONFIG{'class'} eq '')) { if (($CONFIG{'mounting'} eq 'Lock_nut') || ($CONFIG{'mounting'} eq '')) { $filter[0] = "G100S2Y"; &mini; } if (($CONFIG{'mounting'} eq 'Flange') || ($CONFIG{'mounting'} eq '')) { $filter[0] = "G100F2Y"; &mini; } } # end of capacitor class Y } # end of 100 amps if (($CONFIG{'current'} == 0) || ($CONFIG{'current'} == 200)) { if (($CONFIG{'class'} eq 'X2') || ($CONFIG{'class'} eq '')) { if (($CONFIG{'mounting'} eq 'Lock_nut') || ($CONFIG{'mounting'} eq '')) { $filter[0] = "G200S2X"; &mini; } # if ($CONFIG{'mounting'} eq 'Flange') { if ($class ne '') { $filter[0] = "G200S2X"; &none; } } # } # end of capacitor class X2 if (($CONFIG{'class'} eq 'Y') || ($CONFIG{'class'} eq '')) { if (($CONFIG{'mounting'} eq 'Lock_nut') || ($CONFIG{'mounting'} eq '')) { $filter[0] = "G200S2Y"; &mini; } if (($CONFIG{'mounting'} eq 'Flange')) { if ($class ne '') { $filter[0] = "G200S2Y"; &none; } } } # end of capacitor class Y } # end of 200 amps if (($CONFIG{'current'} == 0) || ($CONFIG{'current'} == 300)) { if (($CONFIG{'class'} eq 'X2') || ($CONFIG{'class'} eq '')) { if (($CONFIG{'mounting'} eq 'Lock_nut') || ($CONFIG{'mounting'} eq '')) { $filter[0] = "G300S2X"; &mini; } # if ($CONFIG{'mounting'} eq 'Flange') { if ($class ne '') { $filter[0] = "G300S2X"; &none; } } # } # end of capacitor class X2 if (($CONFIG{'class'} eq 'Y') || ($CONFIG{'class'} eq '')) { if (($CONFIG{'mounting'} eq 'Lock_nut') ) { $filter[0] = "G300S2Y"; &mini; } if ($CONFIG{'mounting'} eq 'Flange') { if ($class ne '') { $filter[0] = "G300S2Y"; &none; } } } # end of capacitor class Y } # end of 300 amps # end of current } # end of feed through voltage == 250 VAC if (($CONFIG{'voltage'} == 0) || ($CONFIG{'voltage'} == 440)) { if (($CONFIG{'current'} == 0) || ($CONFIG{'current'} <= 40)) { if (($CONFIG{'class'} eq 'X2') || ($CONFIG{'class'} eq '')) { if (($CONFIG{'mounting'} eq 'Lock_nut') || ($CONFIG{'mounting'} eq '')) { $filter[0] = "G40S4X"; &mini; } # if ($CONFIG{'mounting'} eq 'Flange') { if ($class ne '' && $voltage != 0 ) { $filter[0] = "G40S4X"; &none; } } # } # end of capacitor class X2 if (($CONFIG{'class'} eq 'Y') || ($CONFIG{'class'} eq '')) { if ($CONFIG{'mounting'} eq 'Lock_nut') { if ($class ne '' && $voltage != 0 ) { $filter[0] = "G40S4X"; &none; } } if ($CONFIG{'mounting'} eq 'Flange') { if ($class ne '' && $voltage != 0 ) { $filter[0] = "G40S4X"; &none; } } } # end of capacitor class Y } # end of 40 amps if (($CONFIG{'current'} == 0) || ($CONFIG{'current'} == 100)) { if (($CONFIG{'class'} eq 'X2') || ($CONFIG{'class'} eq '')) { if (($CONFIG{'mounting'} eq 'Lock_nut') || ($CONFIG{'mounting'} eq '')) { $filter[0] = "G100S4X"; &mini; } # if ($CONFIG{'mounting'} eq 'Flange') { if ($class ne '' && $voltage != 0 ) { $filter[0] = "G100S4X"; &none; } } # } # end of capacitor class X2 if (($CONFIG{'class'} eq 'Y') || ($CONFIG{'class'} eq '')) { if ($CONFIG{'mounting'} eq 'Lock_nut') { if ($class ne ''&& $voltage != 0 ) { $filter[0] = "G100S4X"; &none; } } if ($CONFIG{'mounting'} eq 'Flange') { if ($class ne ''&& $voltage != 0 ) { $filter[0] = "G100S4X"; &none; } } } # end of capacitor class Y } # end of 100 amps if (($CONFIG{'current'} == 0) || ($CONFIG{'current'} == 200)) { if (($CONFIG{'class'} eq 'X2') || ($CONFIG{'class'} eq '')) { if (($CONFIG{'mounting'} eq 'Lock_nut') || ($CONFIG{'mounting'} eq '')) { $filter[0] = "G200S4X"; &mini; } # if ($CONFIG{'mounting'} eq 'Flange') { if ($class ne '' && $voltage != 0 ) { $filter[0] = "G200S4X"; &none; } } # } # end of capacitor class X2 if (($CONFIG{'class'} eq 'Y') || ($CONFIG{'class'} eq '')) { if ($CONFIG{'mounting'} eq 'Lock_nut') { if ($class ne '' && $voltage != 0 ) { $filter[0] = "G200S4X"; &none; } } if ($CONFIG{'mounting'} eq 'Flange') { if ($class ne '' && $voltage != 0 ) { $filter[0] = "G200S4X"; &none; } } } # end of capacitor class Y } # end of 200 amps if (($CONFIG{'current'} == 0) || ($CONFIG{'current'} == 300)) { if (($CONFIG{'class'} eq 'X2') || ($CONFIG{'class'} eq '')) { if (($CONFIG{'mounting'} eq 'Lock_nut') || ($CONFIG{'mounting'} eq '')) { $filter[0] = "G300S4X"; &mini; } # if ($CONFIG{'mounting'} eq 'Flange') { if ($class ne '' && $voltage != 0 ) { $filter[0] = "G300S4X"; &none; } } # } # end of capacitor class X2 if (($CONFIG{'class'} eq 'Y') || ($CONFIG{'class'} eq '')) { if ($CONFIG{'mounting'} eq 'Lock_nut') { if ($class ne '' && $voltage != 0 ) { $filter[0] = "G300S4X"; &none; } } if ($CONFIG{'mounting'} eq 'Flange') { if ($class ne '' && $voltage != 0 ) { $filter[0] = "G300S4X"; &none; } } } # end of capacitor class Y } # end of 300 amps # end of current } # end of feed through voltage == 440 # end of feed through voltage } # end of feed through ####################### if ($CONFIG{'filter'} eq 'Printed_Circuit') { ## if ($c == 0) { $default = "true"; } if ($conn eq '') { $default = "true"; } ## if ($CONFIG{'current'} == 1 || $c == 0) { if ($conn eq 'pcp' || $conn eq '' ){ $filter = "L1P";&mini; $filter = "LL1P";&mini; } if ($conn eq 'qc' || $conn eq '' ){ $filter = "LL1Q";&mini; } } if ($CONFIG{'current'} == 3 || $c == 0 ) { if ($conn eq 'pcp' || $conn eq '' ){ $filter = "L3P";&mini; $filter = "LL4P";&mini; } if ($conn eq 'qc' || $conn eq '' ){ $filter = "LL4Q";&mini; } } if ($CONFIG{'current'} == 4 || $c == 0 ) { if ($conn eq 'pcp' || $conn eq '' ){ $filter = "L6P";&mini; $filter = "LL4P";&mini; } if ($conn eq 'qc' || $conn eq '' ){ $filter = "LL4Q";&mini; } } if ($CONFIG{'current'} == 6 || $c == 0 ) { if ($conn eq 'pcp' || $conn eq '' ){ $filter = "L6P";&mini; $filter = "LL6P";&mini; } if ($conn eq 'qc' || $conn eq '' ){ $filter = "LL6Q";&mini; } } } # end of pcb ###################### # power entry if ($CONFIG{'filter'} eq 'Power_Entry') { ## if ($c == 0) { $default = "true"; } if ($m eq '') { $default = "true"; } if ($fuses eq '') { $default = "true"; } if ($switch eq '') { $default = "true"; } if ($v eq '') { $default = "true"; } ## if ($c == 1 || $c ==0 ) { if (($m eq 'flange' || $m eq '' ) && ($fuses eq 'us' || $fuses eq '' ) && ($switch eq 'yes' || $switch eq '' ) && ($v eq 'yes' || $v eq '' )) { $filter="CD1FA1";&mini; } if (($m eq 'flange' || $m eq '' ) && ($fuses eq 'metric' || $fuses eq '' ) && ($switch eq 'yes' || $switch eq '' ) && ($v eq 'yes' || $v eq '' )) { $filter="CD1FM2";&mini; } if (($m eq 'snap') && ($fuses eq 'us') && ($switch eq 'yes') && ($v eq 'yes')) { $filter="CD1FA1"; &none; } if (($m eq 'snap') && ($fuses eq 'metric') && ($switch eq 'yes') && ($v eq 'yes')) { $filter="CD1FM2"; &none; } if (($fuses eq 'no') && ($switch eq 'yes') && ($v eq 'yes')) { $filter[0]="CD1FA1"; $filter[1]="CD1FM2"; &none; } if (($m eq 'flange' || $m eq '' ) && ($fuses eq 'us' || $fuses eq '' ) && ($switch eq 'no' || $switch eq '' ) && ($v eq 'yes' || $v eq '' )) { $filter="CV1FA1";&mini; } if (($m eq 'snap' || $m eq '' ) && ($fuses eq 'us' || $fuses eq '' ) && ($switch eq 'no' || $switch eq '' ) && ($v eq 'yes' || $v eq '' )) { $filter="CV1SA1";&mini; } if (($m eq 'flange' || $m eq '' ) && ($fuses eq 'metric' || $fuses eq '' ) && ($switch eq 'no' || $switch eq '' ) && ($v eq 'yes' || $v eq '' )) { $filter="CV1FM2";&mini; } if (($m eq 'snap' || $m eq '' ) && ($fuses eq 'metric' || $fuses eq '' ) && ($switch eq 'no' || $switch eq '' ) && ($v eq 'yes' || $v eq '' )) { $filter="CV1SM2";&mini; } if (($m eq 'flange') && ($fuses eq 'no') && ($switch eq 'no') && ($v eq 'yes')) { $filter[0]="CV1FA1"; $filter[1]="CV1FM2"; &none; } if (($m eq 'snap') && ($fuses eq 'no') && ($switch eq 'no') && ($v eq 'yes')) { $filter[0]="CV1SA1"; $filter[1]="CV1SM2"; &none; } if (($m eq 'flange' || $m eq '' ) && ($fuses eq 'us' || $fuses eq '' ) && ($switch eq 'yes' || $switch eq '' ) && ($v eq 'no' || $v eq '' )) { $filter="C1FA1";&mini; } if (($m eq 'snap' || $m eq '' ) && ($fuses eq 'us' || $fuses eq '' ) && ($switch eq 'yes' || $switch eq '' ) && ($v eq 'no' || $v eq '' )) { $filter="C1SA1";&mini; } if (($m eq 'flange' || $m eq '' ) && ($fuses eq 'metric' || $fuses eq '' ) && ($switch eq 'yes' || $switch eq '' ) && ($v eq 'no' || $v eq '' )) { $filter="C1FM2";&mini; } if (($m eq 'snap' || $m eq '' ) && ($fuses eq 'metric' || $fuses eq '' ) && ($switch eq 'yes' || $switch eq '' ) && ($v eq 'no' || $v eq '' )) { $filter="C1SM2";&mini; } if (($m eq 'flange') && ($fuses eq 'no') && ($switch eq 'yes') && ($v eq 'no')) { $filter[0]="C1FA1"; $filter[1]="C1FM2"; &none; } if (($m eq 'snap') && ($fuses eq 'no') && ($switch eq 'yes') && ($v eq 'no')) { $filter[0]="C1SA1"; $filter[1]="C1SM2"; &none; } if (($m eq 'flange' || $m eq '' ) && ($fuses eq 'metric' || $fuses eq '' ) && ($switch eq 'no' || $switch eq '' ) && ($v eq 'no' || $v eq '' )) { $filter="CF1FM1";&mini; $filter="CF1FM2";&mini; } if (($m eq 'snap') && ($fuses eq 'metric') && ($switch eq 'no') && ($v eq 'no')) { $filter[0]="CF1FM1"; $filter[1]="CF1FM2"; &none; } if (($fuses eq 'us') && ($switch eq 'no') && ($v eq 'no')) { $filter[0]="CF1FM1"; $filter[1]="CF1FM2"; &none; } if (($m eq 'flange' || $m eq '' ) && ($fuses eq 'no' || $fuses eq '' ) && ($switch eq 'no' || $switch eq '' ) && ($v eq 'no' || $v eq '' )) { $filter="EA1Q";&mini; $filter="EB1Q";&mini; $filter="EC1Q";&mini; $filter="EF1Q";&mini; } if (($m eq 'snap') && ($fuses eq 'no') && ($switch eq 'no') && ($v eq 'no')) { $filter[0]="EA1Q"; $filter[1]="EB1Q"; $filter[2]="EC1Q"; $filter[3]="EF1Q"; &none; } } #end of 1 amp if ($c == 3 || $c ==0 ) { if (($m eq 'flange' || $m eq '' ) && ($fuses eq 'us' || $fuses eq '' ) && ($switch eq 'yes' || $switch eq '' ) && ($v eq 'yes' || $v eq '' )) { $filter="CD4FA1";&mini; } if (($m eq 'flange' || $m eq '' ) && ($fuses eq 'metric' || $fuses eq '' ) && ($switch eq 'yes' || $switch eq '' ) && ($v eq 'yes' || $v eq '' )) { $filter="CD4FM2";&mini; } if (($m eq 'snap') && ($fuses eq 'us') && ($switch eq 'yes') && ($v eq 'yes')) { $filter="CD4FA1"; &none; } if (($m eq 'snap') && ($fuses eq 'metric') && ($switch eq 'yes') && ($v eq 'yes')) { $filter="CD4FM2"; &none; } if (($fuses eq 'no') && ($switch eq 'yes') && ($v eq 'yes')) { $filter[0]="CD4FA1"; $filter[1]="CD4FM2"; &none; } if (($m eq 'flange' || $m eq '' ) && ($fuses eq 'us' || $fuses eq '' ) && ($switch eq 'no' || $switch eq '' ) && ($v eq 'yes' || $v eq '' )) { $filter="CV3FA1";&mini; } if (($m eq 'snap' || $m eq '' ) && ($fuses eq 'us' || $fuses eq '' ) && ($switch eq 'no' || $switch eq '' ) && ($v eq 'yes' || $v eq '' )) { $filter="CV3SA1";&mini; } if (($m eq 'flange' || $m eq '' ) && ($fuses eq 'metric' || $fuses eq '' ) && ($switch eq 'no' || $switch eq '' ) && ($v eq 'yes' || $v eq '' )) { $filter="CV3FM2";&mini; } if (($m eq 'snap' || $m eq '' ) && ($fuses eq 'metric' || $fuses eq '' ) && ($switch eq 'no' || $switch eq '' ) && ($v eq 'yes' || $v eq '' )) { $filter="CV3SM2";&mini; } if (($m eq 'flange') && ($fuses eq 'no') && ($switch eq 'no') && ($v eq 'yes')) { $filter[0]="CV3FA1"; $filter[1]="CV3FM2"; &none; } if (($m eq 'snap') && ($fuses eq 'no') && ($switch eq 'no') && ($v eq 'yes')) { $filter[0]="CV3SA1"; $filter[1]="CV3SM2"; &none; } if (($m eq 'flange' || $m eq '' ) && ($fuses eq 'us' || $fuses eq '' ) && ($switch eq 'yes' || $switch eq '' ) && ($v eq 'no' || $v eq '' )) { $filter="C3FA1";&mini; } if (($m eq 'snap' || $m eq '' ) && ($fuses eq 'us' || $fuses eq '' ) && ($switch eq 'yes' || $switch eq '' ) && ($v eq 'no' || $v eq '' )) { $filter="C3SA1";&mini; } if (($m eq 'flange' || $m eq '' ) && ($fuses eq 'metric' || $fuses eq '' ) && ($switch eq 'yes' || $switch eq '' ) && ($v eq 'no' || $v eq '' )) { $filter="C3FM2";&mini; } if (($m eq 'snap' || $m eq '' ) && ($fuses eq 'metric' || $fuses eq '' ) && ($switch eq 'yes' || $switch eq '' ) && ($v eq 'no' || $v eq '' )) { $filter="C3SM2";&mini; } if (($m eq 'flange') && ($fuses eq 'no') && ($switch eq 'yes') && ($v eq 'no')) { $filter[0]="C3FA1"; $filter[1]="C3FM2"; &none; } if (($m eq 'snap') && ($fuses eq 'no') && ($switch eq 'yes') && ($v eq 'no')) { $filter[0]="C3SA1"; $filter[1]="C3SM2"; &none; } if (($m eq 'flange' || $m eq '' ) && ($fuses eq 'metric' || $fuses eq '' ) && ($switch eq 'no' || $switch eq '' ) && ($v eq 'no' || $v eq '' )) { $filter="CF3FM1";&mini; $filter="CF3FM2";&mini; } if (($m eq 'snap') && ($fuses eq 'metric') && ($switch eq 'no') && ($v eq 'no')) { $filter[0]="CF3FM1"; $filter[1]="CF3FM2"; &none; } if (($fuses eq 'us') && ($switch eq 'no') && ($v eq 'no')) { $filter[0]="CF3FM1"; $filter[1]="CF3FM2"; &none; } if (($m eq 'flange' || $m eq '' ) && ($fuses eq 'no' || $fuses eq '' ) && ($switch eq 'no' || $switch eq '' ) && ($v eq 'no' || $v eq '' )) { $filter="EA3Q";&mini; $filter="EB3Q";&mini; $filter="EC3Q";&mini; $filter="EF3Q";&mini; } if (($m eq 'snap') && ($fuses eq 'no') && ($switch eq 'no') && ($v eq 'no')) { $filter[0]="EA3Q"; $filter[1]="EB3Q"; $filter[2]="EC3Q"; $filter[3]="EF3Q"; &none; } } #end of 3 amp if ($c == 4 || $c ==0 ) { if (($m eq 'flange' || $m eq '' ) && ($fuses eq 'us' || $fuses eq '' ) && ($switch eq 'yes' || $switch eq '' ) && ($v eq 'yes' || $v eq '' )) { $filter="CD4FA1";&mini; } if (($m eq 'flange' || $m eq '' ) && ($fuses eq 'metric' || $fuses eq '' ) && ($switch eq 'yes' || $switch eq '' ) && ($v eq 'yes' || $v eq '' )) { $filter="CD4FM2";&mini; } if (($m eq 'snap') && ($fuses eq 'us') && ($switch eq 'yes') && ($v eq 'yes')) { $filter="CD4FA1"; &none; } if (($m eq 'snap') && ($fuses eq 'metric') && ($switch eq 'yes') && ($v eq 'yes')) { $filter="CD4FM2"; &none; } if (($fuses eq 'no') && ($switch eq 'yes') && ($v eq 'yes')) { $filter[0]="CD4FA1"; $filter[1]="CD4FM2"; &none; } if (($m eq 'flange' || $m eq '' ) && ($fuses eq 'us' || $fuses eq '' ) && ($switch eq 'no' || $switch eq '' ) && ($v eq 'yes' || $v eq '' )) { $filter="CV6FA1";&mini; } if (($m eq 'snap' || $m eq '' ) && ($fuses eq 'us' || $fuses eq '' ) && ($switch eq 'no' || $switch eq '' ) && ($v eq 'yes' || $v eq '' )) { $filter="CV6SA1";&mini; } if (($m eq 'flange' || $m eq '' ) && ($fuses eq 'metric' || $fuses eq '' ) && ($switch eq 'no' || $switch eq '' ) && ($v eq 'yes' || $v eq '' )) { $filter="CV6FM2";&mini; } if (($m eq 'snap' || $m eq '' ) && ($fuses eq 'metric' || $fuses eq '' ) && ($switch eq 'no' || $switch eq '' ) && ($v eq 'yes' || $v eq '' )) { $filter="CV6SM2";&mini; } if (($m eq 'flange') && ($fuses eq 'no') && ($switch eq 'no') && ($v eq 'yes')) { $filter[0]="CV6FA1"; $filter[1]="CV6FM2"; &none; } if (($m eq 'snap') && ($fuses eq 'no') && ($switch eq 'no') && ($v eq 'yes')) { $filter[0]="CV6SA1"; $filter[1]="CV6SM2"; &none; } if (($m eq 'flange' || $m eq '' ) && ($fuses eq 'us' || $fuses eq '' ) && ($switch eq 'yes' || $switch eq '' ) && ($v eq 'no' || $v eq '' )) { $filter="C6FA1";&mini; } if (($m eq 'snap' || $m eq '' ) && ($fuses eq 'us' || $fuses eq '' ) && ($switch eq 'yes' || $switch eq '' ) && ($v eq 'no' || $v eq '' )) { $filter="C6SA1";&mini; } if (($m eq 'flange' || $m eq '' ) && ($fuses eq 'metric' || $fuses eq '' ) && ($switch eq 'yes' || $switch eq '' ) && ($v eq 'no' || $v eq '' )) { $filter="C6FM2";&mini; } if (($m eq 'snap') && ($fuses eq 'metric' || $fuses eq '' ) && ($switch eq 'yes' || $switch eq '' ) && ($v eq 'no' || $v eq '' )) { $filter="C6SM2";&mini; } if (($m eq 'flange') && ($fuses eq 'no') && ($switch eq 'yes') && ($v eq 'no')) { $filter[0]="C6FA1"; $filter[1]="C6FM2"; &none; } if (($m eq 'snap') && ($fuses eq 'no') && ($switch eq 'yes') && ($v eq 'no')) { $filter[0]="C6SA1"; $filter[1]="C6SM2"; &none; } if (($m eq 'flange' || $m eq '' ) && ($fuses eq 'metric' || $fuses eq '' ) && ($switch eq 'no' || $switch eq '' ) && ($v eq 'no' || $v eq '' )) { $filter="CF6FM1";&mini; $filter="CF6FM2";&mini; } if (($m eq 'snap') && ($fuses eq 'metric') && ($switch eq 'no') && ($v eq 'no')) { $filter[0]="CF6FM1"; $filter[1]="CF6FM2"; &none; } if (($fuses eq 'us') && ($switch eq 'no') && ($v eq 'no')) { $filter[0]="CF6FM1"; $filter[1]="CF6FM2"; &none; } if (($m eq 'flange' || $m eq '' ) && ($fuses eq 'no' || $fuses eq '' ) && ($switch eq 'no' || $switch eq '' ) && ($v eq 'no' || $v eq '' )) { $filter="EA6Q";&mini; $filter="EB6Q";&mini; $filter="EC6Q";&mini; $filter="EF6Q";&mini; } if (($m eq 'snap') && ($fuses eq 'no') && ($switch eq 'no') && ($v eq 'no')) { $filter[0]="EA6Q"; $filter[1]="EB6Q"; $filter[2]="EC6Q"; $filter[3]="EF6Q"; &none; } } #end of 4 amp if ($c == 6 || $c ==0 ) { if (($m eq 'flange' || $m eq '' ) && ($fuses eq 'us' || $fuses eq '' ) && ($switch eq 'yes' || $switch eq '' ) && ($v eq 'yes' || $v eq '' )) { $filter="CD6FA1";&mini; } if (($m eq 'flange' || $m eq '' ) && ($fuses eq 'metric' || $fuses eq '' ) && ($switch eq 'yes' || $switch eq '' ) && ($v eq 'yes' || $v eq '' )) { $filter="CD6FM2";&mini; } if (($m eq 'snap') && ($fuses eq 'us') && ($switch eq 'yes' ) && ($v eq 'yes')) { $filter="CD6FA1"; &none; } if (($m eq 'snap') && ($fuses eq 'metric') && ($switch eq 'yes') && ($v eq 'yes')) { $filter="CD6FM2"; &none; } if (($fuses eq 'no') && ($switch eq 'yes') && ($v eq 'yes')) { $filter="CD6FA1"; $filter="CD6FM2"; &none; } if (($m eq 'flange' || $m eq '' ) && ($fuses eq 'us' || $fuses eq '' ) && ($switch eq 'no' || $switch eq '' ) && ($v eq 'yes' || $v eq '' )) { $filter="CV6FA1";&mini; } if (($m eq 'snap' || $m eq '' ) && ($fuses eq 'us' || $fuses eq '' ) && ($switch eq 'no' || $switch eq '' ) && ($v eq 'yes' || $v eq '' )) { $filter="CV6SA1";&mini; } if (($m eq 'flange' || $m eq '' ) && ($fuses eq 'metric' || $fuses eq '' ) && ($switch eq 'no' || $switch eq '' ) && ($v eq 'yes' || $v eq '' )) { $filter="CV6FM2";&mini; } if (($m eq 'snap' || $m eq '' ) && ($fuses eq 'metric' || $fuses eq '' ) && ($switch eq 'no' || $switch eq '' ) && ($v eq 'yes' || $v eq '' )) { $filter="CV6SM2";&mini; } if (($m eq 'flange') && ($fuses eq 'no') && ($switch eq 'no') && ($v eq 'yes')) { $filter[0]="CV6FA1"; $filter[1]="CV6FM2"; &none; } if (($m eq 'snap') && ($fuses eq 'no') && ($switch eq 'no') && ($v eq 'yes')) { $filter[0]="CV6SA1"; $filter[1]="CV6SM2"; &none; } if (($m eq 'flange' || $m eq '' ) && ($fuses eq 'us' || $fuses eq '' ) && ($switch eq 'yes' || $switch eq '' ) && ($v eq 'no' || $v eq '' )) { $filter="C6FA1";&mini; } if (($m eq 'snap' || $m eq '' ) && ($fuses eq 'us' || $fuses eq '' ) && ($switch eq 'yes' || $switch eq '' ) && ($v eq 'no' || $v eq '' )) { $filter="C6SA1";&mini; } if (($m eq 'flange' || $m eq '' ) && ($fuses eq 'metric' || $fuses eq '' ) && ($switch eq 'yes' || $switch eq '' ) && ($v eq 'no' || $v eq '' )) { $filter="C6FM2";&mini; } if (($m eq 'snap' || $m eq '' ) && ($fuses eq 'metric' || $fuses eq '' ) && ($switch eq 'yes' || $switch eq '' ) && ($v eq 'no' || $v eq '' )) { $filter="C6SM2";&mini; } if (($m eq 'flange') && ($fuses eq 'no') && ($switch eq 'yes') && ($v eq 'no')) { $filter[0]="C6FA1"; $filter[1]="C6FM2"; &none; } if (($m eq 'snap') && ($fuses eq 'no') && ($switch eq 'yes') && ($v eq 'no')) { $filter[0]="C6SA1"; $filter[1]="C6SM2"; &none; } if (($m eq 'flange' || $m eq '' ) && ($fuses eq 'metric' || $fuses eq '' ) && ($switch eq 'no' || $switch eq '' ) && ($v eq 'no' || $v eq '' )) { $filter="CF6FM1";&mini; $filter="CF6FM2";&mini; } if (($m eq 'snap') && ($fuses eq 'metric') && ($switch eq 'no') && ($v eq 'no')) { $filter[0]="CF6FM1"; $filter[1]="CF6FM2"; &none; } if (($fuses eq 'us') && ($switch eq 'no') && ($v eq 'no')) { $filter[0]="CF6FM1"; $filter[1]="CF6FM2"; &none; } if (($m eq 'flange' || $m eq '' ) && ($fuses eq 'no' || $fuses eq '' ) && ($switch eq 'no' || $switch eq '' ) && ($v eq 'no' || $v eq '' )) { $filter="EA6Q";&mini; $filter="EB6Q";&mini; $filter="EC6Q";&mini; $filter="EF6Q";&mini; } if (($m eq 'snap') && ($fuses eq 'no') && ($switch eq 'no') && ($v eq 'no')) { $filter[0]="EA6Q"; $filter[1]="EB6Q"; $filter[2]="EC6Q"; $filter[3]="EF6Q"; &none; } } #end of 6 amp } # end of power entry #### if there were no filters that matched ... display a message if ($ir == 0) { print ""; } ## print "
Filter Notes
High Current filters availabable with stud terminals only
High Performance filters are available with Quick Connects or Wire Lead Connections.
Try Paralleling two DL40's or two DT40's
Try Paralleling two DT40's
For 75 Amps, Parallel two HT40's
Try Paralleling two YL40's or two YT40's
Try Paralleling two YT40's
There were no filters that matched your specifications. Please change your preference or contact the factory.
"; ## } # end of sub display_results ############################################################################################################## sub error { ($error,@error_fields) = @_; print "Content-type: text/html\n\n"; if ($error eq 'bad_referer') { print "\n \n Bad Referrer - Access Denied\n \n"; print " \n
\n

Bad Referrer - Access Denied

\n
\n"; print "The form that is trying to use this FormMail Program\n"; print "resides at: $ENV{'HTTP_REFERER'}, which is not allowed to access this cgi script.

\n"; print "Sorry!\n"; print "\n"; } elsif ($error eq 'missing_fields') { print "\n \n Error: Blank Fields\n \n"; print " \n \n

\n"; print "

Error: Blank Fields

\n\n"; print "The following fields were left blank in your submission form:

\n"; # Print Out Missing Fields in a List. print "

\n"; # Provide Explanation for Error and Offer Link Back to Form. print "

\n"; print "These fields mustbe filled out before you can successfully submit\n"; print "the form. Please return to the Fill Out Form and try again.\n"; print "\n"; } exit; } # mini - display filter and notes in a table sub mini { if ($filter[0] eq "") { $filter[0] = $filter; } # loop through all of filter[] matrix and print results, but only if the filter hasn't already been displayed $i = 0; while ($filter[$i] ne "") { # if filter[$i] isn't already in repeat[] $itemp = 0; $repeats = "false"; while ($itemp <= $ir) { if ($repeat[$itemp] eq $filter[$i]) { $repeats = "true"; } $itemp = $itemp + 1; } # end while searching the repeat[] if ($repeats eq "false") { $repeat[$ir] = $filter[$i]; $ir = $ir + 1; $repeat[$ir] = ""; print ""; #print $filter[$i]; print "PDF datasheet: $filter[$i] "; print "
or HTML: $filter[$i] "; print ""; print ""; if ($notes[$i] eq "") { &lookup; } print $notes[$i]; print ""; } # end if filter[$i] isn't already in repeat[] $i = $i + 1; } # clear filter values $i = 0; while ($filter[$i] ne "") { $filter[$i] = ""; $notes[$i] = ""; $i = $i + 1; } } # end of mini sub none { if ($default eq "false") { print "No filters match your preferences exactly. The following filter(s) match your preferences best:"; $default = "true"; } &mini; } #end of sub none sub lookup { $notes[$i] = $map{$filter[$i]}; } #end of lookup