summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/metapost/makecirc/ejemplos.mp
blob: 3b1953be694fe082b8f2424575c1c71cf975623d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
input makecirc;

initlatex("\usepackage{amsmath,amssymb}");


beginfig(1);
	source.a(origin, AC, 90,"v","220 V");
	resistor.a(S.a.p+(2cm,1cm),normal,0,"R","5\ohm");
	centreof.A(R.a.r+(2cm,0),(xpart R.a.r + 2cm,ypart S.a.n - 1cm),cap);
	capacitor.a(c.A,normal,phi.A,"C","");
	wire(S.a.p,R.a.l,udsq);
	wire(R.a.r,C.a.l,rlsq);
	wireU(S.a.n,C.a.r,-1cm,udsq);
	imesh(S.a.n+(3cm,5mm),25mm,15mm,cw,0,"i(t)");
endfig;

beginfig(2);
	source.a(origin, AC, 90,"v","220 V");
	resistor.a(S.a.p+(2cm,1cm),normal,0,"R","15\ohm");
	inductor.a(R.a.r+(2cm,-10mm),Up,-90,"L","");
	wire(S.a.p,R.a.l,udsq);
	wire(R.a.r,L.a.l,rlsq);
	wireU(S.a.n,L.a.r,-1cm,udsq);
endfig;

beginfig(3);
	source.a(origin,AC,90,"v","220 V");
	resistor.a(S.a.p+(2cm,1cm),normal,0,"R","15\ohm");
	inductor.a(R.a.r+(2cm,-10mm),Up,-90,"L","5 H");
	centerto.A(R.a.l,R.a.r)(-3.2cm,cap);
	capacitor.a(A,normal,0,"C","12 pF");
	wire(S.a.p,R.a.l,udsq);
	wire(R.a.r,L.a.l,rlsq);
	wire(S.a.n,C.a.l,udsq);
	wire(C.a.r,L.a.r,rlsq);
endfig;

beginfig(4);
	source.a(origin,AC,90,"v","");
	resistor.a(S.a.n+(2cm,5mm),normal,90,"R_L","");
	inductor.a(R.a.l,Down,-90,"L","");
	resistor.b(R.a.l+(2cm,0),normal,90,"R_C","");
	capacitor.a(R.b.l,normal,-90,"C","");
	wireU(S.a.p,R.a.r,1cm,udsq);
	wireU(S.a.n,L.a.r,-1cm,udsq);
	wire((xpart R.a.r,ypart S.a.p + 1cm),R.b.r,rlsq);
	wire(C.a.r,(xpart L.a.r,ypart S.a.n-1cm),udsq);
endfig;

beginfig(5);
	source.a(origin,AC,90,"v","");
	diode.a(S.a.p+(1cm,1cm),normal,0,pinA,"D_r","");
	impedance.a(D.a.K+(1cm,-1cm),-90,"Z_L","");
	wire(S.a.p,D.a.A,udsq);
	wire(D.a.K,Z.a.l,rlsq);
	wireU(S.a.n,Z.a.r,-1cm,udsq);
endfig;

beginfig(6);
	transformer.a(origin,mid,0);
	diode.a(tf.a.ss+(1cm,1cm),normal,0,pinA,"D_1","");
	diode.b(tf.a.si+(1cm,-1cm),normal,0,pinA,"D_2","");
	impedance.a(D.a.K+(3cm,-4mm),-90,"Z_L","300\ohm");
	wire(tf.a.ss,D.a.A,udsq);
	wire(tf.a.si,D.b.A,udsq);
	wire(D.a.K,Z.a.l,rlsq);
	wire(Z.a.r,tf.a.m,udsq);
	wire(D.b.K,D.a.K+(1cm,0),rlsq);
	junction.a(D.a.K+(1cm,0),"")(top);
	centerto.A(tf.a.pi,tf.a.ps)(-25mm,sac);
	source.a(A,AC,90,"v","220 V");
	wire(S.a.p,tf.a.ps,udsq);
	wire(S.a.n,tf.a.pi,udsq);
	centreof.A((xpart S.a.p,ypart tf.a.ps),tf.a.ps,cur);
	current.a(c.A,phi.A,"i(t)","5 A");
	imesh(tf.a.ss+(2cm,0),3cm,1cm,cw,0,"I_{cc}");
endfig;

