Temă casă - instalații electrice

clear all;

clc;

disp(' Tema 1 ')

disp('Calculul Puterii cerute si a Curentului Cerut de la Retea')

disp('---------------------------------------------------------')

disp('Studenti: Grupa 141 EA')

disp('Preda Georgiana-Carmen Preda Ionel Serban Vasile-Vlad')

disp(' ')

disp(' Numar Catalog')

disp('26 27 15')

disp('--------------------------------------------------------------')

N = 15;

disp('Numar de Calcul')

disp(N)

Un = 400;

Pmu1 = 11+N;

Pmu2 =37+N;

Pmu3 =2.2+N;

Pv = 2.5+N;

Pc = 15+N;

Pgs = 5+N;

Pcr = 6+N;

Pi = 3*Pmu1+Pmu2+5*Pmu3+5*Pv+5*Pc+7*Pgs+5*Pcr; %putere instalata totala

%%%interpolare

n = [4 6 10 15 20 30 40 50]; %numar de receptoare

cn = [1.7 2.5 3.3 4.3 5.5 8.1 9.5 10]; %coeficientul de corectie

ni = 1:30 ; %pasul interpolare

cni = interp1(n,cn,ni,'linear'); %valoare interpolata

disp('-------------------------------------------------------------------')

disp('Grupa I: Masini unelte cu regim de lucru normal pentru productia de serie mica')

n1 = 3; %numar receptoare subgrupa I

n2 = 1; %numar receptoare subgrupa II

n3 = 5; %numar receptoare subgrupa III

nr1 =n1+n2+n3; %%numar receptoare grupa I

Pi1 = n1*Pmu1+n2*Pmu2+n3*Pmu3; %putere instalata de masini unelte

kc1 = 0.16;

cosfic1 = 0.5;

x1 = cosfic1;

cn1 = cni(nr1);

kcp1 = kc1+((1-kc1)/cn1);

Pc1 = kcp1*Pi1;

fi1 = acos(x1);

Qc1 = Pc1*tan(fi1);

disp(' kc cos fi cn kc` Pc` Qc`')

disp([kc1 cosfic1 cn1 kcp1 Pc1 Qc1])

disp('-------------------------------------------------------------------')

disp('Grupa II: Ventilatoare')

nr2 = 5; %numar receptoare grupa II

Pi2 = nr2*Pv; %putere instalata ventilatoare

kc2 = 0.65;

cosfic2 = 0.8;

x2 = cosfic2;

cn2 = cni(nr2);

kcp2 = kc2+((1-kc2)/cn2);

Pc2 = kcp2*Pi2;

fi2 = acos(x2);

Qc2 = Pc2*tan(fi2);

disp(' kc cos fi cn kc` Pc` Qc`')

disp([kc2 cosfic2 cn2 kcp2 Pc2 Qc2])

disp('-------------------------------------------------------------------')

disp('Grupa III: Compensatoare')

nr3 =5; %numar receptoare grupa III

Pi3 =nr3*Pc; %putere instalata compensatoare

kc3 =0.85;

cosfic3 = 0.85;

x3 =cosfic3;

cn3 =cni(nr3);

kcp3 =kc3+((1-kc3)/cn3);

Pc3 =kcp3*Pi3;

fi3 =acos(x3);

Qc3 =Pc3*tan(fi3);

disp(' kc cos fi cn kc` Pc` Qc`')

disp([kc3 cosfic3 cn3 kcp3 Pc3 Qc3])

disp('--------------------------------------------------------------------')

disp('Grupa IV: Grupuri de sudura')

nr4 = 7; %numar receptoare grupa IV

Pi4 = nr4*Pgs; %putere instalata grup sudura

kc4 = 0.35;