beginfig(7);
	source.a(origin,AC,90,"v","");
	junction.a(S.a.p+(3cm,1cm),"")(top);
	diode.a(J.a,normal,-45,pinA,"D_1","");
	diode.b(D.a.K,normal,-135,pinK,"D_2","");
	diode.c(D.b.A,normal,135,pinK,"D_3","");
	diode.d(D.c.A,normal,45,pinA,"D_4","");
	junction.b(D.b.A,"")(bot);
	centerto.A(S.a.n,S.a.p)(5cm,imp);
	impedance.a(A,90,"Z_L","");
	wireU(S.a.p,D.a.A,1.5cm,udsq);
	wireU(S.a.n,D.b.A,-1.5cm,udsq);
	wire(D.a.K,Z.a.r,rlsq);
	wire(Z.a.l,Z.a.l+(0,-4mm),nsq);
	wireU(Z.a.l+(0,-4mm),D.d.A,-4cm,rlsq);
endfig;

beginfig(8);
	junction.a(origin,"1b")(bot);
	junction.b((0,4cm),"1a")(top);
	resistor.a((1cm,4cm),normal,0,"R_1","0,82\ohm");
	inductor.a(R.a.r,Up,0,"X_{L1}","0,92\ohm");
	centerto.A(J.a,J.b,4cm,res);
	resistor.b(A,normal,90,"G_{\phi}","0,41");
	centerto.B(J.a,J.b,6cm,ind);
	inductor.b(B,Down,90,"B_{\phi}","2,24");
	inductor.c(L.a.r+(2.6cm,0),Up,0,"X'_{L2}","0,9\ohm");
	resistor.c(L.c.r,normal,0,"R'_2","0,8\ohm");
	junction.c(R.c.r+(1cm,0),"2a")(top);
	junction.d(R.c.r+(1cm,-4cm),"2b")(bot);
	wire(J.a,J.d,nsq);
	wire(J.b,R.a.l,nsq);
	wireU(R.b.r,L.b.r,3mm,udsq);
	wireU(R.b.l,L.b.l,-3mm,udsq);
	wire(L.a.r,(5cm,ypart R.b.r + 3mm),rlsq);
	wire((5cm,ypart R.b.l - 3mm),(5cm,0),nsq);
	wire(R.c.r,J.c,nsq);
	wire(L.c.l,(5cm,ypart L.c.l),nsq);
	ctext(J.a,J.b,"$V_1$",noarrow);
	ctext(J.c,J.d,"$V'_2$",noarrow);
endfig;

beginfig(9);
	rheostat.a(origin,Lrheo,0);
	wire(rh.a.s,rh.a.s+(-1cm,0),udsq);
	wire(rh.a.i,(-1cm,0),nsq);
	transformer.a((5cm,0),normal,0);
	meains.a(tf.a.ps-(1cm,0),ampere,180,"");
	meains.b((xpart rh.a.r + 5mm,ypart tf.a.ps),watt,0,"");
	centerto.A(tf.a.pi,tf.a.ps,-1cm,ins);
	centerto.B(mi.a.r,mi.b.r,0,0);
	meains.c((xpart B,ypart A),volt,90,"");
	wire(rh.a.i,tf.a.pi,nsq);
	wire(rh.a.r,mi.b.l,udsq);
	wire(mi.b.r,mi.a.r,nsq);
	wire(B,mi.c.r,nsq);
	wire(mi.c.l,(xpart B,0),nsq);
	wire(mi.b.p,(xpart mi.b.p,0),nsq);
	wire(mi.a.l,tf.a.ps,nsq);
	wireU(tf.a.si,tf.a.ss,1cm,rlsq);
	current(mi.b.l-(2mm,0),0,"I_1","");
endfig;

beginfig(10);
	generator.a(origin,90,"E_g","");
	resistor.a(G.a.B,normal,90,"R_a","");
	resistor.f(G.a.D-(2cm,0),normal,90,"","");
	resistor.F(R.f.r,variable,90,"","");
	resistor.L(G.a.B+(2cm,-5mm),normal,90,"R_L","");
	current.a(R.a.r,90,"I_a","");
	wireU(i.a.d,R.L.r,5mm,udsq);
	wireU(G.a.D,R.L.l,-5mm,udsq);
	wire(i.a.d+(0,5mm),R.F.r,rlsq);
	wire(R.f.l,G.a.D-(0,5mm),udsq);
	ctext(R.f.l-(5mm,0),R.F.r-(5mm,0),"$R_f$",noarrow);
	current.f(i.a.d+(-1cm,5mm),180,"","$I_f$");
	current.L(i.a.d+(1cm,5mm),0,"I_L","");
	ctext.lft(R.f.l-(1cm,5mm),(xpart R.F.r-1cm,ypart i.a.d+5mm),"$V_f$",witharrow);
	ctext.rt((xpart R.L.l+1cm,-5mm),(xpart R.L.r+1cm,ypart i.a.d+5mm),"$V_L$",witharrow);
endfig;

beginfig(11);
	generator.a(origin,90,"E_g","500 V");
	resistor.a(G.a.B,normal,90,"R_a","");
	current.a(G.a.D+(2mm,-1cm),0,"I_a","");
	junction.A(i.a.d+(2mm,0),"A")(top);
	current.s(J.A+(4mm,0),0,"I_s","");
	resistor.s(i.s.d,normal,0,"R_s","");
	junction.B(R.s.r+(2mm,0),"B")(top);
	current.d(J.A+(4mm,-1cm),0,"I_d","54 A");
	resistor.d(i.d.d,variable,0,"R_d","");
	current.f(J.B+(2mm,5mm),90,"I_f","");
	current.L(J.B+(1cm,0),0,"I_L","");
	resistor.L(i.L.d+(1cm,1.25cm),normal,90,"R_L","");
	resistor.f(i.f.d+(0,2mm),normal,90,"","");
	resistor.F(R.f.r,variable,90,"","");
	wire(R.F.r,R.a.r,rlsq);
	wire(R.F.r,R.L.r,rlsq);
	wire(R.L.l,J.B,udsq);
	wire(J.B+(2mm,0),R.f.l,nsq);
	wire(J.B,R.d.r,udsq);
	wire(R.d.l,J.A,rlsq);
	wire(J.A,R.s.l,nsq);
	wire(R.s.r,J.B,nsq);
	wire(J.A,G.a.D,rlsq);
	puttext("$R_f$",R.f.r-(5mm,0));
endfig;

beginfig(12);
	junction.a(origin,"")(bot);
	junction.b((0,4cm),"")(top);
	ctext.lft(J.a,J.b,"$V_a=V_L=120\,\text{V}$",witharrow);
	current.L(J.b+(5mm,0),0,"I_L","");
	current.f(i.L.d+(5mm,-5mm),-90,"I_f","");
	current.a(i.L.d+(2cm,0),0,"I_a","");
	resistor.a(i.a.d+(15mm,-8mm),normal,-90,"R_a","0,25\ohm");
	motor.a(R.a.r,-90,"E_c","");
	resistor.f(i.f.d,normal,-90,"","");
	resistor.F(R.f.r,variable,-90,"","");
	puttext("$R_f$",R.f.r+(5mm,0));
	wire(J.b,R.a.l,rlsq);
	wire(J.a,M.a.B,rlsq);
	wire(i.f.s+(0,5mm),R.f.l,nsq);
	wire(R.F.r,(xpart R.F.r,0),nsq);
endfig;

beginfig(13);
	junction.a(origin,"")(bot);
	rheostat.a((5mm,2cm),Rrheo,0);
	junction.b(rh.a.s-(5mm,0),"")(top);
	resistor.a(rh.a.r+(2cm,0),normal,-90,"R_a","0,2\ohm");
	motor.a((xpart R.a.r,0),90,"E_c","");
	resistor.F(R.a.l+(2cm,0),variable,-90,"","");
	resistor.f((xpart R.F.l,0),normal,90,"","");
	wire(J.b,rh.a.s,nsq);
	wire(rh.a.r,R.a.l,nsq);
	wire(R.a.l,R.F.l,nsq);
	wire(R.F.r,R.f.r,nsq);
	wire(R.a.r,M.a.B,nsq);
	wire(J.a,R.f.l,nsq);
	ctext(J.a,J.b,"$V_a$",noarrow);
endfig;

beginfig(14);
	transistor.a(origin,pnp,0);
	junction.B(T.a.B,"B")(top);
	junction.E(T.a.E,"E")(llft);
	junction.C(T.a.C,"C")(top);
	resistor.C(T.a.C+(2cm,-5mm),normal,-90,"R_C","");
	source.CC(R.C.r,DC,-90,"V_{CC}","");
	resistor.B(T.a.B-(2cm,0),normal,-90,"R_B","");
	source.EE(R.B.r,DC,-90,"V_{BB}","");
	capacitor.a(T.a.B-(3cm,0),normal,180,"C_a","");
	junction.a(C.a.r-(1cm,0),"")(top);
	junction.b((xpart J.a,ypart S.EE.p-5mm),"")(bot);
	wire(T.a.C,R.C.l,rlsq);
	wire(T.a.B,C.a.l,nsq);
	wire(C.a.r,J.a,nsq);
	wireU(S.EE.p,S.CC.p,-5mm,udsq);
	wire(J.b,S.EE.p-(0,5mm),nsq);
	wire(T.a.E,(xpart T.a.E,ypart S.EE.p-5mm),nsq);
	current.E(T.a.E-(0,1cm),90,"I_E","");
	current.C(T.a.C+(5mm,0),0,"I_C","");
	current.B(J.B-(5mm,0),180,"I_B","");
	ctext.lft(J.a,J.b,"$E_1$",witharrow);
	wire(R.C.l,R.C.l+(1cm,0),nsq);
	wire(R.C.r,R.C.r+(1cm,0),nsq);
	ctext.rt(R.C.l+(1cm,0),R.C.r+(1cm,0),"$E_2$",witharrow);
endfig;

beginfig(15);
	source.a(origin,AC,90,"v","");
	diode.a(S.a.p+(1cm,1cm),normal,0,pinA,"D_r","");
	capacitor.a(D.a.K+(5mm,-12mm),electrolytic,-90,"C_e","");
	impedance.a(D.a.K+(2cm,-1cm),-90,"Z_L","");
	wire(S.a.p,D.a.A,udsq);
	wire(D.a.K,Z.a.l,rlsq);
	wireU(S.a.n,Z.a.r,-1cm,udsq);
	wire(D.a.K+(5mm,0),C.a.l,nsq);
	wire(C.a.r,(xpart C.a.r,ypart S.a.n-1cm),nsq);
endfig;

beginfig(16);
	transformer.a(origin,mid,0);
	diode.a(tf.a.ss+(1cm,1cm),normal,0,pinA,"D_1","");
	diode.b(tf.a.si+(1cm,-1cm),normal,0,pinA,"D_2","");
	capacitor.a(D.a.K+(3cm,-6mm),electrolytic,-90,"C_e","");
	impedance.a(D.a.K+(5cm,-4mm),-90,"Z_L","");
	wire(tf.a.ss,D.a.A,udsq);
	wire(tf.a.si,D.b.A,udsq);
	wire(D.a.K,Z.a.l,rlsq);
	wire(Z.a.r,tf.a.m,udsq);
	wire(D.b.K,D.a.K+(1cm,0),rlsq);
	junction.a(D.a.K+(1cm,0),"")(top);
	centerto.A(tf.a.pi,tf.a.ps)(-25mm,sac);
	source.a(A,AC,90,"v","");
	wire(S.a.p,tf.a.ps,udsq);
	wire(S.a.n,tf.a.pi,udsq);
	wire(D.a.K+(3cm,0),C.a.l,nsq);
	wire(C.a.r,(xpart C.a.r,ypart tf.a.m),nsq);
endfig;

beginfig(17);
	inductor.a(origin,Up,90,"","");
	inductor.b(origin,Down,90+120,"","");
	inductor.c(origin,Up,90-120,"","");
	inductor.d(origin,Up,-90,"","");
	inductor.e(origin,Down,-90-120,"","");
	inductor.f(origin,Up,-90+120,"","");
	diode.a((3cm,ypart L.a.r),normal,0,pinA,"",""); 
	diode.b((3cm,ypart L.b.r-1.2cm),normal,0,pinA,"","");
	diode.c((3cm,ypart L.c.r),normal,0,pinA,"","");
	diode.d((3cm,ypart L.d.r),normal,0,pinA,"","");
	diode.e((3cm,ypart L.e.r+1.2cm),normal,0,pinA,"","");
	diode.f((3cm,ypart L.f.r),normal,0,pinA,"","");
	centerto.A(D.e.K,(xpart D.e.K,0),2cm,imp);
	impedance.a(A,90,"Z_L","");
	wire(L.a.r,D.a.A,nsq);
	wire(L.b.r,D.b.A,udsq);
	wire(L.c.r,D.c.A,nsq);
	wire(L.d.r,D.d.A,nsq);
	wire(L.e.r,D.e.A,udsq);
	wire(L.f.r,D.f.A,nsq);
	wire(D.e.K,Z.a.r,rlsq);
	wire(Z.a.l,origin,udsq);
	wire(D.b.K,D.e.K,nsq);
	junction.a(D.e.K,"")(top);
endfig;
end.