Mã tài liệu: 38791
Số trang: 132
Định dạng: docx
Dung lượng file: 1,285 Kb
Chuyên mục: Kỹ thuật cơ khí
Máy điện không đồng bộ là loại máy điện xoay chiều chủ yếu dùng làm động cơ điện. Do kết cấu đơn giản làm việc chắc chắn ,hiệu suất cao,giá thành hạ nên động cơ không đồng bộ là một loại máy được dùng rộng rãi nhất trong các ngành kinh tế quốc dân với công suất từ vài chục đến hàng nghìn kilôoat. Trong công nghiệp thường dùng máy điện không đồng bộ làm nguồn động lực cho máy cán thép loại vừa và nhỏ,động lực cho các máy công cụ ở các nhà máy công nghiệp nhẹ ,v.v...Trong hầm mỏ dùng làm máy tời hay quạt gió.Trong nông nghiệp dùng làm máy bơm hay máy gia công nông sản phẩm. Trong đời sống hàng ngày ,máy điện không đồng bộ dần dần cũng chiếm một vị trí quan trọng: quạt gió, máy quay đĩa ,động cơ trong tủ lạnh,v.v...Tóm lại, theo sự theo sự phát triển của nền sản xuất điện khí hoá, tự động hoá và sinh hoạt hàng ngày, phạm vi ứng dụng của máy điện không đồng bộ ngày càng rộng rãi.
Động cơ điện không đồng bộ rôto lồng sóc có cấu tạo đơn giản nhất (nhất là loại rôto lồng sóc đúc nhôm ) nên chiếm một số lượng khá lớn trong loại động cơ điện công suất nhỏ và trung bỡnh . Nhược điểm của của loại này là điều chỉnh tốc độ khó khăn và dũng điện khởi động lớn ( thường bằng 6-7 lần dũng điện định mức ). Để khắc phục nhược điểm này của các động cơ, người ta đó chế tạo động cơ không đồng bộ rôto lồng sóc nhiều tốc độ và dùng rôto rónh sõu , lồng súc kộp để hạn chế dũng điện khởi động , đồng thời tăng mômen khởi động lên.
Động cơ điện không đồng bộ rôto dây quấn có thể điều chỉnh được tốc độ trong một chừng mực nhất định ,có thể tạo một mômen khởi động lớn mà dũng khởi động không lớn lắm , nhưng chế tạo khó hơn loại rôto lồng sóc , do đó giá thành cao hơn, bảo quản cũng khó hơn.
Kết cấu đề tài:
Chương I: Các thông số định mức
Chương II: Kích thước chủ yếu
Chương IV: Thiết kế dây quấn rãnh và gông rôto
Chương V: tham số của động cơ điện
Chương VI: tổn hao trong th
Chương VII: đặc tính làm việc
Chương VIII: đặc tính mở máy
| ThiÕt kÕ ®éng c¬ kh«ng ®ång bé r«to lång sãc |
MỤC MỤC
Lớp : TBĐ2 - K44 126
Phần I: Tổng quan 127
A. GIỚI THIỆU CHUNG 127
III. Phân loại máy điện không đồng bộ 129
V. Tổng quát về thiết kế tự động hoá máy điện Tæng qu¸t vÒ thiÕt kÕ tù ®éng ho¸ m¸y ®iÖn 131
Chương i : Các thông số định mức 136
1. Tốc độ đồng bộ 136
2. Đường kính ngoài Stato 136
3. Đường kính trong stato 136
Theo bảng 10-2, với số cực 2p ta tra được KD . từ đó đường kính trong D của stato được tính theo công thức 10 - 1 trang 229 TL1: 136
4. Công suất tính toán 137
5. Chiều dài tính toán lõi sắt Stato 137
6. Bước cực 137
7. Lập phương án so sánh 137
8. Dòng điện pha định mức 138
9. Sè rãnh stato 138
10. Bước rãnh Stato 138
11. Sè vòng dây tác dụng của một rãnh 138
12. Sè vòng dây nối tiếp của mét pha dây quấn Stato 139
13. Tiết diện và đường kính dây 139
14. Kiểu dây quấn 140
15. Hệ số dây quấn 140
16. từ thông khe hở không khÝ 140
17. Mật độ từ thông khe hở không khí 140
18. Xác định sơ bộ chiều dài răng Stato 141
19. Xác định sơ bộ chiều cao gông 141
20. Kích thước rãnh và cách điện rãnh 141
21. Chiều rộng răng Stato 143
22. Chiều cao gông tõ Stato 144
23. Khe hở không khí 144
Chương ii: Thiết kế dây quấn rãnh và gông rôto 145
24. Sè rãnh Rôto 145
25. Đường kính ngoài Rôto 145
26. Đường kính trục Rôto 146
27. Bước răng Rôto 146
28. Xác định sơ bộ chiều rộng răng Rôto 146
29. Dòng điện trong thanh dẫn Rôto 146
30. Dòng điện trong vành ngắn mạch 147
31. Tiết diện thanh dẫn bằng nhôm 147
32. Tiết diện vành ngắn mạch 147
33. Kích thước răng, rãnh Rôto 147
34. Kích thước vành ngắn mạch 149
35. Diện tích rãnh Rôto 149
36. Diện tích vành ngắn mạch 149
37. Bề rộng răng ở 1/ 3 chiều cao răng 149
38. Tính các kích thước thực tế 150
39. Chiều cao gông Rôto 151
40. Độ nghiêng rãnh Stato 151
Chương Iii : Tính toán mạch tõ 152
41. Hệ số khe hở không khí 152
42. Sức từ động trên khe hở không khí 152
43. Mật độ từ thông ở răng Stato 153
44. Cường độ từ trường trên răng Stato 153
45. Sức từ động trên răng Stato 153
46. Mật độ từ thông trên răng Rôto 154
47. Cường độ từ trường HZ2 154
48. Sức từ động trên răng Rôto 154
49. Hệ số bão hoà răng 154
50. Mật độ từ thông trên gông Stato 154
51. Cường độ từ trường trên gông Stato 155
52. Chiều dài gông tõ Stato 155
53. Sức từ động trên gông Stato 155
54. Mật độ từ thông trên gông Rôto 156
55. Cường độ từ trường trên gông Rôto 156
56. Chiều dài mạch từ gông tõ Stato 156
57. Sức từ động trên gông Stato 156
58. Sức từ động tổng của toàn mạch 156
59. Hệ số bão hoà toàn mạch 157
60. Dòng điện từ hoá 157
Đối với các động cơ điện có tốc độ thấp , do trị số t giảm nhá, d/t tương đối lớn nên trị số Im/ Iđm là lớn, vì vậy cosj của những máy tốc độ thấp sẽ thấp hơn những máy có tốc độ cao và ngược lại 157
Chương iV: tham số của động cơ điện 158
61. Chiều dài phần đầu nối dây quấn Stato 158
62. Chiều dài phần đầu nối của dây quấn Stato khi ra khái lõi sắt 158
63. Chiều dài trung bình 
vòng dây của dây quấn Stato 158
64. Chiều dài dây quấn của 1 pha Stato 159
65. Điện trở tác dụng của dây quấn Stato 159
66. Điện trở tác dụng của dây quấn Rôto 159
67. Hệ số quy đổi điện trở Rôto về Stato 160
68. Điện trở Rôto sau khi quy đổi về Stato 160
69. Hệ số từ tản rãnh Stato 160
70. Hệ số từ dẫn tản tạp Stato 161
71. Hệ số từ tản đầu nối 162
72. Tổng hệ số từ dẫn tản 163
73. Điện kháng tản dây quấn Stato 163
74. Hệ số từ dẫn tản rãnh Rôto 163
75. Hệ số từ tản tạp Rôto 164
76. Hệ số từ dẫn tản phần đầu nối: 165
77. Hệ số từ tản do rãnh nghiêng 165
78. Hệ số từ dẫn Rôto 165
79. Điện kháng tản dây quấn Rôto 166
80. Điện kháng tản Rôto đã quy đổi về Stato 166
81. Tính theo đơn vị tương đối 166
82. Điện kháng hỗ cảm (Khi không xét rãnh nghiêng) 166
83. Điện kháng tản khí xét đến rãnh nghiêng 166
* Tính lại trị số kE 167
Chương V : tổn hao trong thép và tổn hao cơ 167
84. Trọng lượng răng Stato 167
85. Trọng lượng gông tõ Stato 168
168
86. Tổn hao cơ bản trong lõi sắt Stato 168
169
* Tổn hao phô trong thép Stato và rôto 169
87. Tổn hao bề mặt trên răng Stato 169
88. Tổn hao bề mặt trên răng rôto 169
89. Tổn hao đập mạch trên răng Stato 170
90. Tổn hao đập mạch trong răng Rôto 170
91. Tổng tổn hao trong thép lúc không tải 171
92. Tổn hao đồng trong dây quấn Stato 171
93. Tổn hao đồng trong dây quấn Stato 172
94. Tổn hao cơ 172
95. Tổn hao không tải 172
96. Hiệu suất của động cơ 172
Chương VI: đặc tính làm việc 173
97. Bội số mômen cực đại 174
Chương VII: đặc tính mở máy của động cơ 174
98. Tham số động cơ điện khi xét đến hiệu ứng mặt ngoài của dòng điện (khi s=1) 174
99. Tham số của động cơ điện khi xét đến hiệu ứng mặt ngoài của dòng điện và sự bão hoà của từ trường tản khi s = 1 177
100. Những tham số ngắn mạch khi xét đến hiệu ứng mặt ngoà của dòng điện và sự bão hoà của từ tản. 180
101. Dòng điện mở máy khi s = 1 181
Theo công thức 10 - 53 trang 262 TL1 181
102. Bội số dòng điện mở máy khi s = 1 181
103. Bội số dòng điện mở máy 181
104. Bội số mômen mở máy 182
Chương vIIi : Tính toán nhiệt 182
105. Các nguồn nhiệt trong sơ đồ thay thế: 182
106. Nhiệt trở trên mặt lõi sắt Stato 183
107. Nhiệt trở phần đầu nối của dây quấn Stato 184
108. Nhiệt trở đặc trưng cho độ cho độ chênh nhiệt giữa không khí nóng bên trong máy và vỏ máy 185
109. Nhiệt trở bề mặt ngoài vỏ máy 185
110. Nhiệt trở trên lớp cách điện rãnh 186
111. Độ tăng nhiệt của vỏ máy với môi trường 186
112. Độ tăng nhiệt của dây quấn Stato với môi trường 187
113. Độ tăng nhiệt của của lõi sắt Stato 187
Chương IX: Trọng lượng vật liệu tác dụng 187
và chỉ tiêu kinh tế 187
114. Trọng lượng thép Sillic cần chuẩn bị sẵn 187
115. Trọng lượng đồng của dây quấn Stato 187
116. Trọng lượng nhôm Rôto 188
117. Chỉ tiêu kinh tế và vật liệu tác dụng 188
Phần III: chương trình Tính toán tự động 190
PROGRAM TINH_MAY_DIEN; 190
uses crt,nhap1,M_tu,T_so,Ins,Nhiet,DoThi,M_May; 190
var 190
Pdm,HS,cosphi,h,Dn,Amin,Amax,Bmax,Bmin, 190
Kdmin,Kdmax,Ke,LamdaMin,Lamdamax,D,Lamda,Anpha_delta,Ks, 190
Kdq,Ptt,A,Bdelta,Kd,l,l1,l2,BuocCuc,Idm,AJ, 190
J1,t1,Ur1,W1,Sdq,Ddq,Ddqcd,Anpha,phi,b41,h41,kc,y, 190
C1,C2,C3,Bz1,Bg1,d1,d2,hr1,h11,Sr_ph,Scd,Sr,Kld,b1z,h1g, 190
A_ph,Bdelta_ph,phi_ph,delta,Bgmax,Bgmin,Bzmax,Bzmin,b1z_ph,h1g_ph, 190
b1zmax,h1gmax,b1zmin,h1gmin,r1td,r2td,Ky1,ndm,Mmax,Mkd,Boi_Dong_KD,KZ_max,Z1:real; 190
i,p,ndb,mh_thep,a1,n1,Solop,Bcuc_r,Solap,lap,j,k,q1,chon_s:integer; 190
DuongDan:chuoi; 190
{---------------------------------------------------------------------} 190
Dv,Droto,b42,h42,hr2,h12,av,bv,Sr2,t2,Ki,Std,Sv,Jtd,Jv, 190
Itd,Iv,bn,h2g,b2z,dr,Bz2,Dt,Bg2,Gz2:real; 190
b2zmin, dr1, dr2, h2gmin , I2, L1f ,Gz1,Gg1:real; 190
chon, chon_brc, Dem, ii, Z2 : integer ; 190
{------------------------------------------------------------------} 190
Fdelta,Fz1,Fz2,Fg1,Fg2,Kdelta,Kz,Kmuy,Io,Iop,nuy1,nuy2,Lg2:real; 190
{-------------------------------------------------------------} 190
Tobc,ltb,ldn,r1,r2,rv,Sr1,Lamda_t2,Lamda_r2,Lamda_dn2,Gamar,Lam_da2, 190
Lamda_r1,Lamda_t1,Lamda_dn1,Lam_da1,BImm,BMmm,I2dmqd,Sdm,Lamda_rn, 190
Beta,q2,x1,x2,x12,P1,Pcu1,Pcu2,Pf,HS_tt,Pfe1,x1td,rtd,I1dm,X2td,Ke_tt, 190
Kt, To_y, r2qd, x2qd, x12td, Lg1, Pbm, Pdmach, Pfe, P0, Pco, Cosphi_tt, Mmax_tt, Sm :real; 190
{--------------**************************************---------------} 190
{HET PHAN NHAP CAC THONG SO DAU VAO VA TRA CAC KHOANG GIA TRI CUA CAC THONG SO} 190
Procedure XacDinhKichThuocChuYeu; 190
Begin 190
D:=Kd*Dn; 190
Ptt: =(Ke*Pdm)/(HS*Cosphi);{cong suat tinh toan} 190
Anpha_delta:=2/pi; 190
Ks:=pi/(2*sqrt(2)); 190
if (Solop=1)and (p>=2)then Kdq:=0.955; 190
if p = 1then Kdq:=0.905; 190
if (Solop=2)and (p>=2)then Kdq:=0.92; 190
l:=(6.1*Ptt*10000000)/(Anpha_delta*Ks*Kdq*A_ph*Bdelta_ph*Sqr(D)*ndb); 190
l1:=l;l2:=l; 190
BuocCuc:=Pi*D/(2*p); 190
Lamda:=l1/BuocCuc; 190
end; 190
{----------------*********************************-----------------} 190
{ - - - - - - - - - - - - - - - - - - - HET PHAN KICH THUOC CHU YEU--------------------} 190
(* --------------------- CHUONG TRINH CHINH -----------------------*) 190
Begin 190
clrscr; 190
ManHinh; 190
CacSoLieuDau(Pdm,hs,cosphi,kc,h,Dn,Amax,Amin,Bmax,Bmin,Kdmax,Kdmin, 190
Lamdamax,lamdamin,ke,bzmax,Bzmin,Bgmax,Bgmin,C1,C2,C3,AJ,Mmax, 190
Mkd,Boi_Dong_KD,Kz_max,p,ndb,mh_thep,solop,duongdan); 190
Solap:=0; 191
lap:=0; 191
i:=0; 191
repeat 191
i:=i+1; 191
Kd:=Kdmin+i*0.01; 191
j:=0; 191
repeat 191
j:=j+1; 191
Bdelta_ph:=Bmin+(j-1)*0.002; 191
k:=0; 191
repeat 191
k:=k+1; 191
A_ph:=Amin+(k-1)*3; 191
Solap:=Solap+1; 191
XacDinhKichThuocChuYeu; 191
ThietKeStator(solap,solop,p,Pdm,HS,cosphi,AJ,A_ph,D,Ke,Ks,Anpha_delta, 191
Buoccuc,l1,kc,Bzmin,Bzmax,Bgmin,Bgmax,Dn,C1,C2,C3,DuongDan, 191
q1,a1,n1,Bcuc_r,chon_s,Idm,J1,t1,Ur1,W1,Sdq,Ddqcd,Ddq,y,Ky1,Kdq, 191
phi,Bdelta,b41,h41,d1,d2,hr1,h11,Sr_ph,Scd,Sr,Sv,Kld,A,b1z,h1g,Delta,Z1); 191
if Kld<0. 55 then Kd:=Kd+0.01; 191
if Kld>0. 85 then 191
begin 191
writeln(' Chuong trinh da tinh voi cac thong so da cho khong tim thay ket qua'); 191
readln; 191
halt; 191
end; 191
if (Kld>=0.7)and(Kld<=0.75) THEN 191
BEGIN 191
lap := lap+1; 191
solap:=lap; 191
TINH_SO_BO_ROTO(Solap,p,DuongDan,h,cosphi,D,Bdelta, 191
Delta,l2,Bzmax,Kc,phi,Bgmax,Idm,W1,Kdq,Z1, 191
Z2,chon,b42,h42,Ki,Jtd,Jv,Droto,t2,I2,Itd,b2zmin,h2gmin,Dt, 191
Iv,Std,Sv,bn); 191
if chon = 1 then 191
begin 191
ii:=0; 191
dem:=0; 191
repeat 191
KT_RANH_QUA_LE(ii,Z2,b2zmin,Droto,h42,Dt,Std,h2gmin,Itd,Iv, 191
Dem,dr1,dr2,h12,hr2,h2g,b2z,Sr2,Jtd,av,bv,Sv,Jv,Dv); 191
if(Sr2>=Std)and(b2z>=b2zmin)and(h2g>=h2gmin)and(dr2>=0.25) then 191
begin 191
TINH_TOAN_MANH_TU(Chon,Chon_s,p,MH_THEP,b41,h41,Delta,t1,b42,t2,Bdelta,l1,Kc,hr1,b1z,d2,l2,hr2, 191
h42,b2z,dr2,dr,phi,h1g,Dn,h2g,Dt,W1,Kdq,Idm,DuongDan, 191
Kdelta,Fdelta,nuy1,nuy2,Bz1,Fz1,Bz2,Fz2,Bg1,Lg1,Lg2,Fg1,Fg2,Bg2,Kz,Kmuy, 191
Io,Iop); 191
ThongSoDinhMuc(p,Z2,a1,n1,q1,chon,solop,D,hr1,y,l1,h,W1,Sdq,Idm,Kdq,l2,Sr2,Dv,av,bv,d2, 191
c1,c2,c3,d1,b41,h41,t1,Delta,Kdelta,h12,dr,dr2,b42,h42,t2,Io,Z1, 191
ldn,ltb,L1f,R1,r1td,r2,r2qd,r2td,x1,x1td,x2,x2qd,x2td,x12,x12td,Ke_tt,rtd,rv,lamda_t2,lamda_dn2, 191
lamda_rn,lam_da2,lamda_r1,lamda_t1,lamda_dn2,lam_da1); 191
TINH_TON_HAO(DuongDan,ndb,mh_thep,p,Z2,chon,b41,delta,b1z,hr1,d2,l1,kc,Lg1,h1g, 191
Bz1,Bg1,Kdelta,Bdelta,t1,b42,t2,l2,nuy1,Bz2,hr2,dr,dr2,b2z,Dn,Z1, 191
Gz1,Gg1,Pfe1,Pbm,Gz2,Pdmach,Pco,Pfe,P0); 191
Tinh_Mmax_Cosphi_HS(Z2,x1,x12,Pfe,Io,r1,I2,r2qd,W1,Kdq,x2qd,P0, 191
sdm,I2dmqd,I1dm,cosphi_tt,P1,Pcu1,Pcu2,Pf,HS_tt, 192
sm,mmax_tt); 192
Dac_tinh_mo_may(hr2,h42,rtd,rv,Z2,W1,dr1,dr2,dr,h12,Sr2, 192
b42,lamda_t2,lamda_dn2,Lamda_rn,x2qd,lam_da2,r1,x1,beta,Ur1,ky1,Kdq, 192
Z1,delta,t1,t2,b41,h41,d1,lamda_r1,lamda_t1,lamda_dn1,lam_da1, 192
x12,Kmuy,I1dm,I2dmqd,sdm,r2qd,p,chon,a1, BImm, BMmm ); 192
end; 192
ii:=ii+1; 192
until (dr2<=0.25)or(h2g<h2gmin)or(MMAX_tt>Mmax)and(Boi_Dong_KD>=BImm)and(hs_tt-hs<0.04); 192
Writeln(' Co cac kich thuoc ranh roto thoa man Dem = ',Dem:4); 192
{ readln;halt;} 192
end; 192
if chon = 2 then 192
begin 192
ii:=0; 192
dem:=0; 192
repeat 192
KT_RANH_OVAN(ii,Z2,Droto,b2zmin,Std,h42,Dt,h2gmin,Iv, 192
Dem,Sr2,dr,h12,hr2,b2z,h2g,av,bv,Sv,Jv,Dv); 192
if(b2z>=b2zmin)and(h2g>=h2gmin)and(dr>=0.3) then 192
begin 192
TINH_TOAN_MANH_TU(Chon,Chon_s,p,MH_THEP,b41,h41,Delta,t1,b42,t2,Bdelta,l1,Kc,hr1,b1z,d2,l2,hr2, 192
h42,b2z,dr2,dr,phi,h1g,Dn,h2g,Dt,W1,Kdq,Idm,DuongDan, 192
Kdelta,Fdelta,nuy1,nuy2,Bz1,Fz1,Bz2,Fz2,Bg1,Lg1,Lg2,Fg1,Fg2,Bg2,Kz,Kmuy, 192
Io,Iop); 192
ThongSoDinhMuc(p,Z2,a1,n1,q1,chon,solop,D,hr1,y,l1,h,W1,Sdq,Idm,Kdq,l2,Sr2,Dv,av,bv,d2, 192
c1,c2,c3,d1,b41,h41,t1,Delta,Kdelta,h12,dr,dr2,b42,h42,t2,Io,Z1, 192
ldn,ltb,L1f,R1,r1td,r2,r2qd,r2td,x1,x1td,x2,x2qd,x2td,x12,x12td,Ke_tt,rtd,rv,lamda_t2,lamda_dn2, 192
lamda_rn,lam_da2,lamda_r1,lamda_t1,lamda_dn1,lam_da1); 192
TINH_TON_HAO(DuongDan,ndb,mh_thep,p,Z2,chon,b41,delta,b1z,hr1,d2,l1,kc,Lg1,h1g, 192
Bz1,Bg1,Kdelta,Bdelta,t1,b42,t2,l2,nuy1,Bz2,hr2,dr,dr2,b2z,Dn,Z1, 192
Gz1,Gg1,Pfe1,Pbm,Gz2,Pdmach,Pco,Pfe,P0); 192
Tinh_Mmax_Cosphi_HS(Z2,x1,x12,Pfe,Io,r1,I2,r2qd,W1,Kdq,x2qd,P0, 192
sdm,I2dmqd,I1dm,cosphi_tt,P1,Pcu1,Pcu2,Pf,HS_tt, 192
sm,mmax_tt); 192
Dac_tinh_mo_may(hr2,h42,rtd,rv,Z2,W1,dr1,dr2,dr,h12,Sr2, 192
b42,lamda_t2,lamda_dn2,Lamda_rn,x2qd,lam_da2,r1,x1,beta,Ur1,ky1,Kdq, 192
Z1,delta,t1,t2,b41,h41,d1,lamda_r1,lamda_t1,lamda_dn1,lam_da1, 192
x12,Kmuy,I1dm,I2dmqd,sdm,r2qd,p,chon,a1, BImm, BMmm ); 192
end; 192
{ readln;} 192
ii:=ii+1; 192
until (h2g < h2gmin)or(dr < 0.3)or(MMAX_tt>Mmax)and(Boi_Dong_KD>=BImm)and(abs(hs_tt-hs)/hs<0.02) 192
and(abs(cosPhi_tt-cosPhi)/cosPhi<0.01); 192
Writeln(' Co cac kich thuoc ranh roto thoa man Dem = ',Dem:4); 192
end; 192
lap := lap+1; 192
END; 192
until(mmax_tt>Mmax)and(BMmm>Mkd)and(Boi_Dong_KD>=BImm)and(abs(hs_tt-hs)/hs<0.02) 192
and(abs(cosPhi_tt-cosPhi)/cosPhi<0.01)or(A_ph>Amax); 192
until(mmax_tt>Mmax)and(BMmm>Mkd)and(Boi_Dong_KD>=BImm)and(abs(hs_tt-hs)/hs<0.02) 192
and(abs(cosPhi_tt-cosPhi)/cosPhi<0.01)or(Bdelta_ph>Bmax); 192
until(mmax_tt>Mmax)and(BMmm>Mkd)and(Boi_Dong_KD>=BImm)and(abs(hs_tt-hs)/hs<0.02) 192
and(abs(cosPhi_tt-cosPhi)/cosPhi<0.01)or(Kd>Kdmax); 192
DAC_TINH_LAM_VIEC(DuongDan,x1,x12,Pfe,P0,Io,r1,r2qd,x2qd,Pdm,sdm,I1dm,I2dmqd, 193
ndb,P1,cosphi_tt,HS_tt,ndm,Mmax,Sm); 193
IN_KET_QUA(Pdm,Kd,A,Bdelta,h,Dn,D,l1,buoccuc,lamda,Z1,q1,Ur1,W1, 193
AJ,Sdq,Ddqcd,Ddq,y,beta,kdq,h41,b41,d1,d2,hr1,h11,b1z,h1g,Sr_ph,Scd,Sr, 193
Kld,t1,Delta,C1,c2,c3,h42,b42,dr1,dr2,dr,hr2,h12,b2z,h2g,Sr2,Z2,Dt,av,bv, 193
Sv,Iv,Itd,Kdelta,Fdelta,Fz1,Fz2,Fg1,Fg2,Kz,Lg1,Lg2,Kmuy,Io,Iop,ldn,ltb, 193
L1f,r1,R1td,r2,r2qd,r2td,X1,X1td,X2,X2qd,X2td,X12,X12td,Ke,Ke_tt,Gz1,Gg1, 193
Gz2,Pfe1,Pbm,Pdmach,Pfe,Pco,P0,Cosphi_tt,Hs_tt,Sdm,Pcu1,Pcu2,Pf,Sm,Mmax_tt, 193
P1,BImm,BMmm,J1,Jv,Jtd,hs,cosphi,MH_THEP,p,a1,n1,Bcuc_r,chon); 193
INFILE(Pdm,kd,A,Bdelta,h,Dn,D,l1,buoccuc,Lamda,Z1,q1,ur1,w1,AJ,Sdq,y,Beta,kdq,b41,d1, 193
d2,ddqcd,ddq,h41,hr1,h11,b1z,h1g,Bz1,Bzmin,Bzmax,J1,Sr_ph,Scd,Sr,kld,t1,delta,c1,c2,c3,h42, 193
b42,dr1,dr2,dr,hr2,h12,b2z,Bz2,Bzmax,h2g,Sr2,Z2,Jv,Jtd,Dt,av,bv,Sv,Iv,Itd,Fz1,Fz2,Fg1,Fg2,kz, 193
Lg1,Lg2,kmuy,Io,Iop,ldn,Kdelta,Fdelta,ltb,L1f,R1,R1td,R2,R2qd,R2td,X1,X1td,X2,X2qd,X2td,X12, 193
X12td,Ke,Ke_tt,Gz1,Gg1,Gz2,Pfe1,Pbm,Pfe,Pco,P0,Hs,Hs_tt,Sdm,Pcu1,Pcu2,Pf,Sm,P1,BImm,BMmm,Pdmach, 193
cosphi,cosphi_tt,Mmax,Mmax_tt,MH_THEP,p,a1,n1,Bcuc_r,chon); 193
TinhNhiet(W1,Droto,ndm,Z1,ldn,Ddqcd/10,Pfe1*1000,Pcu1*1000,Pcu2*1000,Pf*1000, 193
Pbm*1000,Pco*1000,Pdmach*1000,h1g,l,Dn,Sr,To_y,solop,p); 193
Tinhkt(Dn,l1,l2,kc,Sdq,Ddqcd,ddq,Pdm,ltb,Dv,Sv,Std,Z1,Z2,Ur1,n1); 193
VeDacTinh(Pdm,I1dm,sdm,DuongDan); 193
Clrscr; 193
Writeln(' Qua trinh tinh toan da ket thuc hay go ENTER de thoat ra'); 193
readln; 193
end.UNIT NHAP1; {Nhap cac thong so va cac bang du lieu thong qua mang} 193
INTERFACE 193
USES CRT; 193
TYPE 193
chuoi=string[25]; 193
Mang=array[1..210] of real; 193
procedure Readtext; 193
procedure ChonLai(ten: string;var giatri:real); 193
procedure CacSoLieuDau(var Pdm,hs,cosphi,kc,h,Dn,Amax,Amin,Bmax,Bmin,Kdmax,Kdmin, 193
Lamdamax,lamdamin,ke,bzmax,Bzmin,Bgmax,Bgmin,C1,C2,C3,AJ,Mmax, 193
Mkd,Boi_Dong_KD,Kz_max:real; var p,ndb,mh_thep,solop:integer; var duongdan:chuoi); 193
IMPLEMENTATION 193
var 193
tg1,tg2,tg3:mang; 193
PROCEDURE Readtext; 193
Var 193
f: text; 193
I:integer; 193
st:string; 193
Begin 193
assign(f,'C:\tp7\DuLieu-k44\help.txt'); 193
reset(f); 193
while not(eof(f)) do 193
begin 193
readln(f,st); 193
writeln(st); 193
end; 193
readln; 193
close(f); 193
End; 193
PROCEDURE ChonLai (ten: string;var giatri:real); 193
var ch:char; 193
begin 193
Writeln(' Gia tri ',ten,' da chon la:',giatri:6:0); 194
Writeln(' Co chon lai ',ten,' khong (c/k)'); 194
readln(ch); 194
If (ch='c')or(ch='C') then 194
begin 194
write(' Chon gia tri moi cua ',ten,' la :'); 194
readln(giatri); 194
end 194
else exit; 194
end; 194
{-------------------------------------------------------------} 194
Procedure CacSoLieuDau(var Pdm,hs,cosphi,kc,h,Dn,Amax,Amin,Bmax,Bmin,Kdmax,Kdmin, 194
Lamdamax,lamdamin,ke,bzmax,Bzmin,Bgmax,Bgmin,C1,C2,C3,AJ,Mmax, 194
Mkd,Boi_Dong_KD,Kz_max:real; var p, ndb, mh_thep, solop:integer;var duongdan:chuoi); 194
PROCEDURE DocSolieu2(TenFile:chuoi); {ham doc so lieu 2 day bien} 194
var 194
F:text; 194
i:integer; {i la cac bien trong file} 194
begin 194
assign(F,DuongDan+TenFile); {gan ten file cho kieu file F} 194
reset(F); {mo file da co tren dia de doc hoac ghi} 194
i:=1; 194
While not eof(F) do { doc bien tu dau file cho den cuo file } 194
begin {ghi cac bien trong file tuong ung vao 194
bien TG1[i],tg2[i]} 194
read(F,TG1[i],tg2[i]); 194
i:=i+1; 194
end; 194
close(F); 194
{ket thuc doc file} 194
end; 194
{--------------------------------------------------------------} 194
PROCEDURE DocSolieu3(TenFile:chuoi); {doc so lieu 3 day bien tu dia} 194
var 194
F:text; 194
i:integer; 194
begin 194
assign(F,DuongDan+TenFile); 194
reset(F); 194
i:=1; 194
While not eof(F) do 194
begin 194
read(F,tg1[i],tg2[i],tg3[i]); 194
{writeln(tg1[i]:8:3,tg2[i]:8:3,tg3[i]:8:3);} 194
{readln;} 194
i:=i+1; 194
end; 194
close(F); 194
end; 194
{----------------------------------------------------------------} 194
PROCEDURE Noi_suy2(BNS: REAL;Var GTNS:REAL) ; {chung trinh noi suy} 194
var i:integer; 194
Begin 194
i:=0; 194
Repeat 194
i:=i+1; 194
until BNS <= tg1[i]; { BNS : Bien ma ta can noi suy} 194
GTNS:= tg2[i-1]+(tg2[i]-tg2[i-1])*(BNS-tg1[i-1])/(tg1[i]-tg1[i-1]); 194
End; 194
{--------------------------------------------------------------} 194
PROCEDURE Noi_suy3(BNS: REAL;Var GTNS1,GTNS2:REAL) ; 195
var i:integer; 195
Begin 195
i:=0; 195
Repeat 195
i:=i+1; 195
until BNS <= tg1[i]; { BNS : Bien ma ta can noi suy} 195
GTNS1:= tg2[i-1]+(tg2[i]-tg2[i-1])*(BNS-tg1[i-1])/(tg1[i]-tg1[i-1]); 195
GTNS2:= tg3[i-1]+(tg3[i]-tg3[i-1])*(BNS-tg1[i-1])/(tg1[i]-tg1[i-1]); 195
End; 195
{-------------------------------------------------------------} 195
PROCEDURE NhapMmax_Mkd; 195
PROCEDURE Chon_Mmax; 195
begin 195
Case p of 195
1: DocSoLieu2('mmax2.txt'); 195
2: DOCSOLIEU2('mmax4.txt'); 195
3: DOCSOLIEU2('mmax6.txt'); 195
4: DOCSOLIEU2('mmax8.txt'); 195
end; 195
NOI_SUY2(Pdm,mmax); 195
end; 195
PROCEDURE Chon_Mkd; 195
begin 195
Case p of 195
1:DOCSOLIEU2('mk_2.txt'); 195
2:DOCSOLIEU2('mk_4.txt'); 195
3:DOCSOLIEU2('mk_6.txt'); 195
4:DOCSOLIEU2('mk_8.txt'); 195
end; 195
NOI_SUY2(Pdm,Mkd); 195
end; 195
PROCEDURE Chon_Ikd; 195
begin 195
Case p of 195
1:DOCSOLIEU2('Ik_2.txt'); 195
2:DOCSOLIEU2('Ik_4.txt'); 195
3:DOCSOLIEU2('Ik_6.txt'); 195
4:DOCSOLIEU2('Ik_8.txt'); 195
end; 195
NOI_SUY2(Pdm,Boi_dong_kd); 195
end; 195
begin 195
Chon_mmax; 195
Chon_mkd; 195
Chon_ikd; 195
Writeln(' Boi so momen lon nhat la:Mmax=',mmax:5:1) ; 195
Writeln(' Boi so momen khoi dong la:Mkd=',mkd:5:1); 195
Writeln(' Boi so dong khoi dong la:Ikd=',Boi_dong_kd:5:1); 195
end; 195
PROCEDURE NhapCongSuat; {A4} {nhap cac so lieu cho truoc cua may dien} 195
Begin 195
clrscr; 195
repeat 195
Writeln(' DAY CONG SUAT DINH MUC TRONG CHUONG TRINH THIET KE TU DONG(KW) '); 195
Writeln(' **************************************************************** '); 195
Writeln(' '); 195
Writeln(' 1. 1 1. 5 2. 2 3. 0 4. 0 5. 5 7. 5 11 15 18. 5 22 30 37 45 55 75 '); 195
write(' Vao cong suat dinh muc: Pdm (KW)= ');readln(Pdm); 195
until(Pdm=1. 1)or(Pdm=1. 5)or(Pdm=3. 0)or(Pdm=4. 0)or(Pdm=5. 5)or(Pdm=7. 5)or(Pdm=11)or 196
(Pdm=15)or(Pdm=18.5)or(Pdm=22)or(Pdm=30)or(Pdm=37)or(Pdm=45)or(Pdm=55)or(Pdm=75); 196
end; 196
{-----------------------------------------------------------} 196
PROCEDURE SoCuc; 196
begin 196
repeat 196
Write(' Vao so cuc cua dong co(1,2,3,4): p = ');readln(p); 196
until (p=1)or(p=2)or(p=3)or(p=4); 196
ndb:=trunc(3000/p); 196
end; 196
{------------------------------------------------------------} 196
PROCEDURE ChonHSvaCosphi; 196
var chon:char; 196
Procedure ChonHS; 196
begin 196
case p of 196
1: DOCSOLIEU2('TraHS1.txt'); 196
2: DOCSOLIEU2('TraHS2.txt'); 196
3: DOCSOLIEU2('TraHS3.txt'); 196
4: DOCSOLIEU2('TraHS4.txt'); 196
end; 196
NOI_SUY2(Pdm,HS); 196
end; 196
Procedure ChonCosphi; 196
begin 196
case p of 196
1: DOCSOLIEU2('Tracos1.txt'); 196
2: DOCSOLIEU2('Tracos2.txt'); 196
3: DOCSOLIEU2('Tracos3.txt'); 196
4: DOCSOLIEU2('Tracos4.txt'); 196
end; 196
NOI_SUY2(Pdm,Cosphi); 196
end; 196
{---------------------------------------------------------} 196
begin 196
writeln(' Vao Hieu Suat dong co: '); 196
writeln(' May se tu dong chon theo tieu chuan hieu suat va cosphi hoac nhap bang tay'); 196
writeln(' Neu de may tu dong chon ban go so-------------: 1'); 196
writeln(' Neu ban muon tu nhap hieu suat va cosphi go so: 2'); 196
repeat 196
write(' Ban chon phuong an ---------------------------- ') ; 196
readln(chon); 196
until (chon='1')or(chon='2'); 196
If chon='1' then 196
begin 196
ChonHS; 196
ChonCosphi; 196
Writeln(' hieu suat=',hs:6:3,' cosphi=',cosphi:6:3); 196
end 196
else 196
begin 196
repeat 196
write(' Chon hieu suat = ');readln(HS); 196
if (hs < 0 ) or (hs > 1) then 196
Writeln(' Hieu suat phai > 0 va < 1 , chon lai'); 196
until (hs >= 0 ) and (hs <= 1); 196
repeat {chi cho phep nhap cosphi trong khoang tu 0 den 1} 196
write(' Chon he so Cosphi = ');readln(Cosphi); 196
if (Cosphi < 0 ) or (Cosphi > 1) then 197
Writeln(' Ban da nhap nham ?! , nhap lai '); 197
until (Cosphi >= 0 ) and (Cosphi <= 1); 197
end; 197
end; 197
{-------------------------------------------------------------} 197
PROCEDURE ChonMaHieuThep; 197
begin 197
writeln(' - - - - - - - - - CAC MA HIEU THEP SU DUNG DUOC CHO THEO BANG DUOI DAY -------'); 197
writeln(' ------ Quy dinh ma hieu nhap theo cac so : 1: 2013-nga'); 197
writeln(' ---------------------------------------------------: 2: 2211-nga'); 197
writeln(' ---------------------------------------------------: 3: 2312-nga'); 197
writeln(' ---------------------------------------------------: 4: 2411-nga'); 197
repeat {chi cho phep duoc chon 4 loai thep da duoc in ra tren man hinh} 197
writeln(' Chon ma hieu thep bang tren theo so da cho : ') ; 197
write(' ------------------------------------------------ Mh_Thep='); 197
readln(mh_thep); 197
until (Mh_Thep=1)or(Mh_Thep=2)or(Mh_Thep=3)or(Mh_Thep=4); 197
repeat 197
writeln(' ÚÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿'); 197
writeln(' ³ Chieu day ³ Bang he so lap day cac loai thep ³'); 197
writeln(' ³ la thep ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´'); 197
writeln(' ³ [mm] ³ Khong phu son ³ Co phu son ³'); 197
writeln(' ÃÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´'); 197
writeln(' ³ 0. 5 ³ 0. 95 ³ 0. 93 ³'); 197
writeln(' ÃÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´'); 197
writeln(' ³ 0. 35 ³ 0. 93 ³ 0. 91 ³'); 197
writeln(' ÀÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ'); 197
Write(' Tra bang tren chon he ep chat loi thep: kc = ');readln(kc); 197
until (kc>0.9) and (kc<0.98); 197
end; 197
{------------------------------------------------------------} 197
PROCEDURE VaoDuongDan; {nhap duong dan vao file du lieu} 197
begin 197
writeln(' Hay vao duong dan cua cac file du lieu, neu go ENTER thi se mac dinh duong dan'); 197
write(' Nhap duong dan vao file du lieu : = '); 197
readln(DuongDan); {vao duong dan cua cac file can doc} 197
if DuongDan=' ' then 197
DuongDan:='C:\TP\DONGCO_K44\DULIEU\'; 197
end; 197
{--------------------------------------------------------------} 197
PROCEDURE ChonChieuCao_h; {chon chieu cao tam truc theo cong suat va so doi cuc} 197
begin 197
case p of 197
1:DOCSOLIEU2('HTRUC2.TXT'); 197
2:DOCSOLIEU2('HTRUC4.TXT'); 197
3:DOCSOLIEU2('HTRUC6.TXT'); 197
4:DOCSOLIEU2('HTRUC8.TXT'); 197
end; 197
NOI_SUY2(Pdm,h); 197
writeln(' Chieu cao tam truc da chon la:h=',h:5:0); 197
end; 197
{--------------------------------------------------------------} 197
PROCEDURE ChonKieuDayQuan; 197
begin 197
repeat 198
if h< = 160 then 198
Writeln(' Chieu cao tam truc may =' ,h:5:0,'(mm)<=160(mm) ban nen dung day quan 1 lop'); 198
if h > 160 then 198
Writeln(' Chieu cao tam truc may =' ,h:5:0,'(mm)>160(mm) ban nen dung day quan 2 lop'); 198
Write(' Dung day quan 1 lop hay day quan 2 lop: ');readln(solop); 198
until (solop=1)or(solop=2); 198
end; 198
{----------------------------------------------------------} 198
PROCEDURE TinhDn; 198
begin 198
DOCSOLIEU2('Tra_Dn.txt'); 198
NOI_SUY2(h,Dn); 198
writeln(' Duong kinh ngoai Dn = ',Dn:8:1,'(cm) Cao tam truc H = ',h:8:0,'(mm)'); 198
end; 198
{_-------------------------------------------------------------} 198
PROCEDURE XacDinh_Amax_Amin; 198
begin 198
case p of 198
1:DOCSOLIEU3('Tra_A1.txt'); 198
2:DOCSOLIEU3('Tra_A2.txt'); 198
3:DOCSOLIEU3('Tra_A3.txt'); 198
4:DOCSOLIEU3('Tra_A4.txt'); 198
end; 198
NOI_SUY3(Dn,Amin,Amax); 198
Writeln(' Amin = ',Amin:8:1,' Amax = ',Amax:8:1); 198
end; 198
{---------------------------------------------------------------} 198
PROCEDURE XacDinh_Bmax_Bmin; 198
begin 198
case p of 198
1:DOCSOLIEU3('Tra_B1.txt'); 198
2:DOCSOLIEU3('Tra_B2.txt'); 198
3:DOCSOLIEU3('Tra_B3.txt'); 198
4:DOCSOLIEU3('Tra_B4.txt'); 198
end; 198
NOI_SUY3(Dn,Bmin,Bmax); 198
Writeln(' Bmin = ',Bmin:8:3,' Bmax = ',Bmax:8:3); 198
end; 198
{---------------------------------------------------------------} 198
PROCEDURE XacDinh_Kdmax_Kdmin; 198
begin 198
DOCSOLIEU3('TraKd.txt'); 198
Kdmin:=tg2[p]; 198
Kdmax:=tg3[p]; 198
writeln('Kdmin= ', Kdmin:8:3, 'Kdmax = ',Kdmax:8:3); 198
end; 198
{---------------------------------------------------------------} 198
PROCEDURE XacDinh_Ke; 198
begin 198
case p of 198
1:DOCSOLIEU2('Tra_Ke_2.txt'); 198
2:DOCSOLIEU2('Tra_Ke_4.txt'); 198
3:DOCSOLIEU2('Tra_Ke_6.txt'); 198
4:DOCSOLIEU2('Tra_Ke_8.txt'); 198
end; 198
NOI_SUY2(Dn,Ke); 198
writeln(' He so Ke = ',Ke:8:3); 198
end; 198
{---------------------------------------------------------------} 198
PROCEDURE XacDinh_Lamda_GioiHan; {Dung de tinh toan kinh te} 199
begin 199
if (h<=250) then 199
case p of 199
1: begin 199
LamdaMin:=0.4; 199
LamdaMax:=0.75; 199
end; 199
2: begin 199
LamdaMin:=0.8; 199
LamdaMax:=1.25; 199
end; 199
3: begin 199
LamdaMin:=1.2; 199
LamdaMax:=1.6; 199
end; 199
4: begin 199
LamdaMin:=1.5; 199
LamdaMax:=2.05; 199
end; 199
end; 199
if (h>=280) then 199
case p of 199
3: begin 199
LamdaMin:=0.9; 199
LamdaMax:=1.12; 199
end; 199
4: begin 199
LamdaMin:=1.13; 199
LamdaMax:=1.45; 199
end; 199
end; 199
end; 199
{--------------------------------------------------------------} 199
PROCEDURE XacDinhBgmaxBgmin; 199
begin 199
If h< = 132 then DOCSOLIEU3('TraBg132.txt'); 199
If h> = 160 then DOCSOLIEU3('TraBg160.txt'); 199
Bgmin:=tg2[p]; 199
Bgmax:=tg3[p]; 199
end; 199
{---------------------------------------------------------------} 199
PROCEDURE XacDinhBzmaxBzmin; 199
begin 199
If h< = 132 then DOCSOLIEU3('TraBz132.txt'); 199
If h> = 160 then DOCSOLIEU3('TraBz160.txt'); 199
Bzmin:=tg2[p]; 199
Bzmax:=tg3[p]; 199
end; 199
{---------------------------------------------------------------} 199
PROCEDURE BeDayCachDien; 199
Begin 199
If h<= 80 then 199
begin 199
c1 := 0. 02 ; 199
c2 := c1 ; 199
c3 := 0. 03 ; 199
end; 199
If (h>80)and(h<=132) then 199
begin 199
c1 := 0. 025 ; 200
c2 := c1 ; 200
c3 := 0. 035 ; 200
end; 200
If (h>132)and(h<=250) then 200
begin 200
c1 := 0. 04 ; 200
c2 := c1 ; 200
c3 := 0. 05 ; 200
end; 200
End; 200
{-----------------------------------------------------------------} 200
PROCEDURE XacDinhAJ; 200
begin 200
case p of 200
1:DOCSOLIEU2('AJ_2.txt'); 200
2:DOCSOLIEU2('AJ_4.txt'); 200
3:DOCSOLIEU2('AJ_6.txt'); 200
4:DOCSOLIEU2('AJ_8.txt'); 200
end; 200
NOI_SUY2(Dn,AJ); 200
writeln(' Tri so AJ tra duoc la:AJ=',AJ:5:0); 200
AJ:=AJ-0.3*AJ; 200
end; 200
{---------------------------------------------------------------} 200
begin 200
NhapCongSuat; 200
SoCuc; 200
VaoDuongDan; 200
NhapMmax_Mkd; 200
ChonMaHieuThep; 200
ChonChieuCao_h; 200
ChonKieuDayQuan; 200
ChonHSvaCosphi; 200
TinhDn; 200
XacDinh_Amax_Amin; 200
XacDinh_Bmax_Bmin; 200
XacDinh_Kdmax_Kdmin; 200
XacDinh_Ke; 200
XacDinh_Lamda_GioiHan; 200
XacDinhBgmaxBgmin; 200
XacDinhBzmaxBzmin; 200
BeDayCachDien; 200
XacDinhAJ; 200
READLN; 200
end; 200
END. 200
UNIT M_May; {Tinh cac thong so o che do khoi dong} 200
INTERFACE 200
USES CRT,nhap1; 200
PROCEDURE Dac_tinh_mo_may(hr2,h42,rtd,rv,Z2,W1,dr1,dr2,dr,h12,Sr2, 200
b42,lamda_t2,lamda_dn2,Lamda_rn,x2qd,lamda2,r1,x1,beta,Ur1,ky1,Kdq, 200
Z1,delta,t1,t2,b41,h41,d1,lamda_r1,lamda_t1,lamda_dn1,lam_da1, 200
x12, Kmuy, I1dm, I2dmqd, sdm, r2qd:real;p, chon, a1:integer;var BImm, BMmm :real); 200
PROCEDURE DAC_TINH_LAM_VIEC(DuongDan:chuoi; x1,x12,Pfe,P0,Io,r1,r2qd,x2qd,Pdm,sdm,I1dm,I2dmqd:real; 200
ndb:integer; 200
Var P1,cosphi_tt,HS_tt,ndm,Mmax,Sm: real); 200
IMPLEMENTATION 200
PROCEDURE DAC_TINH_LAM_VIEC(DuongDan:chuoi; x1,x12,Pfe,P0,Io,r1,r2qd,x2qd,Pdm,sdm,I1dm,I2dmqd:real; 201
ndb:integer; 201
Var P1,cosphi_tt,HS_tt,ndm,Mmax,Sm: real); 201
VAR 201
Pcu1_ph,Pcu2_ph,Pf_ph,I2_2ph,XicmaP,I2maxqd,s,I2qd,I1,P2,Idbr,rns,xns,Zns, 201
I1x,I1r,Cosphi2_ph,sinphi2_ph,BMmen,C11,C12:real; 201
TG1,TG2,TG3,TG4,TG5,tg6,tg7,tg8:mang; 201
i:integer; 201
Procedure NOI_SUY2(tg1, tg2:mang;BNS:REAL;Var GTNS:REAL) ; 201
var i:integer; 201
Begin 201
i:=0; 201
Repeat 201
i:=i+1; 201
until BNS <= TG1[i]; 201
GTNS:= TG2[i-1]+(TG2[i]-TG2[i-1])*(BNS-TG1[i-1])/(TG1[i]-TG1[i-1]); {GTNS : Gia tri noi suy} 201
End; 201
Procedure GHI_KET_QUA5(TenFile:chuoi;GiaTri:mang); {ghi so lieu tinh duoc vao dia} 201
var 201
F:text; 201
i:integer; 201
begin 201
Assign(F,DuongDan+tenFile); {gan filename cho infile} 201
rewrite(F); {mo file de ghi tu dau } 201
for i: =1 to 150 do {ghi 200 gia tri vao file} 201
writeln(F,GiaTri[i]:8:5); 201
close(F); {moi lan ghi vao lai dong file} 201
end; 201
{-------------------------------------------------------------------} 201
Begin 201
s:=0.0005; 201
for i: =1 to 150 do 201
begin 201
C11:= 1+x1/x12; 201
C12:=sqr(c11); 201
Idbr:= (Pfe * 1000 + 3*sqr(Io)*r1)/(3*220); 201
rns:= sqr(C11)*(r1/C11 + r2qd/s); 201
xns:= sqr(C11)*(x1/C11 + x2qd); 201
zns:= sqrt(sqr(rns) + sqr(xns)); 201
cosphi2_ph:=rns/Zns; 201
sinphi2_ph:=Xns/Zns; 201
I2_2ph:=220/Zns; 201
I2qd:=C11*I2_2ph; 201
I1r :=Idbr+I2_2ph*cosphi2_ph; 201
I1x:=Io+I2_2ph*sinphi2_ph; 201
I1:=sqrt(sqr(I1r)+sqr(I1x)); 201
Cosphi_tt:=I1r/I1; 201
P1:=3*220*I1r/1000; 201
Pcu1_ph:=3*r1*sqr(I1)/1000; 201
Pcu2_ph:=3*r2qd*sqr(I2qd)/1000; 201
Pf_ph:=0.005*P1; 201
XicmaP:=Pcu1_ph+Pcu2_ph+P0+Pf_ph; 201
P2:=P1-XicmaP; 201
HS_tt:=P2/P1; 201
tg1[i]:=s; 201
tg2[i]:=HS_TT; 201
tg3[i]:=Cosphi_tt; 201
tg4[i]:=I1; 201
tg5[i]:=P2; 201
tg6[i]:=I2qd; 201
tg8[i]:=P1; 202
s:=0.0005+i*0.001; 202
end; 202
NOI_SUY2(tg5,tg1,Pdm,Sdm) ; 202
NOI_SUY2(tg5,tg2,Pdm,hs_tt) ; 202
NOI_SUY2(tg5,tg3,Pdm,cosphi_tt) ; 202
NOI_SUY2(tg5,tg4,Pdm,I1dm) ; 202
NOI_SUY2(tg5,tg6,Pdm,I2dmqd) ; 202
NOI_SUY2(tg5,tg8,Pdm,P1) ; 202
ndm:=ndb*(1-sdm); 202
for i: =1 to 100 do 202
begin 202
BMmen:=sqr(tg6[i]/I2dmqd)*Sdm/tg1[i]; 202
tg7[i]:=BMmen; 202
end; 202
i:=0; 202
repeat 202
i:=i+1; 202
until tg7[i]>tg7[i+1]; 202
Mmax:=tg7[i]; 202
Sm:=tg1[i]; 202
clrscr; 202
GHI_KET_QUA5('S_P2.txt',tg1); 202
GHI_KET_QUA5('HS_p2.txt',tg2); 202
GHI_KET_QUA5('Cos_p2.txt',tg3); 202
GHI_KET_QUA5('I1_p2.txt',tg4); 202
GHI_KET_QUA5('P2.txt',tg5); 202
writeln(' MAY DA GHI CAC THONG SO DAC TINH LAM VIEC VAO FILE '); 202
WRITELN(' DUONG DAN DEN CAC FILE LA:',DUONGDAN); 202
WRITELN(' GO ENTER DE TIEP TUC!'); 202
REPEAT UNTIL KEYPRESSED; 202
End; 202
PROCEDURE Dac_tinh_mo_may(hr2,h42,rtd,rv,Z2,W1,dr1,dr2,dr,h12,Sr2, 202
b42,lamda_t2,lamda_dn2,Lamda_rn,x2qd,lamda2,r1,x1,beta,Ur1,ky1,Kdq, 202
Z1,delta,t1,t2,b41,h41,d1,lamda_r1,lamda_t1,lamda_dn1,lam_da1, 202
x12, Kmuy, I1dm, I2dmqd, sdm, r2qd:real;p, chon, a1:integer;var BImm, BMmm :real); 202
VAR 202
r2ph_s,Inbh_s,Lamr2_s,x1bh,x2ph_sbh,C2ph_sbh,I2ph_mm,I1mm,x12n,In_s:real; 202
{------------------------------------------------------------------} 202
Procedure tinhIn_s; {Tinh dong ngan mach khi xet den hieu ung mat ngoai} 202
var 202
Si,Phi_mm,Son,rtd_s,r2_s,X_Lar2_s,x2ph_s,rn_s,xn_s,Zn_s,Srr:real; 202
begin 202
Si:=0.67*(hr2-h42); 202
if Si> = 2 then Phi_mm:=0.85+1.075*(Si-2) else 202
if Si>=1. 6 then Phi_mm:=0. 42+4. 3*(Si-1. 6)/4 else 202
if Si>=1. 2 then Phi_mm:=0. 15+2. 7*(Si-1. 2)/4 else 202
if Si> = 1 then Phi_mm:=0. 1+0. 05*(Si-1)/0. 2 else 202
if Si>=0. 4 then Phi_mm:=(Si-0. 4)/6 else 202
Phi_mm:=0; 202
if Si>=2. 6 then Son:=0. 37+2*(4-Si)/15 else 202
if Si>=1. 8 then Son:=0.57+0.3*(2.6-Si) else 202
if Si>=1. 4 then Son:=0. 81+0. 9*(1. 8-Si)/4 else 202
if Si> = 1 then Son:=0.9+0.1*(1.4-Si) else 202
Son:=1; 202
rtd_s:=rtd*(1+Phi_mm); 202
r2_s:=rtd_s+2*rv/SQR(2*sin(pi*p/Z2)); 202
r2ph_s:=12*sqr(W1*Kdq)*r2_s/Z2; 202
if chon = 1 then 202
begin 203
Srr:=pi*dr1*dr1/8+(dr1+(dr1-(dr1-dr2)*(hr2-dr1/2)/h12))*(hr2-dr2/2)/2; 203
rtd_s:=rtd*(Sr2/Srr+Phi_mm); 203
rtd_s:=rtd*(1+Phi_mm); 203
r2_s:=rtd_s+2*rv/SQR(2*sin(pi*p/Z2)); 203
r2ph_s:=12*sqr(W1*Kdq)*r2_s/Z2; 203
Lamr2_s:=((h12/(3*dr1))*(1-(Pi*SQR(dr1)/(8*Sr2*100)))+0.66-b42/(2*dr1))*Son+h42/b42; 203
end; 203
if chon = 2 then 203
Lamr2_s:=((h12/(3*dr))*(1-(Pi*SQR(dr)/(8*Sr2*100)))+0.66-b42/(2*dr))*Son+h42/b42; 203
X_Lar2_s:=lamr2_s+lamda_t2+lamda_dn2+Lamda_rn; 203
x2ph_s:=x2qd*X_Lar2_s/Lamda2; 203
rn_s:=r1+r2ph_s; 203
xn_s:=x1+x2ph_s; 203
Zn_s:=SQRT(SQR(rn_s)+SQR(xn_s)); 203
In_s:=220/Zn_s; 203
end; 203
{------ het procedure tinhIn_ s -------} 203
Procedure tinhInbh_s; 203
var 203
k_beta,ky,Fztb,Cbh,Bphi_den,Khap_den,C1,D_La1_bh,Lar1_bh,Lat1_bh, 203
X_La1_bh,C2,D_La2_bh,Lr2_s_bh,Lat2_bh,X_L2_sbh,rn_s_bh,xn_s_bh, 203
Zn_s_bh,kbh,kbh_ph:real; 203
begin 203
kbh:=1.0; 203
repeat 203
kbh:=kbh+0.05; 203
Inbh_s:=kbh*In_s; 203
if beta>=0. 66 then k_beta:=0. 76+12*(beta-0. 66)/17 else 203
k_beta:=beta; 203
Fztb:=0.7*Inbh_s*Ur1*(k_beta+ky1*kdq*Z1/Z2)/a1; 203
Cbh:=0.64+2.5*SQRT(Delta/(t1+t2)); 203
Bphi_den:=Fztb*0.0001/(1.6*Delta*Cbh); 203
{------------------------} 203
if Bphi_den> = 8 then khap_den:=0.3+0.02*(10-Bphi_den) else 203
if Bphi_den> = 6 then khap_den:=0.34+0.0425*(8-Bphi_den) else 203
if Bphi_den> = 4 then khap_den:=0.425+0.0825*(6-Bphi_den) else 203
if Bphi_den> = 2 then khap_den:=0.59+0.13*(4-Bphi_den) else 203
khap_den:=0.85+0.15*(2-Bphi_den); 203
{------------------------} 203
C1:=(t1-b41)*(1-khap_den)*10; 203
D_la1_bh:=(h41+0.58*d1/4)*C1/(b41*(C1+1.5*b41)); 203
Lar1_bh:=lamda_r1-D_La1_bh; 203
Lat1_bh:=khap_den*lamda_t1; 203
X_La1_bh:=Lar1_bh+Lat1_bh+lamda_dn1; 203
x1bh:=x1*X_La1_bh/Lam_da1; 203
writeln(' Dien khang tan stato khi den bao hoa cua tu tan: x1bh = ',x1bh:7:3,' (om)'); 203
{------------------------} 203
C2:=(t2-b42)*(1-khap_den)*10; 203
D_La2_bh:=(h42*C2)/(b42*(C2+b42)); 203
Lr2_s_bh:=Lamr2_s-D_La2_bh; 203
Lat2_bh:=khap_den*lamda_t2; 203
X_L2_sbh:=Lr2_s_bh+Lat2_bh+lamda_dn2; 203
x2ph_sbh:=x2qd*X_L2_sbh/Lamda2; 203
rn_s_bh:=r1+r2ph_s; 203
xn_s_bh:=x1bh+x2ph_sbh; 203
Zn_s_bh:=SQRT(SQR(rn_s_bh)+SQR(xn_s_bh)); 203
Inbh_s:=220/Zn_s_bh; 203
kbh_ph:=Inbh_s/In_s; 203
until abs((kbh-kbh_ph)/kbh_ph)<0.15; 204
end; 204
{----- het procedure TinhInbh_s----} 204
FUNCTION tinhI1mm:real; {Tinh dong dien mo may} 204
var 204
C_ph,D_ph:real; 204
begin 204
C_ph:=(x2ph_sbh+x1bh); 204
D_ph:=r1+r2ph_s; 204
TinhI1mm:=220/SQRT(SQR(D_ph)+SQR(C_ph)); 204
end; 204
BEGIN 204
tinhIn_s; 204
tinhInbh_s; 204
x12n:=x12*kmuy; 204
writeln(' Dong dien mo may khi s = 1 :'); 204
C2ph_sbh:=1+x2ph_sbh/x12n; 204
writeln(' C2ph_sbh = ',C2ph_sbh:6:4); 204
I1mm:=TinhI1mm; 204
I2ph_mm:=I1mm/C2ph_sbh; 204
writeln(' I1mm =',I1mm:7:2,' (A)'); 204
writeln(' I2ph_mm =',I2ph_mm:7:2,' (A)'); 204
{--------------------------} 204
BImm:=I1mm/I1dm; 204
BMmm:=SQR(I2ph_mm/I2dmqd)*r2ph_s*Sdm/r2qd; 204
END; 204
END. 204
UNIT T_SO; {Tinh toan cac thong so o che do dinh muc} 204
INTERFACE 204
USES CRT,nhap1; 204
PROCEDURE ThongSoDinhMuc(p,Z2,a1,n1,q1,chon,solop:integer; D,hr1,y,l1,h,W1,Sdq,Idm,Kdq,l2,Sr2,Dv,av,bv,d2, 204
c1,c2,c3,d1,b41,h41,t1,Delta,Kdelta,h12,dr,dr2,b42,h42,t2,Io,Z1:real; 204
Var ldn,ltb,L1f,R1,r1td,r2,r2qd,r2td,x1,x1td,x2,x2qd,x2td,x12,x12td,Ke_tt,rtd,rv, 204
lamda_t2,lamda_dn2,lamda_rn,lam_da2,lamda_r1,lamda_t1,lamda_dn1,lam_da1:real); 204
PROCEDURE TINH_TON_HAO(DuongDan:chuoi; ndb,mh_thep,p,Z2,chon:integer; b41,delta,b1z,hr1,d2,l1,kc,Lg1,h1g, 204
Bz1,Bg1,Kdelta,Bdelta,t1,b42,t2,l2,nuy1,Bz2,hr2,dr,dr2,b2z,Dn,Z1:real; 204
Var Gz1,Gg1,Pfe1,Pbm,Gz2,Pdmach,Pco,Pfe,P0:real); 204
PROCEDURE Tinh_Mmax_Cosphi_HS(Z2:integer; x1,x12,Pfe,Io,r1,I2,r2qd,W1,Kdq,x2qd,P0:real; 204
Var sdm,I2dmqd,I1dm,cosphi_tt,P1,Pcu1,Pcu2,Pf,HS_tt, 204
sm,mmax_tt:real); 204
IMPLEMENTATION 204
PROCEDURE ThongSoDinhMuc(p,Z2,a1,n1,q1,chon,solop:integer; D,hr1,y,l1,h,W1,Sdq,Idm,Kdq,l2,Sr2,Dv,av,bv,d2, 204
c1,c2,c3,d1,b41,h41,t1,Delta,Kdelta,h12,dr,dr2,b42,h42,t2,Io,Z1:real; 204
Var ldn,ltb,L1f,R1,r1td,r2,r2qd,r2td,x1,x1td,x2,x2qd,x2td,x12,x12td,Ke_tt,rtd,rv, 204
lamda_t2,lamda_dn2,lamda_rn,lam_da2,lamda_r1,lamda_t1,lamda_dn1,lam_da1:real); 204
VAR Kt,To_y,beta,xicma_t,Tobc,Gamar,lamda_r2:real; 204
PROCEDURE DIEN_TRO_DQ_STATO; 204
Begin 204
If p = 1 then Kt :=1. 2 else 204
If p= 2 then Kt :=1. 3 else 204
If p= 3 then Kt :=1. 4 204
else Kt :=1. 5 ; 204
To_ y := pi*(D+hr1)*y/Z1; 204
ldn := Kt*To_y + 2*1 ; 204
ltb := l1 + ldn ; 204
L1f := 2*ltb*W1/ 100 ; { L1f(m) : Chieu dai day quan mot pha Stato } 205
r1 := L1f/(46*n1*a1*Sdq); 205
r1td:= r1*Idm/ 220 ; 205
End; 205
{------------------------------------------------------------------------} 205
PROCEDURE DIEN_TRO_ROTO; {Tinh dien tro roto} 205
Var 205
DeltaH, Gamar :real; 205
Begin 205
Gamar :=4*3*sqr(W1*kdq)/Z2; 205
writeln(' Gamar =',Gamar:4:0); 205
DeltaH := 2*sin(pi*p/Z2) ; 205
rtd := l2/(23*Sr2*100*100) ; 205
rv := pi*Dv/(23*Z2*av*bv*100*100); 205
r2 := rtd+2*rv/sqr(DeltaH); 205
r2qd := Gamar * r2 ; 205
r2td := r2qd*Idm/ 220 ; 205
End; 205
{------------------------------------------------------------------------} 205
PROCEDURE HSTDT_ RANH_ STATO ; {tinh he so tu dan tan ranh cua stato} 205
Var 205
Kbeta1, Kbeta2, h1, h2 :real; 205
Begin 205
beta := y*2*p/ Z1 ; { beta = y/(Z1/2p) } 205
If beta > 1 then beta := 2-beta; 205
if (beta>2/3)and(beta<=1) then Kbeta2 := (1+3*beta)/4; 205
if (beta<=2/3)and(beta>1/3) then Kbeta2 := (6*beta-1)/4 ; 205
Kbeta1 := (1+3*Kbeta2)/4 ; 205
h1 := hr1-0. 1*d2-2*c1-c3 ; 205
h2 := -(d1/2-2*c1-c3) ; 205
Lamda_ r1 := h1*Kbeta1/(3*d1)+(0. 785-b41/(2*d1)+h2/d1+h41/b41)*Kbeta2 ; 205
End; 205
{------------------------------------------------------------------------} 205
PROCEDURE TINH_ Rot ; 205
Const 205
B53:array[2..8,2..10] of real = 205
((0.94, 0.87, 0.77, 0, 0, 0, 0, 0, 0 ), 205
(0.92, 0.87, 0.84, 0.78, 0.68, 0, 0, 0, 0 ), 205
(0.9, 0.81, 0.77, 0.75, 0.72, 0.67, 0, 0, 0 ), 205
(0, 0.78, 0.71, 0.69, 0.67, 0.65, 0.62, 0.59, 0 ), 205
(0, 0.73, 0.67, 0.62, 0.6, 0.58, 0.57, 0.55, 0. 53 ), 205
(0, 0.69, 0.62, 0.57, 0.55, 0.53, 0.52, 0.50, 0. 49 ), 205
(0, 0.66, 0.58, 0.52, 0.49, 0.47, 0.46, 0.46, 0. 44 )); 205
{*** Bang B53 dung cho ranh khong nghieng khi tinh Ro_ t ***} 205
{--- Bien chay (q,Z/p) q=Z/(3*2p) ---} 205
Var BNS,Ro_t:real; 205
i,j:integer; 205
Begin 205
BNS := Z1/(5*p) ; j: =2 ; 205
Repeat i: =i+1 until i = q1 ; 205
Repeat j: =j+1 until (BNS<=j) ; 205
Ro_t:= B53[i,j-1]+(B53[i,j]-B53[i,j-1])*(BNS-(j-1)); 205
Writeln(' Gia tri q1 = ',q1:2); 205
Writeln(' Gia tri BNS = ',BNS:4:2); 205
Writeln(' Gia tri Ro_ t = ',Ro_t:5:3); 205
End; 205
{------------------------------------------------------------------------} 205
PROCEDURE TINH_XICMAt; { Tinh ung voi q la so nguyen} 205
Const 205
A52:array[0..11,1..11] of real = 205
((9.7, 2.85, 1.41, 0.89, 0.65, 0.52, 0.44, 0.39, 0.35, 0.31, 0. 3 ), 206
(9.7, 2.35, 1.15, 0.74, 0.53, 0.45, 0.37, 0.33, 0.32, 0.26, 0.28), 206
(0 , 2.85, 1.11, 0.62, 0.44, 0.36, 0.32, 0.26, 0.24, 0.23, 0.22), 206
(0 , 2. 7 , 1.41, 0.69, 0.43, 0. 3 , 0.29, 0.23, 0.22, 0.20, 0.21), 206
(0 , 0, 1.38, 0.89, 0.55, 0.31, 0.25, 0.19, 0.18, 0.14, 0.14), 206
(0 , 0, 0, 0.86, 0.65, 0.42, 0.31, 0.21, 0.16, 0.12, 0.11), 206
(0 , 0, 0, 0, 0.63, 0.52, 0.32, 0.26, 0.17, 0.13, 0.13), 206
(0 , 0, 0, 0, 0. 6 , 0.52, 0. 4 , 0.32, 0.22, 0.16, 0.16), 206
(0 , 0, 0, 0, 0, 0.55, 0.42, 0.39, 0.3, 0.22, 0.22), 206
(0 , 0, 0, 0, 0, 0, 0.44, 0.44, 0.37, 0.28, 0.25), 206
(0 , 0, 0, 0, 0, 0, 0, 0.45, 0.39, 0.35, 0.32), 206
(0 , 0, 0, 0, 0, 0, 0, 0, 0, 0.36, 0.33)); 206
{*** Bang A52 dung de tinh 100 * Xicma_t ***} 206
{--- Bien chay (bn,q1) bn = To_y - y,q1=Z1/(3*2p) ---} 206
Var 206
i,j:integer; 206
To_yy, bn, Xicma_t : real ; 206
Begin 206
To_ yy := Z1/(2*p);i:=0;j:=0; 206
bn := To_yy - y ; 206
Repeat i: =i+1 until i = bn ; 206
Repeat j: =j+1 until j = q1 ; 206
Xicma_t:=A52[i, j]/100 ; 206
End; 206
{------------------------------------------------------------------------} 206
PROCEDURE HSTDT_ TAP_ STATO ; {Tinh he so tu dan tan tap cua stato} 206
Var 206
k41, Lamda_t1, Ro_t, xicma_t :real; 206
Begin 206
TINH_ Rot ; 206
TINH_ XICMAt ; 206
k41:= 1-0.033*b41*b41/(t1*Delta); 206
Lamda_t1:= 0.9*t1*sqr(q1*kdq)*Ro_t*k41*Xicma_t/(Kdelta*Delta) ; 206
End; 206
{------------------------------------------------------------------------} 206
PROCEDURE HSTDT_ DN_ STATO ; {tinh he so tu dan tan phan dau noi day quan stato} 206
Begin 206
Tobc := pi*D/(2*p); 206
Lamda_ dn1 :=0. 34*q1*(ldn-0. 64*Beta*Tobc)/l1 ; 206
if solop = 1 then lamda_dn1:=0. 64*q1*(ldn-0. 64*Beta*Tobc)/l1 ; 206
End; 206
{------------------------------------------------------------------------} 206
PROCEDURE DIEN_ KHANG_ STATO ; {tinh toan dien khang stato} 206
Begin 206
HSTDT_ RANH_ STATO ; 206
HSTDT_ TAP_ STATO ; 206
HSTDT_ DN_ STATO ; 206
Lam_ da1 : =Lamda_r1+Lamda_t1+Lamda_dn1 ; 206
x1 :=0.158*50*sqr(W1/100)*l1*Lam_da1/(100*p*q1); 206
x1td := x1*Idm/ 220 ; 206
End; 206
{------------------------------------------------------------------------} 206
PROCEDURE HSTDT_ RANH_ ROTO ; 206
Var 206
k, h1 :real; 206
Begin 206
k := 1 ; 206
h1 := h12 ; 206
if chon = 2 then 206
Lamda_ r2 := (h1*sqr(1-pi*dr*dr/(8*Sr2))/(3*dr)+0. 66-b42/dr)*k+h42/b42 ; 207
if chon = 1 then 207
Lamda_ r2 := (h1*sqr(1-pi*dr2*dr2/(8*Sr2))/(3*dr2)+0. 66-b42/dr2)*k+h42/b42 ; 207
Writeln(' He so tu dan tan ranh Roto Lamda_ r2 = ',Lamda_r2:4:3); 207
End; 207
{------------------------------------------------------------------------} 207
PROCEDURE HSTDT_ TAP_ ROTO ; {tinh he so tu dan tan tap roto} 207
Const 207
C1 : array[1. . 8]of real = 207
( 1, 2, 7/3, 8/3, 3, 10/3, 11/3, 4 ); 207
C2 : array[1. . 8]of real = 207
( 9.7, 2.29, 1.68, 1.28, 1.02, 0.82, 0.68, 0. 57 ); 207
C3:Array[1..6, 1..10]of real= 207
((0.99, 0.94, 0.87, 0, 0, 0, 0, 0, 0, 0), 207
(0.98, 0.93, 0.88, 0.85, 0.81, 0, 0, 0, 0, 0), 207
(0.97, 0.90, 0.84, 0.80, 0.77, 0.74, 0, 0, 0, 0), 207
( 0, 0.86, 0.81, 0.75, 0.72, 0.70, 0.67, 0.65, 0, 0), 207
( 0, 0.82, 0.74, 0.70, 0.66, 0.62, 0.61, 0.60, 0.59, 0), 207
( 0, 0.78, 0.67, 0.60, 0.56, 0.53, 0.51, 0.49, 0.48, 0.47)); 207
C4 :array[1..6] of real=(2,3,4,5,6,8); 207
C5 :array[1. . 10]of real=(10,15,20,25,30,35,40,45,50,60); 207
{------------------------------------------------------------------------} 207
Function TRA(x,z:real):real; 207
var i, j : integer; 207
y11 : array[1..10] of real; 207
Begin 207
{** Chon diem tua ***} 207
i := 0; 207
repeat i : =i+1 ; 207
until x < C4[i]; 207
for j := 1 to 10 do { * * Tra TRA theo x **} 207
Begin 207
y11[j] := C3[i-1,j]+(C3[i,j] - C3[i-1,j]) * (x - C4[i-1]) /(C4[i]-C4[i-1]); 207
End; 207
{** Chon diem zz tua **} 207
i := 0; 207
repeat i :=i+1; 207
until z < C5[i]; 207
{** Noi suy theo zz **} 207
TRA := y11[i-1]+(y11[i]-y11[i-1])/(C5[i]-C5[i-1])*(z-C5[i-1]); 207
End; 207
Var 207
i, j :integer; 207
q2,Xicma_t2,Rot_2:real; 207
Begin 207
i:=1; q2:=Z2/(3*2*p) ; 207
Rot_2:=tra(q2,Z2/p); 207
If (q2 > 4)then Xicma_t2:=9.15/(100*q2*q2) else 207
begin 207
Repeat i: =i+1 Until q2<=C1[i]; 207
Xicma_t2: =(C2[i-1]+(C2[i]-C2[i-1])*(q2-C1[i-1])/(C1[i]-C1[i-1]))/100 ; 207
end; 207
Lamda_t2:=0.9*t2*q2*q2*Xicma_t2*Rot_2/(Kdelta*Delta); 207
End; 207
{------------------------------------------------------------------------} 207
PROCEDURE HSTDT_ DN_ ROTO ; 207
Var 207
DeltaH :real; 207
Begin 208
DeltaH := 2*sin(pi*p/Z2) ; 208
Lamda_dn2:= 2.3*Dv*ln(4.7*Dv/(av+2*bv))/(Z2*l2*sqr(DeltaH)*ln(10)); 208
End; 208
{------------------------------------------------------------------------} 208
PROCEDURE DIEN_ KHANG_ ROTO ; 208
Begin 208
Gamar :=4*3*sqr(W1*kdq)/Z2; 208
HSTDT_TAP_ROTO; 208
HSTDT_ RANH_ ROTO ; 208
HSTDT_DN_ROTO; 208
Lamda_ rn :=0. 5*sqr(t1/t2)*Lamda_t2 ; 208
Writeln(' He so tu dan tan ranh nghieng Lamda_ rn = ',Lamda_rn:4:3); 208
Lam_ da2 : =Lamda_r2+Lamda_t2+Lamda_dn2+Lamda_rn ; 208
x2 := 7. 9*50*l2*Lam_da2/100000000 ; 208
x2qd:= Gamar * x2 ; 208
x2td : =x2qd*Idm/220 ; 208
End; 208
{------------------------------------------------------------------------} 208
BEGIN {bat dau tinh toan cac thong so} 208
clrscr; 208
DIEN_TRO_DQ_STATO; 208
DIEN_TRO_ROTO; 208
DIEN_ KHANG_ STATO ; 208
DIEN_ KHANG_ ROTO ; 208
x12 := (220-Io*x1)/Io ; 208
x12td := x12*Idm/ 220 ; 208
ke_tt := (220-Io*x1)/220 ; 208
End; 208
PROCEDURE TINH_TON_HAO(DuongDan:chuoi; ndb,mh_thep,p,Z2,chon:integer; b41,delta,b1z,hr1,d2,l1,kc,Lg1,h1g, 208
Bz1,Bg1,Kdelta,Bdelta,t1,b42,t2,l2,nuy1,Bz2,hr2,dr,dr2,b2z,Dn,Z1:real; 208
Var Gz1,Gg1,Pfe1,Pbm,Gz2,Pdmach,Pco,Pfe,P0:real); 208
VAR beta0,p150,Pfez1,Pfez2,Bo,pbm2,Bdm2,Pfe2:real; 208
PROCEDURE TRA2(TenFile: chuoi;BNS: REAL;Var GTNS:REAL); {ham doc so lieu 2 day bien} 208
var 208
F:text; 208
i:integer; 208
TG1,TG2:MANG; {i la cac bien trong file} 208
begin 208
assign(F,DuongDan+TenFile); {gan ten file cho kieu file F} 208
reset(F); {mo file da co tren dia de doc hoac ghi} 208
i:=1; 208
While not eof(F) do {doc bien tu dau file cho den cuo file } 208
begin {ghi cac bien trong file tuong ung vao bien TG1[i],tg2[i]} 208
read(F,TG1[i],tg2[i]); 208
i:=i+1; 208
end; 208
close(F); {ket thuc doc file} 208
i:=1; 208
Repeat 208
i:=i+1; 208
until BNS <= TG1[i]; { BNS : Bien ma ta can noi suy} 208
GTNS:= TG2[i-1]+(TG2[i]-TG2[i-1])*(BNS-TG1[i-1])/(TG1[i]-TG1[i-1]); {GTNS : Gia tri noi suy} 208
End; 208
Procedure Tra_beta0; {tra he so beta0 the duong cong} 208
Var 208
tg : real; 208
begin 208
tg:= b41/delta; 209
TRA2('Tra_beta.TXT',tg,beta0); 209
end; 209
(*-------------------------------------*) 209
Procedure Tra_p150; 209
begin 209
Case mh_ thep of 209
1: p150:=2.5; {Thep 2013} 209
2: p150:=2.5; {Thep 2211} 209
3: p150:=1.75; {Thep 2312} 209
4: p150:=1.6; {Thep 2411} 209
end 209
end; 209
(*--------------------------------------*) 209
Procedure TON_HAO_SAT_STATO; {tinh ton hao sat tren stato} 209
Var 209
Pfez1,Pfeg1: real; 209
Begin 209
Gz1:= 7.8*Z1*b1z*(hr1-d2/3)*l1*kc/1000; 209
Gg1:= 7.8*l1*Lg1*h1g*2*p*kc/1000; 209
Pfez1:= 1.8*p150*sqr(Bz1)*Gz1/1000; 209
Pfeg1:= 1.6*p150*sqr(Bg1)*Gg1/1000; 209
Pfe1:= Pfez1+Pfeg1; 209
End; 209
(*--------------------------------------*) 209
Procedure TON_HAO_SAT_ROTO; {tinh ton hao sat tren roto} 209
Var 209
B0,pbm2,Bdm2: real; 209
Begin 209
B0:= beta0*Kdelta*Bdelta; 209
pbm2:= 0.5*1.8*((Z1*ndb)/10000)*sqrt(Z1*ndb/10000)*sqr(B0*t1)*100; {so bo chon k0 = 1.8} 209
Pbm:= pbm2*(t2-b42)*Z2*l2/10000000; 209
Bdm2:= nuy1*delta*Bz2/(2*t1); 209
if chon = 1 then 209
Gz2:= 7.8*z2*(hr2-dr2/3)*b2z*l2*kc/1000; 209
if chon = 2 then 209
Gz2:= 7.8*z2*(hr2-dr/3)*b2z*l2*kc/1000; 209
Pdmach:= 0.11*sqr(z1*ndb*Bdm2/1000)*Gz2/1000; 209
Pfe2:= Pbm + Pdmach; 209
End; 209
(*--------------------------------------*) 209
Procedure TON_HAO_CO; {tinh ton hao co} 209
Var 209
Kco: real; 209
Begin 209
If p> = 2 Then 209
Kco:= 1 209
Else 209
Kco:= 1.3*(1-Dn/100); 209
Pco:= Kco*sqr(ndb/1000)*sqr(Dn/10)*sqr(Dn/10)/1000; 209
End; 209
(*--------------------------------------*) 209
BEGIN {Chuong trinh chinh tinh ton hao} 210
Tra_beta0; 210
Tra_P150; 210
Ton_hao_sat_stato; 210
Ton_hao_sat_roto; 210
Ton_hao_co; 210
Pfe:= Pfe1+Pfe2; {Tong ton hao thep} 210
P0:= Pfe+Pco; 210
END; 210
PROCEDURE Tinh_Mmax_Cosphi_HS(Z2:integer; x1,x12,Pfe,Io,r1,I2,r2qd,W1,Kdq,x2qd,P0:real; 210
Var sdm,I2dmqd,I1dm,cosphi_tt,P1,Pcu1,Pcu2,Pf,HS_tt, 210
sm,mmax_tt:real); 210
Var 210
C11,C12,Idbr,rnsdm,xnsdm,Znsdm,I1x,I1r,Cosphi2_ph,sinphi2_ph, 210
I2_2ph,XicmaP,I2maxqd: real; 210
Begin 210
C11:= 1+x1/x12; 210
Idbr:= (Pfe * 1000 + 3*sqr(Io)*r1)/(3*220); 210
sdm:= I2*r2qd*z2/(6*w1*Kdq*(220-Io*x1)); 210
rnsdm:= sqr(C11)*(r1/C11 + r2qd/sdm); 210
xnsdm:= sqr(C11)*(x1/C11 + x2qd); 210
znsdm:= sqrt(sqr(rnsdm) + sqr(xnsdm)); 210
cosphi2_ph:=rnsdm/Znsdm; 210
sinphi2_ph:=Xnsdm/Znsdm; 210
I2_2ph:=220/Znsdm; 210
I2dmqd:=C11*I2_2ph; 210
I1r :=Idbr+I2_2ph*cosphi2_ph; 210
I1x:=Io+I2_2ph*sinphi2_ph; 210
I1dm:=sqrt(sqr(I1r)+sqr(I1x)); 210
Cosphi_tt:=I1r/I1dm; 210
P1:=3*220*I1r/1000; 210
Pcu1:=3*r1*sqr(I1dm)/1000; 210
Pcu2:=3*r2qd*sqr(I2dmqd)/1000; 210
Pf:=0.005*P1; 210
XicmaP:=Pcu1+Pcu2+P0+Pf; 210
HS_tt:=1-XicmaP/P1; 210
sm:= r2qd/(x1/C11+x2qd); 210
I2maxqd: =C11*220/(sqrt(sqr(sqr(C11)*(r1/C11 + r2qd/sm))+sqr(xnsdm))); 210
mmax_tt:= sqr(I2maxqd/I2dmqd)*sdm/sm; 210
End; 210
END. 210
unit dothi; {chuong trinh ve dac tinh lam viec cua dong co} 210
Interface 210
uses crt,graph,nhap1; 210
type Vector = array[0..200] of real; {Mang cac so lieu de ve} 210
Procedure VeDacTinh(Pdm,I1dm,sdm:real;DuongDan:chuoi); 210
procedure ManHinh; 210
Implementation 210
var 210
i ,k,t: integer; 210
k_xx, k_ yy : real; {Ty le xich cac truc} 210
procedure ManHinh; 210
begin 210
window(1,1,80,25); 210
textbackground(darkgray); 210
textcolor(red); 210
clrscr; 210
gotoXY(1,25); 210
write('ẫÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍằ'); 210
write(' º THAY GIAO HUONG DAN: TRAN KHAC TUAN THUC HIEN : SV TRAN DUC NAM º'); 211
WRITE(' º LOP : TBD-DT2. K44 º'); 211
window(4,23,79,25); 211
textcolor(green); 211
clrscr; 211
write(' CHUONG TRINH THIET KE TU DONG DONG CO KHONG DONG BO 3 PHA ROTO LONG SOC '); 211
write(' THAY GIAO HUONG DAN: TRAN KHAC TUAN THUC HIEN: SV TRAN DUC NAM '); 211
write(' LOP : TBD-DT2. K44 '); 211
window(1,1,80,21); 211
textbackground(blue); 211
textcolor(white); 211
CLRSCR; 211
end; 211
Procedure DocSoLieu1(filename: string;var M:vector); 211
var F1 : text; 211
i:integer; 211
begin 211
assign(F1,filename); 211
reset(F1); 211
for i: =1 to 100 do 211
readln(F1,M[i]); 211
close(F1); 211
end; 211
Procedure ModeGraph; {chuong trinh do hoa } 211
var Gd,Gm:integer; 211
st:string; 211
begin 211
Write(' Vao duong dan Graph=');readln(st); 211
Gd := detect; 211
Gm:=IBM8514Hi; 211
initgraph(Gd,Gm,st); 211
k_ xx := GetMaxX / 640; {Ty le theo truc X = Dung cho man hinh VGA} 211
k_ yy := GetMaxY / 480; {Dung cho man hinh VGA} 211
end; 211
Procedure Truc_toa_do(X,Y:integer); {xac dinh cac truc toa do} 211
var i, j :integer; 211
begin 211
setbkcolor(white); 211
setcolor(blue); 211
X := round(k_xx*X); 211
Y := round(k_yy*Y); 211
{Ke khung chung quanh : khung ngoai , khung trong} 211
rectangle(round(k_xx*2),round(k_yy*2),round(k_xx*638),round(k_yy*470)); 211
rectangle(round(k_xx*4),round(k_yy*4),round(k_xx*636),round(k_yy*468)); 211
line(X,round(k_yy*15),X,round(k_yy*465)); {truc tung} 211
line(round(k_xx*15),Y,round(k_xx*635),Y); {truc hoanh} 211
line(X,round(k_yy*15),X+2,round(k_yy*25)); {nua phai mui ten truc tung} 211
line(X,round(k_yy*15),X-2,round(k_yy*25)); {nua trai mui ten truc tung} 211
line(round(k_xx*635),Y,round(k_xx*625),Y+2); {nua duoi mui ten truc hoanh} 211
line(X,round(k_yy*15),X-2,round(k_yy*25)); {nua tren mui ten truc hoanh} 211
line(round(k_xx*635),Y,round(k_xx*625),Y-2); 211
X:= round(k_xx*100); 211
for i := 2 to 13 do {Ve luoi doc cua do thi: 13 cot} 211
for j := 0 to 38 do 211
line(x+round(k_xx*i*40), y-round(k_yy*(2 +j*10)), 211
x+round(k_xx*i*40), y+round(k_yy*(2 -j*10))); 211
for i := 2 to 10 do {Ve luoi ngang : 10 dong} 212
for j := 10 to 58 do 212
line(round(k_xx*(40-2+10*j)),y-round(k_yy*((i-1)*40)), 212
round(k_xx*(40+2+10*j)),y-round(k_yy*(i-1)*40)); 212
end; 212
Procedure Ke_duong_P_dm(m:real); 212
var x, j, size : integer; 212
begin 212
size := 1; 212
setcolor(darkgray); 212
x := {round(k_ xx * * 8);}240; 212
for j := 0 to 38 do 212
line(x+round(k_xx*140), round(k_yy*(403-4 - j*10)), 212
x+round(k_xx*140), round(k_yy*(403+3 - j*10))); 212
setTextStyle(1,Horizdir,size); 212
OutTextXY(round(k_xx*340),round(k_yy*410),'P_dm*'); 212
end; 212
(*-----------------------------------------------------------------*) 212
Procedure Ty_le_xich(x, y:integer;ky : real); 212
var size, i : integer; 212
s : string; 212
begin 212
size := round(5*k_xx); 212
setTextstyle(2,Horizdir,size); 212
for i:= 1 to 9 do 212
begin 212
str(round(i*40/ky),s); 212
OutTextXY(round(k_xx*(x-25)),round(k_yy*(y-i*40-8)),s); 212
end; 212
end; 212
Procedure Ty_le_xich1_2(x, y:integer;ky : real); 212
var size, i : integer; 212
s : string; 212
begin 212
size := round(5*k_xx); 212
setTextstyle(2,Horizdir,size); 212
for i:= 1 to 2 do 212
begin 212
str(round(i*1/ky),s); 212
OutTextXY(round(k_xx*(x-25)),round(k_yy*(y-i*160-8)),s); 212
end; 212
end; 212
(*-----------------------------------------------------------------*) 212
Procedure Ten_truc_XY(X,Y:integer;stX,stY,st:string); 212
var size : integer; 212
begin 212
size := 1; 212
setTextstyle(1,Horizdir,size); 212
OutTextXY(round(k_xx*525),round(k_yy*(Y+10)),stX); 212
OutTextXY(round(k_xx*(X+4)),round(k_yy*10),stY); 212
OutTextXY(round(k_xx*200),round(k_yy*440),st); 212
end; 212
(*------------------------------------------------------------------*) 212
Procedure Truc_phu(x, y:integer;st :string); 212
var i : integer; 212
begin 213
X := round(k_xx*X); 213
Y := round(k_yy*Y); 213
line(X,Y,X,Y-round(k_yy*380)); 213
line(X,Y-round(k_yy*380),x+2,Y-round(k_yy*370)); 213
line(X,Y-round(k_yy*380),X-2,Y-round(k_yy*370)); 213
for i := 1 to 9 do 213
line(X-2,Y-round(k_yy*i*40),x+2,Y-round(k_yy*i*40)); 213
Ten_truc_Xy(X,Y,'',st,''); 213
end; 213
(*-------------------------------------------------------------------*) 213
Procedure Ve(X,Y:Vector; kx, ky:real;X0, Y0, t1, t2 : integer); 213
var X1,Y1,i: integer; 213
begin 213
X0 := round(k_xx*X0); 213
Y0 := round(k_yy*Y0); 213
moveto(X0+round(X[t1]*kx*k_xx),Y0-round(Y[t1]*ky*k_yy)); 213
for i:= t1 to t2 do 213
begin 213
X1 := X0 + round(X[i]*kx*k_xx); 213
Y1 := Y0 - round(y[i]*ky*k_yy); 213
lineto(X1,Y1); 213
end; 213
end; 213
(*-------------------------------------------------------------------*) 213
Procedure VeDacTinh(Pdm,I1dm,sdm:real;DuongDan:chuoi); 213
var kx,ky:real; 213
M,P:vector; 213
size, i, j : integer; 213
s : string; 213
begin 213
ModeGraph; 213
Truc_toa_do(140,400); 213
Ten_truc_XY(140,400,' P2*',' ',' Dac tinh lam viec cua dong co '); 213
(*----------------- Ghi ty le tren truc M -----------------------*) 213
size := round(k_xx*5); 213
setTextstyle(2,horizdir,size); 213
for i:= 1 to 2 do 213
begin 213
str(round(k_xx*i),s); 213
OutTextXY(round(k_xx * (130 + 240 * i)),round(k_yy*400),s); 213
end; 213
(*-----------------------------------------------------------------*) 213
DocSoLieu1(duongdan+'P2.txt',m); 213
DocSoLieu1(duongdan+'I1_p2.txt',P); 213
for i: =1 to 150 do m[i]:=m[i]/Pdm; 213
for i: =1 to 150 do P[i]:=P[i]/I1dm; 213
i := 1; 213
repeat i := i + 1; 213
until M[i] >=0; 213
j := i; 213
k:=i; 213
repeat j := j +1; 213
until M[j] > M[j+1]; 213
t:=j-5; 214
setcolor(12); 214
truc_phu(140,400,'I1*'); 214
Ty_le_xich1_2(145,400,1); 214
{ Ty_le_xich(140,200,0.1);} 214
Ve(M,P,240,160,140,400,k,t); 214
Ke_duong_p_dm(1); 214
readln; 214
{----------------- Ve duong cong hieu suat =f(P2*) ----------------------)} 214
DocSoLieu1(duongdan+'HS_P2.txt',P); 214
setcolor(5); 214
truc_phu(70,400,'Hs%'); 214
Ty_le_xich(80,400,4); 214
Ve(M,P,240,400,140,400,k,t); 214
readln; 214
{---------------- ve duong cong cos f(P2*) ----------------------} 214
DocSoLieu1(duongdan+'cos_p2.txt',P); 214
setcolor(9); 214
Truc_phu(105,400,'cos'); 214
ty_le_xich(120,400,40); 214
Ve(M,P,240,400,140,400,k,t); 214
for j := 1 to 9 do 214
OutTextXY(round(k_xx*75),round(k_yy*(400-8-j*40)),' 0.'); 214
readln; 214
(*---------------- ve duong cong cos(fi) ----------------------*) 214
DocSoLieu1(duongdan+'s_p2.txt',P); 214
for i: =1 to 150 do P[i]:=P[i]/Sdm; 214
setcolor(13); 214
Truc_phu(35,400,'S*'); 214
Ty_le_xich1_2(50,400,1); 214
Ve(M,P,240,160,140,400,k,t); 214
readln; 214
closegraph; 214
ManHinh; 214
end; 214
(*===================== Het phan ve dac tinh ==========================*) 214
end. 214
UNIT NHIET; {Tinh toan nhiet dong co} 214
INTERFACE 214
USES CRT,nhap1; 214
procedure TinhNhiet(W1,Droto,ndm,Z1,ldn,Ddqcd,Pfe1,Pcu1,Pcu2,Pf,Pbm,Pco,Pdmach,h1g,l,Dn,Sr,To_y:real;solop,p:integer); 214
PROCEDURE Tinhkt(Dn,l1,l2,kc,Sdq,Dcddq,ddq,Pdm,ltb,Dv,Sv,Std,Z1,Z2,Ur1:real;n1:integer); 214
IMPLEMENTATION 214
PROCEDURE Tinhkt(Dn,l1,l2,kc,Sdq,Dcddq,ddq,Pdm,ltb,Dv,Sv,Std,Z1,Z2,Ur1:real;n1:integer); 214
var 214
kt_fe,kt_cu,kt_al,Gfe,Gcu_ph,Gcu,Gtd,Gv,Gal,kl_fe,kl_cu,kl_al:real; 214
procedure INFILE; {in cac file ket qua} 214
VAR 214
f:text; 214
kq,ten:string; 214
ch:char; 215
begin 215
Writeln(' Co in cac ket qua tren ra file khong? "C/K" '); 215
repeat 215
readln(ch); 215
until (upcase(ch)='C')or(upcase(ch)='K'); 215
if upcase(ch)='C' then 215
begin 215
Writeln(' Vao duong dan file ket qua'); 215
Writeln(' Neu go ENTER thi duong dan la c:\math\tp6\dongco43\ketqua\'); 215
readln(kq); 215
if kq='' then kq:='c:\math\tp7\dongco43\ketqua\'; 215
Write(' Vao ten file:');readln(ten); 215
assign(f,kq+ten); 215
rewrite(f); 215
writeln(F,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿'); 215
writeln(F, '³ KET QUA TINH TOAN CHI TIEU KINH TE ³'); 215
writeln(f,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿'); 215
writeln(f, '³ Trong luong thep silic can chuan bi san : ',Gfe:8:3,' (kg) ³'); 215
writeln(f, '³ Trong luong dong day quan stato (ke ca cach dien): ',Gcu:8:3,' (kg) ³'); 215
writeln(f, '³ Trong luong nhom o roto : ',Gal:8:3,' (kg) ³'); 215
writeln(f, '³ CHI TIEU KINH TE ³'); 215
writeln(f, '³ Thep ky thuat dien: Gfe = ',kt_fe:7:4,' (kg/kw) ³'); 215
writeln(f, '³ Dong : Gcu = ',kt_cu:7:4,' (kg/kw) ³'); 215
writeln(f, '³ Nhom : Gal = ',kt_al:7:4,' (kg/kw) ³'); 215
writeln(f,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ'); 215
close(f); 215
end else exit; 215
end; 215
begin 215
Gfe:=SQR(Dn+0.6)*l1*kc*7.8/1000; 215
Gcu_ph:=Z1*Ur1*n1*Sdq*ltb*8.9/100000; 215
Gcu:=(0.876+0.124*SQR(Dcddq/Ddq))*Gcu_ph; 215
Gal:=Z2*Std*l2*2.6/1000+2*pi*Dv*Sv*2.6/1000; 215
kt_fe:=Gfe/Pdm; 215
kt_cu:=Gcu/Pdm; 215
kt_al:=Gal/Pdm; 215
clrscr; 215
writeln('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿'); 215
writeln(' ³ KET QUA TINH TOAN CHI TIEU KINH TE ³'); 215
writeln('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿'); 215
writeln(' ³ Trong luong thep silic can chuan bi san : ',Gfe:8:3,' (kg) ³'); 215
writeln(' ³ Trong luong dong day quan stato (ke ca cach dien): ',Gcu:8:3,' (kg) ³'); 215
writeln(' ³ Trong luong nhom o roto : ',Gal:8:3,' (kg) ³'); 215
writeln(' ³ CHI TIEU KINH TE ³'); 215
writeln(' ³ Thep ky thuat dien: Gfe = ',kt_fe:7:4,' (kg/kw) ³'); 215
writeln(' ³ Dong : Gcu = ',kt_cu:7:4,' (kg/kw) ³'); 215
writeln(' ³ Nhom : Gal = ',kt_al:7:4,' (kg/kw) ³'); 215
writeln('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ'); 216
INFILE; 216
readln; 216
end; 216
procedure TinhNhiet(W1,Droto,ndm,Z1,ldn,Ddqcd,Pfe1,Pcu1,Pcu2,Pf,Pbm,Pco,Pdmach,h1g,l,Dn,Sr,To_y:real;solop,p:integer); 216
var Rfe,Lamda_c,Cb:real; 216
vr,R_anpha_ph,anpha_o,Lv,Sn,Sv:real; 216
Rd,tnvm,tndq:real; 216
Lamda_fe,R_anpha,Rranh,Rc,n,b,h,Dvo,c:real; 216
{ chon:char;} 216
procedure NhietTroMatLoiSatStato; 216
var 216
S_Dn,anpha_g,lamda_fe,afdg:real; 216
begin 216
writeln(' ---------------------TINH TOAN NHIET MAY DIEN------------------------------'); 216
S_Dn:=pi*Dn*l; 216
writeln(' BANG TRA HE SO DAN NHIET .(W/doC*cm)'); 216
writeln(' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄ¿'); 216
writeln(' ³ Vat lieu ³lamda * 100³ Vat lieu ³ lamda * 100 ³'); 216
writeln(' ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄ´'); 216
writeln(' ³ Dong ³ 380 ³ Amiang ³ 0. 19 ³'); 216
writeln(' ³ Nhom ³ 220 ³ Men(emay) ³ 1. 5 - 1.63³'); 216
writeln(' ³ Bac ³ 420 ³ Thuy tinh ³ 1. 1 ³'); 216
writeln(' ³Thep la ktd ³ ³ Go(tho ngang) ³ 0. 11 ³'); 216
writeln(' ³ It silic ³ 35 - 40 ³ Tam getinax ³0.226-0.267³'); 216
writeln(' ³ Silic trung binh ³ 26 - 30 ³Lop kk mong 750mmHg, 40doC³ 0. 0266 ³'); 216
writeln(' ³ Nhieu silic ³ 19 - 20 ³ Hydro o 40doC ³ 0. 19 ³'); 216
writeln(' ³ ³ ³ Nuoc o 40doC ³ 0. 633 ³'); 216
writeln(' ³ Cach dien bang giay ³0. 87-1. 2 ³ Dau may BA o 40doC ³ 0. 164 ³'); 216
writeln(' ³ Cach dien bang son ³3. 1-4. 4 ³Cach dien ranh dq Stato ³ ³'); 216
writeln(' ³ Vai son ³ 0. 5 ³ Cap A, E, B ³ 0. 1 ³'); 216
writeln(' ³ Giay cach dien ³ 0. 23 ³ Cap B, F, H ³ 0. 16 ³'); 216
writeln(' ³Bia cach dien ³ ³Cach dien ranh dq Roto ³ ³'); 216
writeln(' ³ Kho ³ 0. 18 ³ Cap A, E ³ 0. 1 ³'); 216
writeln(' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÙ'); 216
write(' Tra bang tren he so dan nhiet cua thep la Lamda_fe * 100 = '); 216
readln(Lamda_fe); 216
anpha_g:=Lamda_fe/100/H1G; 216
Writeln(' He so truyen nhiet giua stato va vo may trong khoang (0.08-0.1)'); 216
writeln(' Lay Anfa_denta_gong=0. 09 ');Afdg:=0.09; 216
Rfe:=(1/Anpha_g+1/Afdg)/S_Dn; 216
writeln(' Nhiet tro tren mat loi sat Stato: Rfe = ',Rfe:8:3,' (oC/W)'); 216
readln; 216
end; 216
procedure NhietTroDauNoiDqStato; {Tinh toan nhiet tro phan dau noi cua day quan stato} 216
var 216
anpha_d,Sd,ttt,denta_c:real; 216
begin 216
write(' Cach dien dau noi bang bang vai denta_c(cm) =0. 04 '); 216
denta_c:=0.04; 216
write(' Dung cach dien ranh lien tuc hay khong lien tuc: Chon 1 or 2 '); 217
readln(ttt); 217
if ttt = 1 then 217
lamda_c:=0. 16*0. 01 217
else lamda_c:=0.1*0.01; 217
vr:=pi*Droto*ndm/6000; 217
anpha_d:=(1+0.54*SQR(vr))/1000; 217
if solop = 1 then 217
begin 217
Cb:=2*sqrt(Sr/pi); 217
Sd: =Z1*Cb*ldn 217
end 217
else 217
begin 217
Cb:=2*sqrt(Sr/2*pi); 217
Sd:=2*Z1*Cb*ldn; 217
end; 217
writeln(' Chu vi boi day Cb(cm) = ',cb:8:3); 217
readln; 217
Rd:=denta_c/(lamda_c*Sd)+1/(anpha_d*Sd); 217
writeln(' Nhiet tro phan dau noi day quan stato: Rd = ',Rd:8:5,' (oC/W)'); 217
readln; 217
end; 217
procedure NhietTroDacTrungLopKhongKhiTrongVoMay; 217
var ko,anpha,Sanpha_ph,Epsilon,Kf1:real; 217
begin 217
writeln(' Bang tra he so dan nhiet be mat o moi truong tinh.'); 217
writeln(' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿'); 217
writeln(' ³ Tinh chat be mat ³ Anpha_o * 1000 ³'); 217
writeln(' ³ ³ (W/doC.cm2) ³'); 217
writeln(' ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´'); 217
writeln(' ³ Mat gang, thep co son phu ³ 1, 42 ³'); 217
writeln(' ³ Mat gang, thep khong phu son ³ 1, 67 ³'); 217
writeln(' ³ Mat dong co phu son ³ 1, 33 ³'); 217
writeln(' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ'); 217
write(' Chon Anpha_o * 1000 = ');readln(anpha_o); 217
ko:=0.06; 217
anpha:=anpha_o*(1+ko*vr)/1000; 217
Write(' Nhap khoang cach tu nap den day quan stato: 5-15(cm):Epsilon(cm) = ');readln(Epsilon); 217
if p = 1 then Kf1:=0. 26 else 217
if p = 2 then Kf1:=0. 4 else Kf1:=0.5; 217
Lv:=(Kf1*To_y+1+Epsilon)*2+l; 217
Sanpha_ph:=2*pi*(Dn*Dn/4)+(Lv-l)*pi*Dn; 217
write(' Dien tich be mat ben trong vo may gom nhung phan khong tiep xuc voibe mat ngoai'); 217
writeln(' cua loi sat stato va be mat trong cua 2 nap may: Sanpha_ph = ',Sanpha_ph:8:3); 217
R_anpha_ph:=1/(anpha*Sanpha_ph); 217
writeln(' Nhiet tro cua lop khong khi nong trong vo may : R_ anpha_ ph = ',R_anpha_ph:8:4,' (oC/W)'); 217
readln; 217
end; 217
procedure nhap; 217
begin 217
writeln(' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿'); 217
writeln(' ³ CAC KICH THUOC CANH TAN NHIET ³'); 217
writeln(' ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´'); 217
writeln(' ³ Chieu cao cua gan : h ³ (1. 5den3)cm ³'); 217
writeln(' ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´'); 217
writeln(' ³ Chieu day cua gan : b ³(0. 3den1. 2)cm ³'); 217
writeln(' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ'); 217
write(' Vao chieu day gan tan nhiet : b(cm) = ');readln(b); 217
write(' Vao chieu cao gan tan nhiet : h(cm) = ');readln(h); 217
write(' Vao be day vo may : dvo = ');readln(dvo); 218
end; 218
procedure NhietTroNgoaiMay; 218
var 218
anpha_v,anpha_ph_v,anpha_ph_n,Kg,anpha_g,beta, 218
dtd,vcq,So,vph,Vvo:real; 218
function mux(x,y:real):real; 218
begin 218
mux:=exp(ln(x)*y); 218
end; 218
function th(x:real):real; 218
begin 218
th:=(exp(x)+exp(-x))/(exp(x)-exp(-x)); 218
end; 218
begin 218
c:=((Dn+2*dvo)*pi-n*b)/n; 218
dtd:=2*c*h/(h+c)/100; 218
Vcq:=(pi*Dn*ndm)/6000; 218
Vvo:=0.5*Vcq; 218
anpha_ph_v:=3.6*mux(dtd,-0.2)*mux(Vvo,0.8)/10000; 218
beta:=SQRT(2*anpha_ph_v/(0.04*b)); 218
anpha_g:=beta*0. 04*th(beta*h);{he so dan nhiet cua gang bang 0.04} 218
kg:=c/(b+c)+anpha_g*b/(anpha_ph_v*(b+c)); 218
Anpha_v:=kg*anpha_ph_v; 218
anpha_ph_n:=3.6*mux(dtd,-0.2)*mux(Vcq,0.8)/10000; 218
Sv:=Lv*(Dn+2*dvo)*pi+n*2*h*Lv; 218
Sn:=pi*sqr(Dn+2*dvo)/4; 218
R_anpha:=1/(anpha_v*Sv+anpha_ph_n*Sn+anpha_o/1000*Sn); 218
end; 218
procedure NhietTroTrenCachDienRanh; 218
var 218
Sc,delta_c:real; 218
begin 218
delta_c:=0.04; 218
Rc:=delta_c/(lamda_c*Z1*Cb*l); 218
writeln(' Nhiet tro tren lop cach dien ranh: Rc = ',Rc:8:3,' (oC/W)'); 218
end; 218
PROCEDURE TinhNhiet; {Tinh toan nhiet} 218
Var 218
Qcu1,Qroto:real; 218
begin 218
Qcu1:=Pcu1+Pf/2; 218
Qroto:=Pcu2+Pf/2+Pco+Pbm+Pdmach; 218
tnvm:=(Qcu1+Pfe1+Qroto)*R_anpha; 218
tndq:=(Qcu1*(Rfe+Rc)+Pfe1*Rfe+Qroto*R_anpha_ph*(Rfe+Rc)/(Rd+R_anpha_ph))/(1+(Rfe+Rc)/(Rd+R_anpha_ph))+tnvm; 218
end; 218
procedure InKetQua; {in cac ket qua tinh nhiet} 218
begin 218
clrscr; 218
writeln( ' KET QUA PHAN TINH TOAN NHIET'); 218
writeln(' Nhiet tro tren mat loi sat Stato: Rfe(oC/W) = ',Rfe:8:3); 218
writeln(' Nhiet tro phan dau noi day quan stato: Rd(oC/W) = ',Rd:8:5); 218
writeln(' Nhiet tro lop khong khi nong trong vo may:R_anpha_ph(oC/W) = ',R_anpha_ph:8:4); 218
writeln(' Chieu day gan tan nhiet : b(cm) = ',b:8:2); 218
writeln(' Chieu cao gan tan nhiet : h(cm) = ',h:8:2); 218
writeln(' Be day vo may : dvo = ',dvo:8:2); 218
Writeln(' Khoang cach giua 2 canh tan nhiet c(cm) = ',c:8:2); 218
Writeln(' So canh tan nhiet : n = ',n:8:0); 219
Writeln(' Dien tich nap Sn(cm2) = ',Sn:8:3); 219
Writeln(' Dien tich vo Sv(cm2) = ',Sv:8:3); 219
writeln(' Nhiet tro be mat ngoai vo may: R_anpha(oC/W) = ',R_anpha:8:3); 219
Writeln(' Do tang nhiet day quan : Delta_dq(oC) = ',tndq:8:3); 219
Writeln(' Do tang nhiet vo may : Delta_vo(oC) = ',tnvm:8:3); 219
end; 219
procedure INFILE; 219
VAR 219
f:text; 219
kq,ten:string; 219
ch:char; 219
begin 219
repeat 219
Writeln(' Co in cac ket qua tren ra file khong? "C/K" '); 219
readln(ch); 219
until (upcase(ch)='C')or(upcase(ch)='K'); 219
if upcase(ch)='C' then 219
begin 219
Writeln(' Vao duong dan file ket qua'); 219
Writeln(' Neu go ENTER thi duong dan la c:\math\tp6\dongco43\ketqua\'); 219
readln(kq); 219
if kq='' then kq:='c:\math\tp6\dongco43\ketqua\'; 219
Write(' Vao ten file:');readln(ten); 219
assign(f,kq+ten); 219
rewrite(f); 219
writeln(F,' KET QUA PHAN TINH TOAN NHIET'); 219
writeln(f,' Nhiet tro tren mat loi sat Stato: Rfe(oC/W) = ',Rfe:8:3); 219
writeln(f,' Nhiet tro phan dau noi day quan stato: Rd(oC/W) = ',Rd:8:5); 219
writeln(f,' Nhiet tro lop khong khi nong trong vo may:R_anpha_ph(oC/W) = ',R_anpha_ph:8:4); 219
writeln(f,' Chieu day gan tan nhiet : b(cm) = ',b:8:2); 219
writeln(f,' Chieu cao gan tan nhiet : h(cm) = ',h:8:2); 219
writeln(f,' Be day vo may : dvo = ',dvo:8:2); 219
Writeln(f,' Khoang cach giua 2 canh tan nhiet c(cm) = ',c:8:2); 219
Writeln(f,' So canh tan nhiet : n = ',n:8:0); 219
Writeln(f,' Dien tich nap Sn(cm2) = ',Sn:8:3); 219
Writeln(f,' Dien tich vo Sv(cm2) = ',Sv:8:3); 219
writeln(f,' Nhiet tro be mat ngoai vo may: R_anpha(oC/W) = ',R_anpha:8:3); 219
Writeln(f,' Do tang nhiet day quan : Delta_dq(oC) = ',tndq:8:3); 219
Writeln(f,' Do tang nhiet vo may : Delta_vo(oC) = ',tnvm:8:3); 219
close(f); 219
end else exit; 219
end; 219
Begin 219
textcolor(white); 219
textbackground(blue); 219
clrscr; 219
NhietTroMatLoiSatStato; 219
NhietTroDauNoiDqStato; 219
NhietTroDacTrungLopKhongKhiTrongVoMay; 219
NhietTroTrenCachDienRanh; 219
n:=1; 219
nhap; 219
tndq:=100; 219
While tndq> = 80 do 219
begin 219
NhietTroNgoaiMay; 219
TinhNhiet; 219
n:=n+1; 219
end; 220
InKetQua; 220
INFILE; 220
readln; 220
end; 220
END. 220
UNIT INs; { In cac ket qua tinh toan ra file van ban } 220
INTERFACE 220
USES CRT,nhap1; 220
PROCEDURE INFILE(Pdm,kd,A,Bdelta,h,Dn,D,l1,buoccuc,Lamda,Z1,q1,ur1,w1,AJ,Sdq,y,Beta,kdq,b41,d1, 220
d2,ddqcd,ddq,h41,hr1,h11,b1z,h1g,Bz1,Bzmin,Bzmax,J1,Sr_ph,Scd,Sr,kld,t1,delta,c1,c2,c3,h42, 220
b42,dr1,dr2,dr,hr2,h12,b2z,Bz2,Bz2max,h2g,Sr2,Z2,Jv,Jtd,Dt,av,bv,Sv,Iv,Itd,Fz1,Fz2,Fg1,Fg2,kz, 220
Lg1,Lg2,kmuy,Io,Iop,ldn,Kdelta,Fdelta,ltb,L1f,R1,R1td,R2,R2qd,R2td,X1,X1td,X2,X2qd,X2td,X12, 220
X12td,Ke,Ke_tt,Gz1,Gg1,Gz2,Pfe1,Pbm,Pfe,Pco,P0,Hs,Hs_tt,Sdm,Pcu1,Pcu2,Pf,Sm,P1,BImm,BMmm,Pdmach, 220
cosphi,cosphi_tt,Mmax,Mmax_tt:real;MH_THEP,p,a1,n1,Bcuc_r,chon:integer); 220
PROCEDURE IN_KET_QUA(Pdm,Kd,A,Bdelta,h,Dn,D,l1,buoccuc,lamda,Z1,q1,Ur1,W1, 220
AJ,Sdq,Ddqcd,Ddq,y,beta,kdq,h41,b41,d1,d2,hr1,h11,b1z,h1g,Sr_ph,Scd,Sr, 220
Kld,t1,Delta,C1,c2,c3,h42,b42,dr1,dr2,dr,hr2,h12,b2z,h2g,Sr2,Z2,Dt,av,bv, 220
Sv,Iv,Itd,Kdelta,Fdelta,Fz1,Fz2,Fg1,Fg2,Kz,Lg1,Lg2,Kmuy,Io,Iop,ldn,ltb, 220
L1f,r1,R1td,r2,r2qd,r2td,X1,X1td,X2,X2qd,X2td,X12,X12td,Ke,Ke_tt,Gz1,Gg1, 220
Gz2,Pfe1,Pbm,Pdmach,Pfe,Pco,P0,Cosphi_tt,Hs_tt,Sdm,Pcu1,Pcu2,Pf,Sm,Mmax_tt, 220
P1,BImm,BMmm,J1,Jv,Jtd,hs,cosphi:real;MH_THEP,p,a1,n1,Bcuc_r,chon:integer); 220
IMPLEMENTATION 220
PROCEDURE IN_KET_QUA(Pdm,Kd,A,Bdelta,h,Dn,D,l1,buoccuc,lamda,Z1,q1,Ur1,W1, 220
AJ,Sdq,Ddqcd,Ddq,y,beta,kdq,h41,b41,d1,d2,hr1,h11,b1z,h1g,Sr_ph,Scd,Sr, 220
Kld,t1,Delta,C1,c2,c3,h42,b42,dr1,dr2,dr,hr2,h12,b2z,h2g,Sr2,Z2,Dt,av,bv, 220
Sv,Iv,Itd,Kdelta,Fdelta,Fz1,Fz2,Fg1,Fg2,Kz,Lg1,Lg2,Kmuy,Io,Iop,ldn,ltb, 220
L1f,r1,R1td,r2,r2qd,r2td,X1,X1td,X2,X2qd,X2td,X12,X12td,Ke,Ke_tt,Gz1,Gg1, 220
Gz2,Pfe1,Pbm,Pdmach,Pfe,Pco,P0,Cosphi_tt,Hs_tt,Sdm,Pcu1,Pcu2,Pf,Sm,Mmax_tt, 220
P1,BImm,BMmm,J1,Jv,Jtd,hs,cosphi:real;MH_THEP,p,a1,n1,Bcuc_r,chon:integer); 220
var boidong, boimomen :real; 220
begin 220
clrscr; 220
Writeln(' Nhap boi dong khoi dong :boidong='); 220
readln(boidong); 220
Writeln(' Nhap boi momen khoi dong :boimomen='); 220
readln(boimomen); 220
writeln(' CAC THONG SO VA KICH THUOC CHU YEU CUA MAY DIEN'); 220
writeln(' ----------------------------------------------------'); 220
writeln(' | TT | THAM SO TINH TOAN | GIA TRI |'); 220
writeln(' |--------------------------------------------------|'); 220
writeln(' | 1 | Pdm(kw) = | ',Pdm:7:2,'':13,'|'); 220
writeln(' | 2 | MH_ THEP = | ',MH_THEP:7,'':13,'|'); 220
writeln(' | 3 | Kd = | ',Kd:7:2,'':13,'|'); 220
writeln(' | 4 | A(A/cm) = | ',A:7:1,'':13,'|'); 220
writeln(' | 5 | Bdelta(T) = | ',Bdelta:7:3,'':13,'|'); 220
writeln(' | 6 | H(mm) = | ',h*10:7:0,'':13,'|'); 220
writeln(' | 7 | Dn(mm) = | ',Dn*10:7:0,'':13,'|'); 220
writeln(' | 8 | D(mm) = | ',D*10:7:2,'':13,'|'); 220
writeln(' | 9 | l1 = l2 (mm) = | ',l1*10:7:1,'':13,'|'); 220
writeln(' | 10 | Buoccuc_ To (cm) = | ',buoccuc:7:3,'':13,'|'); 220
writeln(' | 11 | Lamda=l1/ To = | ',lamda:7:3,'':13,'|'); 220
writeln(' |__________________________________________________|'); 220
readln; 220
CLRSCR; 221
writeln(' TINH TOAN STATO '); 221
writeln(' ----------------------------------------------------'); 221
writeln(' | TT | THAM SO TINH TOAN | GIA TRI |'); 221
writeln(' |--------------------------------------------------|'); 221
writeln(' | 12 | Z1 = | ',Z1:7:0,'':13,'|'); 221
writeln(' | 13 | q1 = | ',q1:7:0,'':13,'|'); 221
writeln(' | 14 | p = | ',p:7,'':13,'|'); 221
writeln(' | 15 | Ur1(vong) = | ',ur1:7:0,'':13,'|'); 221
writeln(' | 16 | W1(vong) = | ',W1:7:0,'':13,'|'); 221
writeln(' | 17 | a1 = | ',a1:7,'':13,'|'); 221
writeln(' | 18 | n1 = | ',n1:7,'':13,'|'); 221
writeln(' | 19 | AJ(A2/cm.mm2) = | ',AJ:7:1,'':13,'|'); 221
writeln(' | 20 | Sdq(mm2) = | ',Sdq:7:3,'':13,'|'); 221
writeln(' | 21 | dcd/ d (mm) = | ',ddqcd:3:2,'/',ddq:3:2,'':11,'|'); 221
writeln(' | 22 | To = | ',Bcuc_r:7,'':13,'|'); 221
writeln(' | 23 | y = | ',y:7:0,'':13,'|'); 221
writeln(' | 24 | beta=y/ To = | ',y/buoccuc:7:3,'':13,'|'); 221
writeln(' | 25 | Kdq = | ',Kdq:7:3,'':13,'|'); 221
writeln(' |__________________________________________________|'); 221
readln; 221
clrscr; 221
writeln(' ----------------------------------------------------'); 221
writeln(' | TT | THAM SO TINH TOAN | GIATRI |'); 221
writeln(' |--------------------------------------------------|'); 221
writeln(' | 26 | h41(mm) = | ',h41*10:7:2,'':13,'|'); 221
writeln(' | 27 | b41(mm) = | ',b41:7:2,'':13,'|'); 221
writeln(' | 28 | d1(mm) = | ',d1*10:7:2,'':13,'|'); 221
writeln(' | 29 | d2(mm) = | ',d2*10:7:2,'':13,'|'); 221
writeln(' | 30 | hr1(mm) = | ',hr1*10:7:2,'':13,'|'); 221
writeln(' | 31 | h11(mm) = | ',h11*10:7:2,'':13,'|'); 221
writeln(' | 32 | bz1(mm) = | ',b1z*10:7:2,'':13,'|'); 221
writeln(' | 33 | hg1(mm) = | ',h1g*10:7:2,'':13,'|'); 221
writeln(' | 34 | J1(A/mm2) = | ',J1:7:3,'':13,'|'); 221
writeln(' | 35 | Sr_ph(mm2) = | ',Sr_ph*100:7:2,'':13,'|'); 221
writeln(' | 36 | Scd(mm2) = | ',Scd*100:7:2,'':13,'|'); 221
writeln(' | 37 | Sr(mm2) = | ',Sr*100:7:2,'':13,'|'); 221
writeln(' | 38 | Kld = | ',Kld:7:2,'':13,'|'); 221
writeln(' | 39 | t1(cm) = | ',t1:7:3,'':13,'|'); 221
writeln(' | 40 | Delta(mm) = | ',delta*10:7:2,'':13,'|'); 221
writeln(' |__________________________________________________|'); 221
writeln(' trong do be day cach dien tuong ung C1/C2/C3=',C1*10:4:2,'/',C2*10:4:2,'/',C3*10:4:2,'(mm)'); 221
readln; CLRSCR; 221
writeln(' TINH TOAN ROTO '); 221
writeln(' ----------------------------------------------------'); 221
writeln(' | TT | THAM SO TINH TOAN | GIATRI |'); 221
writeln(' |--------------------------------------------------|'); 221
writeln(' | 41 | h42(mm) = | ',h42*10:7:2,'':13,'|'); 221
writeln(' | 42 | b42(mm) = | ',b42*10:7:2,'':13,'|'); 221
if chon = 1 then 221
begin 221
writeln(' | 43 | dr1(mm) = | ',dr1*10:7:2,'':13,'|'); 221
writeln(' | 44| dr2(mm) = | ',dr2*10:7:2,'':13,'|'); 221
end; 221
if chon = 2 then 221
begin 221
writeln(' | 45 | dr1(mm)=dr = | ',dr*10:7:2,'':13,'|'); 221
writeln(' | 46 | dr2(mm)=dr = | ',dr*10:7:2,'':13,'|'); 221
end; 221
writeln(' | 47 | hr2(mm) = | ',hr2*10:7:2,'':13,'|'); 221
writeln(' | 48 | h12(mm) = | ',h12*10:7:2,'':13,'|'); 221
writeln(' | 49 | bz2(mm) = | ',b2z*10:7:2,'':13,'|'); 222
writeln(' | 50 | hg2(mm) = | ',h2g*10:7:2,'':13,'|'); 222
writeln(' | 51 | Sr2(mm2) = | ',Sr2*100:7:2,'':13,'|'); 222
writeln(' | 52 | Z2 = | ',Z2:7:0,'':13,'|'); 222
writeln(' | 53 | Jv(A/mm2) = | ',Jv:7:3,'':13,'|'); 222
writeln(' | 54 | Jtd(A/mm2) = | ',Jtd:7:3,'':13,'|'); 222
writeln(' | 55 | Dt(mm) = | ',Dt*10:7:1,'':13,'|'); 222
writeln(' | 56 | av(mm) = | ',av*10:7:2,'':13,'|'); 222
writeln(' | 57 | bv(mm) = | ',bv*10:7:2,'':13,'|'); 222
writeln(' | 58 | Sv(mm2) = | ',Sv*100:7:2,'':13,'|'); 222
writeln(' | 59 | Iv(A) = | ',Iv:7:3,'':13,'|'); 222
writeln(' | 60 | Itd(A) = | ',Itd:7:3,'':13,'|'); 222
writeln(' |__________________________________________________|'); 222
readln; 222
CLRSCR; 222
writeln(' TINH TOAN MACH TU '); 222
writeln(' ----------------------------------------------------'); 222
writeln(' | TT | THAM SO TINH TOAN | GIA TRI |'); 222
writeln(' |--------------------------------------------------|'); 222
writeln(' | 61 | Kdelta = | ',Kdelta:7:3,'':13,'|'); 222
writeln(' | 62 | Fdelta = | ',Fdelta:7:3,'':13,'|'); 222
writeln(' | 63 | Fz1(A.vong) = | ',Fz1:7:3,'':13,'|'); 222
writeln(' | 64 | Fz2(A.vong) = | ',Fz2:7:3,'':13,'|'); 222
writeln(' | 65 | Fg1(A.vong) = | ',Fg1:7:3,'':13,'|'); 222
writeln(' | 66 | Fg2(A.vong) = | ',Fg2:7:3,'':13,'|'); 222
writeln(' | 67 | Kz = | ',Kz:7:2,'':13,'|'); 222
writeln(' | 68 | Lg1(cm) = | ',Lg1:7:2,'':13,'|'); 222
writeln(' | 69 | Lg2(cm) = | ',Lg2:7:2,'':13,'|'); 222
writeln(' | 70 | K_ muy = | ',Kmuy:7:3,'':13,'|'); 222
writeln(' | 71 | Imuy (A) = | ',Io:7:3,'':13,'|'); 222
writeln(' | 72 | Imuy% = | ',Iop:7:3,'':13,'|'); 222
writeln(' |__________________________________________________|'); 222
readln; 222
CLRSCR; 222
writeln(' TINH TOAN CAC THAM SO CUA DONG CO O CHE DO DINH MUC '); 222
writeln(' ----------------------------------------------------'); 222
writeln(' | TT | THAM SO TINH TOAN | GIA TRI |'); 222
writeln(' |--------------------------------------------------|'); 222
writeln(' | 73 | Ldn (cm) = | ',ldn:7:2,'':13,'|'); 222
writeln(' | 74 | ltb (cm) = | ',ltb:7:2,'':13,'|'); 222
writeln(' | 75 | L1f(m) = | ',L1f:7:2,'':13,'|'); 222
writeln(' | 76 | R1(om) = | ',R1:7:3,'':13,'|'); 222
writeln(' | 77 | R1* = | ',R1td:7:4,'':13,'|'); 222
writeln(' | 78 | R2(om) = | ',R2:7:5,'':13,'|'); 222
writeln(' | 79 | R2qd (om) = | ',R2qd:7:3,'':13,'|'); 222
writeln(' | 80 | R2* = | ',R2td:7:4,'':13,'|'); 222
writeln(' | 81 | X1(om) = | ',X1:7:3,'':13,'|'); 222
writeln(' | 82 | X1* = | ',X1td:7:3,'':13,'|'); 222
writeln(' | 83 | X2(om) = | ',X2:7:5,'':13,'|'); 222
writeln(' | 84 | X2qd(om) = | ',X2qd:7:3,'':13,'|'); 222
writeln(' | 85 | X2* = | ',X2td:7:3,'':13,'|'); 222
writeln(' | 86 | X12(om) = | ',X12:7:4,'':13,'|'); 222
writeln(' | 87 | X12* = | ',X12td:7:3,'':13,'|'); 222
writeln(' | 88 | Ke = | ',Ke:7:3,'':13,'|'); 222
writeln(' | 89 | Ke_ tt = | ',Ke_tt:7:3,'':13,'|'); 222
writeln(' |_ _______________________________________________|'); 222
readln; 222
CLRSCR; 222
writeln(' TINH TOAN TON HAO THEP VA TON HAO CO '); 222
writeln(' ----------------------------------------------------'); 222
writeln(' | TT | THAM SO TINH TOAN | GIA TRI |'); 223
writeln(' |--------------------------------------------------|'); 223
writeln(' | 90 | Gz1(kg) = | ',Gz1:7:3,'':13,'|'); 223
writeln(' | 91 | Gg1(kg) = | ',Gg1:7:3,'':13,'|'); 223
writeln(' | 92 | Gz2(kg) = | ',Gz2:7:3,'':13,'|'); 223
writeln(' | 92 | Pfe1(kw) = | ',Pfe1:7:3,'':13,'|'); 223
writeln(' | 94 | Pbm(kw) = | ',Pbm:7:3,'':13,'|'); 223
writeln(' | 95 | Pdmach(kw) = | ',Pdmach:7:3,'':13,'|'); 223
writeln(' | 96 | Pfe(kw) = | ',Pfe:7:3,'':13,'|'); 223
writeln(' | 97 | Pco(kw) = | ',Pco:7:3,'':13,'|'); 223
writeln(' | 98 | P0 (kw) = | ',P0:7:3,'':13,'|'); 223
writeln(' |__________________________________________________|'); 223
readln; 223
CLRSCR; 223
writeln(' CAC THONG SO O CHE DO LAM VIEC(SO BO) '); 223
writeln(' ---------------------------------------------------------------------'); 223
writeln(' | TT | THAM SO TINH TOAN | GIA TRI TINH TOAN | '); 223
writeln(' |--------------------------------------------------------------------|'); 223
writeln(' | 99 | cosphi_ tt = | ',cosphi_tt:5:3,'':10,'|',cosphi:5:3,'':15,'|'); 223
writeln(' | 100| HS_ tt = | ',HS_tt:5:3,'':10,'|',HS:5:3,'':15,'|'); 223
writeln(' | 101| Sdm = | ',Sdm:5:3,'':10,'|','':15,'|'); 223
writeln(' | 102| Pcu1(kw) = | ',Pcu1:5:3,'':10,'|','':15,'|'); 223
writeln(' | 103| Pcu2(kw) = | ',Pcu2:5:3,'':10,'|','':15,'|'); 223
writeln(' | 104| Pf(kw) = | ',Pf:5:3,'':10,'|','':15,'|'); 223
writeln(' | 105| Sm = | ',Sm:5:3,'':10,'|','':15,'|'); 223
writeln(' | 106| Mmax = | ',Mmax_tt:5:3,'':10,'|','':15,'|'); 223
writeln(' | 107| P1(kw) = | ',P1:5:2,'':10,'|',Pdm:5:2,'':15,'|'); 223
writeln(' | 118| P2(kw) = | ',P1*HS_tt:5:2,'':10,'|','':15,'|'); 223
writeln(' | 119| Boi dong_ KD_ tt = | ',BImm:5:3,'':10,'|',boidong:5:3,'':15,'|'); 223
writeln(' | 120| Boi MmomenKD_ tt = | ',BMmm:5:2,'':10,'|',boimomen:5:3,'':15,'|'); 223
writeln(' |____________________________________________|'); 223
writeln(' SO SANH MOT SO GIA TRI TINH TOAN CHU YEU VOI TCVN'); 223
writeln(' ---------------------------------------------------'); 223
writeln(' | || T| T| | TEN DAI LUONG | GIA TRI DM | || G| I| A| TRI TINH|'); 223
writeln(' |_________________________________________________|'); 223
writeln(' | 1 | HS | ',HS:7:3,'':5,'|',HS_tt:7:3,'':5,'|'); 223
writeln(' | 2 | Cosphi | ',Cosphi:7:3,'':5,'|',cosphi_tt:7:3,'':5,'|'); 223
writeln(' | 3 | Ke | ',Ke:7:3,'':5,'|',Ke_tt:7:3,'':5,'|'); 223
writeln(' | 4 | BoimomenMax | ',Mmax:7:3,'':5,'|',Mmax_tt:7:3,'':5,'|'); 223
writeln(' | 5 | BoiDongkdong | ',Boidong:7:3,'':5,'|',BImm:7:3,'':5,'|'); 223
writeln(' | 6 | BoimomenKdong | ',Boimomen:7:3,'':5,'|',BMmm:7:3,'':5,'|'); 223
writeln(' | 7 | P1(kw) | ',P1:7:3,'':5,'|',Pdm:5:2,'':7,'|'); 223
writeln(' |_________________________________________________|'); 223
readln; 223
end; 223
procedure INFILE; 223
VAR 223
f:text; 223
kq,ten:chuoi; 223
ch:char; 223
begin 223
Writeln(' Co in cac ket qua tren ra file khong? "C/K" '); 223
repeat 223
readln(ch); 223
until (upcase(ch)='C')or(upcase(ch)='K'); 223
if upcase(ch)='C' then 223
begin 223
Writeln(' Vao duong dan file ket qua'); 223
Writeln(' Neu go ENTER thi duong dan la c:\tp\ketqua\'); 223
readln(kq); 223
if kq='' then kq:='c:\tp\ketqua\'; 224
Write(' Vao ten file:');readln(ten); 224
assign(f,kq+ten); 224
rewrite(f); 224
writeln(f,' CAC THONG SO VA KICH THUOC CHU YEU CUA MAY DIEN'); 224
writeln(f,' ----------------------------------------------------'); 224
writeln(f,' | TT | THAM SO TINH TOAN | GIA TRI |'); 224
writeln(f,' |--------------------------------------------------|'); 224
writeln(f,' | 1 | Pdm(kw) = | ',Pdm:7:2,'':13,'|'); 224
writeln(f,' | 2 | MH_ THEP = | ',MH_THEP:7,'':13,'|'); 224
writeln(f,' | 3 | Kd = | ',Kd:7:2,'':13,'|'); 224
writeln(f,' | 4 | A(A/cm) = | ',A:7:1,'':13,'|'); 224
writeln(f,' | 5 | Bdelta(T) = | ',Bdelta:7:3,'':13,'|'); 224
writeln(f,' | 6 | H(mm) = | ',h*10:7:0,'':13,'|'); 224
writeln(f,' | 7 | Dn(mm) = | ',Dn*10:7:0,'':13,'|'); 224
writeln(f,' | 8 | D(mm) = | ',D*10:7:2,'':13,'|'); 224
writeln(f,' | 9 | l1 = l2 (mm) = | ',l1*10:7:1,'':13,'|'); 224
writeln(f,' | 10 | Buoccuc_ To (cm) = | ',buoccuc:7:3,'':13,'|'); 224
writeln(f,' | 11 | Lamda=l1/ To = | ',lamda:7:3,'':13,'|'); 224
writeln(f,' |__________________________________________________|'); 224
writeln(f,' | TINH TOAN STATO | '); 224
writeln(f,' |--------------------------------------------------|'); 224
writeln(f,' | 12 | Z1 = | ',Z1:7:0,'':13,'|'); 224
writeln(f,' | 13 | q1 = | ',q1:7:0,'':13,'|'); 224
writeln(f,' | 14 | p = | ',p:7,'':13,'|'); 224
writeln(f,' | 15 | Ur1(vong) = | ',ur1:7:0,'':13,'|'); 224
writeln(f,' | 16 | W1(vong) = | ',W1:7:0,'':13,'|'); 224
writeln(f,' | 17 | a1 = | ',a1:7,'':13,'|'); 224
writeln(f,' | 18 | n1 = | ',n1:7,'':13,'|'); 224
writeln(f,' | 19 | AJ(A2/cm.mm2) = | ',AJ:7:1,'':13,'|'); 224
writeln(f,' | 20 | Sdq(mm2) = | ',Sdq:7:3,'':13,'|'); 224
writeln(f,' | 21 | dcd/ d (mm) = | ',ddqcd:3:2,'/',ddq:3:2,'':12,'|'); 224
writeln(f,' | 22 | To = | ',Bcuc_r:7,'':13,'|'); 224
writeln(f,' | 23 | y = | ',y:7:0,'':13,'|'); 224
writeln(f,' | 24 | beta=y/ To = | ',beta:7:3,'':13,'|'); 224
writeln(f,' | 25 | Kdq = | ',Kdq:7:3,'':13,'|'); 224
writeln(f,' | 26 | h41(mm) = | ',h41*10:7:2,'':13,'|'); 224
writeln(f,' | 27 | b41(mm) = | ',b41:7:2,'':13,'|'); 224
writeln(f,' | 28 | d1(mm) = | ',d1*10:7:2,'':13,'|'); 224
writeln(f,' | 29 | d2(mm) = | ',d2*10:7:2,'':13,'|'); 224
writeln(f,' | 30 | hr1(mm) = | ',hr1*10:7:2,'':13,'|'); 224
writeln(f,' | 31 | h11(mm) = | ',h11*10:7:2,'':13,'|'); 224
writeln(f,' | 32 | bz1(mm) = | ',b1z*10:7:2,'':13,'|'); 224
writeln(f,' | 33 | hg1(mm) = | ',h1g*10:7:2,'':13,'|'); 224
writeln(f,' | 34 | Bz1(T) = | ',Bz1:7:3,'':13,'|'); 224
writeln(f,' | 35 | Bzmin(T) = | ',Bzmin:7:3,'':13,'|'); 224
writeln(f,' | 36 | Bzmax(T) = | ',Bzmax:7:3,'':13,'|'); 224
writeln(f,' | 37 | J1(A/mm2) = | ',J1:7:3,'':13,'|'); 224
writeln(f,' | 38 | Sr_ph(mm2) = | ',Sr_ph*100:7:2,'':13,'|'); 224
writeln(f,' | 39 | Scd(mm2) = | ',Scd*100:7:2,'':13,'|'); 224
writeln(f,' | 40 | Sr(mm2) = | ',Sr*100:7:2,'':13,'|'); 224
writeln(f,' | 41 | Kld = | ',Kld:7:2,'':13,'|'); 224
writeln(f,' | 42 | t1(cm) = | ',t1:7:3,'':13,'|'); 224
writeln(f,' | 43 | Delta(mm) = | ',delta*10:7:2,'':13,'|'); 224
writeln(f,' |__________________________________________________|'); 224
writeln(f,' trong do be day cach dien tuong ung C1/C2/C3=',C1*10:4:2,'/',C2*10:4:2,'/',C3*10:4:2,'(mm)'); 224
writeln(f,' TINH TOAN ROTO '); 224
writeln(f,' ----------------------------------------------------'); 224
writeln(f,' | TT | THAM SO TINH TOAN | GIATRI |'); 224
writeln(f,' |--------------------------------------------------|'); 225
writeln(f,' | 44 | h42(mm) = | ',h42*10:7:2,'':13,'|'); 225
writeln(f,' | 45 | b42(mm) = | ',b42*10:7:2,'':13,'|'); 225
if chon = 1 then 225
begin 225
writeln(f,' | 46 | dr1(mm) = | ',dr1*10:7:2,'':13,'|'); 225
writeln(f,' | 47| dr2(mm) = | ',dr2*10:7:2,'':13,'|'); 225
end; 225
if chon = 2 then 225
begin 225
writeln(f,' | 48 | dr1(mm)=dr = | ',dr*10:7:2,'':13,'|'); 225
writeln(f,' | 49 | dr2(mm)=dr = | ',dr*10:7:2,'':13,'|'); 225
end; 225
writeln(f,' | 50 | hr2(mm) = | ',hr2*10:7:2,'':13,'|'); 225
writeln(f,' | 51 | h12(mm) = | ',h12*10:7:2,'':13,'|'); 225
writeln(f,' | 52 | bz2(mm) = | ',b2z*10:7:2,'':13,'|'); 225
writeln(f,' | 54 | Bz2(T ) = | ',bz2:7:3,'':13,'|'); 225
writeln(f,' | 55 | Bz2max(T) = | ',BZmax:7:3,'':13,'|'); 225
writeln(f,' | 56 | hg2(mm) = | ',h2g*10:7:2,'':13,'|'); 225
writeln(f,' | 57 | Sr2(mm2) = | ',Sr2*100:7:2,'':13,'|'); 225
writeln(f,' | 58 | Z2 = | ',Z2:3,'':13,'|'); 225
writeln(f,' | 59 | Jv(A/mm2) = | ',Jv:7:3,'':13,'|'); 225
writeln(f,' | 60 | Jtd(A/mm2) = | ',Jtd:7:3,'':13,'|'); 225
writeln(f,' | 61 | Dt(mm) = | ',Dt*10:7:1,'':13,'|'); 225
writeln(f,' | 62 | av(mm) = | ',av*10:7:2,'':13,'|'); 225
writeln(f,' | 63 | bv(mm) = | ',bv*10:7:2,'':13,'|'); 225
writeln(f,' | 64 | Sv(mm2) = | ',Sv*100:7:2,'':13,'|'); 225
writeln(f,' | 65 | Iv(A) = | ',Iv:7:3,'':13,'|'); 225
writeln(f,' | 66 | Itd(A) = | ',Itd:7:3,'':13,'|'); 225
writeln(f,' |__________________________________________________|'); 225
writeln(f,' TINH TOAN MACH TU '); 225
writeln(f,' ----------------------------------------------------'); 225
writeln(f,' | TT | THAM SO TINH TOAN | GIA TRI |'); 225
writeln(f,' |--------------------------------------------------|'); 225
writeln(f,' | 67 | Kdelta = | ',Kdelta:7:3,'':13,'|'); 225
writeln(f,' | 68 | Fdelta(a.vong) = | ',Fdelta:7:3,'':13,'|'); 225
writeln(f,' | 69 | Fz1(A.vong) = | ',Fz1:7:3,'':13,'|'); 225
writeln(f,' | 70 | Fz2(A.vong) = | ',Fz2:7:3,'':13,'|'); 225
writeln(f,' | 71 | Fg1(A.vong) = | ',Fg1:7:3,'':13,'|'); 225
writeln(f,' | 72 | Fg2(A.vong) = | ',Fg2:7:3,'':13,'|'); 225
writeln(f,' | 73 | Kz = | ',Kz:7:2,'':13,'|'); 225
writeln(f,' | 74 | Lg1(cm) = | ',Lg1:7:2,'':13,'|'); 225
writeln(f,' | 75 | Lg2(cm) = | ',Lg2:7:2,'':13,'|'); 225
writeln(f,' | 76 | K_ muy = | ',Kmuy:7:3,'':13,'|'); 225
writeln(f,' | 77 | Imuy (A) = | ',Io:7:3,'':13,'|'); 225
writeln(f,' | 78 | Imuy% = | ',Iop:7:3,'':13,'|'); 225
writeln(f,' |__________________________________________________|'); 225
writeln(f,' TINH TOAN CAC THAM SO CUA DONG CO O CHE DO DINH MUC '); 225
writeln(f,' ----------------------------------------------------'); 225
writeln(f,' | TT | THAM SO TINH TOAN | GIA TRI |'); 225
writeln(f,' |--------------------------------------------------|'); 225
writeln(f,' | 79 | Ldn (cm) = | ',ldn:7:2,'':13,'|'); 225
writeln(f,' | 80 | ltb (cm) = | ',ltb:7:2,'':13,'|'); 225
writeln(f,' | 81 | L1f(m) = | ',L1f:7:2,'':13,'|'); 225
writeln(f,' | 82 | R1(om) = | ',R1:7:3,'':13,'|'); 225
writeln(f,' | 83 | R1* = | ',R1td:7:4,'':13,'|'); 225
writeln(f,' | 84 | R2(om) = | ',R2:7:5,'':13,'|'); 225
writeln(f,' | 85 | R2qd (om) = | ',R2qd:7:3,'':13,'|'); 225
writeln(f,' | 86 | R2* = | ',R2td:7:4,'':13,'|'); 225
writeln(f,' | 87 | X1(om) = | ',X1:7:3,'':13,'|'); 225
writeln(f,' | 88 | X1* = | ',X1td:7:3,'':13,'|'); 225
writeln(f,' | 89 | X2(om) = | ',X2:7:5,'':13,'|'); 226
writeln(f,' | 90 | X2qd(om) = | ',X2qd:7:3,'':13,'|'); 226
writeln(f,' | 91 | X2* = | ',X2td:7:3,'':13,'|'); 226
writeln(f,' | 92 | X12(om) = | ',X12:7:4,'':13,'|'); 226
writeln(f,' | 93 | X12* = | ',X12td:7:3,'':13,'|'); 226
writeln(f,' | 94 | Ke = | ',Ke:7:3,'':13,'|'); 226
writeln(f,' | 95 | Ke_ tt = | ',Ke_tt:7:3,'':13,'|'); 226
writeln(f,' |_ _______________________________________________|'); 226
writeln(f,' TINH TOAN TON HAO THEP VA TON HAO CO '); 226
writeln(f,' ----------------------------------------------------'); 226
writeln(f,' | TT | THAM SO TINH TOAN | GIA TRI |'); 226
writeln(f,' |--------------------------------------------------|'); 226
writeln(f,' | 96 | Gz1(kg) = | ',Gz1:7:3,'':13,'|'); 226
writeln(f,' | 97 | Gg1(kg) = | ',Gg1:7:3,'':13,'|'); 226
writeln(f,' | 98 | Gz2(kg) = | ',Gz2:7:3,'':13,'|'); 226
writeln(f,' | 99 | Pfe1(kw) = | ',Pfe1:7:3,'':13,'|'); 226
writeln(f,' | 100| Pbm(kw) = | ',Pbm:7:3,'':13,'|'); 226
writeln(f,' | 101| Pdmach(kw) = | ',Pdmach:7:3,'':13,'|'); 226
writeln(f,' | 102| Pfe(kw) = | ',Pfe:7:3,'':13,'|'); 226
writeln(f,' | 103| Pco(kw) = | ',Pco:7:3,'':13,'|'); 226
writeln(f,' | 104| P0 (kw) = | ',P0:7:3,'':13,'|'); 226
writeln(f,' |__________________________________________________|'); 226
writeln(f,' CAC THONG SO O CHE DO LAM VIEC(SO BO) '); 226
writeln(f,' --------------------------------------------------------------------------'); 226
writeln(f,' | TT | THAM SO TINH TOAN | GIA TRI TINH TOAN | '); 226
writeln(f,' |------------------------------------------------------------------------|'); 226
writeln(f,' | 106| cosphi_ tt = | ',cosphi_tt:7:3,'':13,'|'); 226
writeln(f,' | 107| HS = | ',HS:7:3,'':13,'|'); 226
writeln(f,' | 108| HS_ tt = | ',HS_tt:7:3,'':13,'|'); 226
writeln(f,' | 109| Sdm = | ',Sdm:7:3,'':13,'|'); 226
writeln(f,' | 110| Pcu1(kw) = | ',Pcu1:7:3,'':13,'|'); 226
writeln(f,' | 111| Pcu2(kw) = | ',Pcu2:7:3,'':13,'|'); 226
writeln(f,' | 112| Pf(kw) = | ',Pf:7:3,'':13,'|'); 226
writeln(f,' | 113| Sm = | ',Sm:7:3,'':13,'|'); 226
writeln(f,' | 114| Mmax = | ',Mmax_tt:7:3,'':13,'|'); 226
writeln(f,' | 115| P1(kw) = | ',P1:7:2,'':13,'|'); 226
writeln(f,' | 116| P2(kw) = | ',P1*HS_tt:7:2,'':13,'|'); 226
writeln(f,' | 117| Boi dong_ KD = | ',BImm:7:3,'':13,'|'); 226
writeln(f,' | 118| Boi MmomenKD = | ',BMmm:7:2,'':13,'|'); 226
writeln(f,' |__________________________________________________|'); 226
writeln(f,' SO SANH CAC GIA TRI TINH TOAN VOI CAC THONG SO DA CHO'); 226
writeln(f,' ---------------------------------------------------'); 226
writeln(f,' | || T| T| | TEN DAI LUONG | GIA TRI | || G| I| A| TRI TINH|'); 226
writeln(f,' |_________________________________________________|'); 226
writeln(f,' | 1 | HS | ',HS:7:3,'':5,'|',HS_tt:7:3,'':5,'|'); 226
writeln(f,' | 2 | Cosphi | ',Cosphi:7:3,'':5,'|',cosphi_tt:7:3,'':5,'|'); 226
writeln(f,' | 3 | Ke | ',Ke:7:3,'':5,'|',Ke_tt:7:3,'':5,'|'); 226
writeln(f,' | 4 | BoimomenMax | ',Mmax:7:3,'':5,'|',Mmax_tt:7:3,'':5,'|'); 226
writeln(f,' | 5 | BoiDongkdong | 7','':9,'|',BImm:7:3,'':5,'|'); 226
writeln(f,' | 6 | BoimomenKdong | 1.4','':7,'|',BMmm:7:3,'':5,'|'); 226
writeln(f,' | 7 | P1(kw) | ',P1:7:3,'':5,'|',Pdm:7:3,'':5,'|'); 226
writeln(f,' |_________________________________________________|'); 226
226
close(f); 226
end else exit; 226
end; 226
END.Unit M_TU; {Tinh toan cac thong so cua mach tu} 226
INTERFACE 226
USES CRT,nhap1; 226
Procedure ThietKeStator(solap,solop,p:integer; Pdm,HS,cosphi,AJ,A_ph,D,Ke,Ks,Anpha_delta, 226
Buoccuc,l1,kc,Bzmin,Bzmax,Bgmin,Bgmax,Dn,C1,C2,C3:real; DuongDan:chuoi; 227
Var q1,a1,n1,Bcuc_r,chon_s:integer; var Idm,J1,t1,Ur1,W1,Sdq,Ddqcd,Ddq,y,Ky1,Kdq, 227
phi,Bdelta,b41,h41,d1,d2,hr1,h11,Sr_ph,Scd,Sr,Sv,Kld,A,b1z,h1g,Delta,Z1:real); 227
Procedure TINH_SO_BO_ROTO(Solap,p:integer; DuongDan:chuoi; h,cosphi,D,Bdelta, 227
Delta,l2,Bzmax,Kc,phi,Bgmax,Idm,W1,Kdq,Z1:real; 227
Var Z2,chon:integer; var b42,h42,Ki,Jtd,Jv,Droto,t2,I2,Itd,b2zmin,h2gmin,Dt, 227
Iv,Std,Sv,bn:real); 227
Procedure KT_RANH_QUA_LE(ii,Z2:integer; b2zmin,Droto,h42,Dt,Std,h2gmin,Itd,Iv:real; 227
Var Dem:integer; var dr1,dr2,h12,hr2,h2g,b2z,Sr2,Jtd,av,bv,Sv,Jv,Dv:real); 227
Procedure KT_RANH_OVAN(ii,Z2:integer; Droto,b2zmin,Std,h42,Dt,h2gmin,Iv:real; 227
Var Dem:integer; var Sr2,dr,h12,hr2,b2z,h2g,av,bv,Sv,Jv,Dv:real); 227
Procedure TINH_TOAN_MANH_TU(Chon,chon_s,p,MH_THEP:integer; b41,h41,Delta,t1,b42,t2,Bdelta,l1,Kc,hr1,b1z,d2,l2,hr2, 227
h42,b2z,dr2,dr,phi,h1g,Dn,h2g,Dt,W1,Kdq,Idm:real; DuongDan:chuoi; 227
Var Kdelta,Fdelta,nuy1,nuy2,Bz1,Fz1,Bz2,Fz2,Bg1,Lg1,Lg2,Fg1,Fg2,Bg2,Kz,Kmuy, 227
Io,Iop:real); 227
IMPLEMENTATION 227
PROCEDURE ThietKeStator(solap,solop,p:integer; Pdm,HS,cosphi,AJ,A_ph,D,Ke,Ks,Anpha_delta, 227
Buoccuc,l1,kc,Bzmin,Bzmax,Bgmin,Bgmax,Dn,C1,C2,C3:real; DuongDan:chuoi; 227
Var q1,a1,n1,Bcuc_r,chon_s:integer; var Idm,J1,t1,Ur1,W1,Sdq,Ddqcd,Ddq,y,Ky1,Kdq, 227
phi,Bdelta,b41,h41,d1,d2,hr1,h11,Sr_ph,Scd,Sr,Sv,Kld,A,b1z,h1g,Delta,Z1:real); 227
Var b1zmax,b1zmin,h1gmax,h1gmin,Bz1,Bg1,b1z_ph,h1g_ph,Anpha:real; 227
Procedure TRA2(TenFile: chuoi;BNS: REAL;Var GTNS:REAL); {ham doc so lieu 2 day bien} 227
var 227
F:text; 227
i:integer; 227
TG1,TG2:MANG; {i la cac bien trong file} 227
begin 227
assign(F,DuongDan+TenFile); {gan ten file cho kieu file F} 227
reset(F); {mo file da co tren dia de doc hoac ghi} 227
i:=1; 227
While not eof(F) do {doc bien tu dau file cho den cuo file } 227
begin {ghi cac bien trong file tuong ung vao bien TG1[i],tg2[i]} 227
read(F,TG1[i],tg2[i]); 227
i:=i+1; 227
end; 227
close(F); {ket thuc doc file} 227
i:=1; 227
Repeat 227
i:=i+1; 227
until BNS <= TG1[i]; { BNS : Bien ma ta can noi suy} 227
GTNS:= TG2[i-1]+(TG2[i]-TG2[i-1])*(BNS-TG1[i-1])/(TG1[i]-TG1[i-1]); {GTNS : Gia tri noi suy} 227
End; 227
{----------------------------------------------------------------} 227
Procedure TRA3(TenFile: chuoi;BNS: REAL;Var GTNS1,GTNS2:REAL); {doc so lieu 3 day bien tu dia} 227
var 227
F:text; 227
i:integer; 227
TG1,TG2,TG3:MANG; 227
begin 227
assign(F,DuongDan+TenFile); 227
reset(F); 227
i:=1; 227
While not eof(F) do 227
begin 227
read(F,TG1[i],tg2[i],tg3[i]); 227
i:=i+1; 227
end; 228
close(F); 228
i:=1; 228
Repeat 228
i:=i+1; 228
until BNS <= TG1[i]; { BNS : Bien ma ta can noi suy} 228
GTNS1:= TG2[i-1]+(TG2[i]-TG2[i-1])*(BNS-TG1[i-1])/(TG1[i]-TG1[i-1]); {GTNS : Gia tri noi suy} 228
GTNS2:= TG3[i-1]+(TG3[i]-TG3[i-1])*(BNS-TG1[i-1])/(TG1[i]-TG1[i-1]) 228
End; 228
Procedure TinhSoRanhStator; 228
Begin 228
if solap = 1 then 228
begin 228
Write(' Chon so ranh mot pha duoi mot cuc q1 = ');readln(q1); 228
Z1:=6*p*q1; 228
end; 228
end; 228
{-----------------------------------------------------------------} 228
procedure DongDinhMuc; {tinh dong dien dinh muc} 228
begin 228
Idm:=Pdm*1000/(HS*220*3*Cosphi); 228
end; 228
{------------------------------------------------------------------} 228
Procedure MatDoDongDienSoBo; {chon so bo nat do dong dien} 228
begin 228
J1:=AJ/A_ph; 228
end; 228
{--------------------------------------------------------------------} 228
Procedure chon_a1_n1; {chon so mach nhanh song song va so soi ghep song song} 228
var 228
Tgian: real; 228
tt,ch:integer; 228
begin 228
a1:=0; 228
n1:=1; 228
Repeat 228
repeat 228
a1:=a1+1; 228
ch:= 2 * p mod a1; 228
tt:=2*p; 228
until ch=0; 228
Tgian:=Idm/(a1*n1*J1); 228
Until (Tgian <= 2)or(a1=tt) ; 228
if (Tgian >= 2) then 228
Repeat 228
n1:=n1+1; 228
Tgian:=Idm/(a1*n1*J1) ; 228
Until (Tgian <= 2) ; 228
end; 228
{--------------------------------------------------------------------} 228
Procedure BuocRangStato; {tinh buoc ranh stato} 228
begin 228
t1:=pi*D/Z1; 228
end; 228
{ --------------------------------------------------------------------} 228
procedure XacDinh_Ur1_W1; 228
var 228
tg:integer; 228
begin 228
Ur1:=A_ph*t1*a1/Idm; 228
if SoLop = 1 then Ur1:=round(Ur1);{ Ur1 phai la so nguyen} 229
if SoLop = 2 then { Ur1 phai la so nguyen chan} 229
begin 229
tg:=trunc(Ur1); 229
If ODD(tg) then Ur1: =tg+1 else Ur1:=tg; 229
end; 229
W1:=p*q1*Ur1/a1; 229
end; 229
{---------------------------------------------------------------------} 229
Procedure TietDienDayDan; 229
var i:integer; 229
S_ph:real; 229
F:text; 229
TG1,TG2,TG3:MANG; 229
begin 229
assign(F,DuongDan+'Tra_dq.TXT'); 229
reset(F); 229
i:=1; 229
While not eof(F) do 229
begin 229
read(F,TG1[i],tg2[i],tg3[i]); 229
i:=i+1; 229
end; 229
close(F); 229
S_ph:=Idm/(a1*n1*J1); 229
i:=0; 229
repeat 229
i:=i+1; 229
until S_ ph <= tg3[i]; 229
Sdq:=tg3[i]; 229
Ddqcd:=tg2[i]; 229
Ddq:=tg1[i]; 229
J1 :=Idm/(Sdq*a1*n1); 229
end; 229
{-------------------------------------------------------------------} 229
Procedure KieuDayQuan; 229
begin 229
Bcuc_r:=trunc(Z1/(2*p)); 229
if solap = 1 then 229
begin 229
y:=Bcuc_r; 229
Chonlai(' buoc day quan y',y); 229
end; 229
end; 229
{-------------------------------------------------------------------} 229
procedure HeSoDayQuan; 229
var Kr1:real; 229
begin 229
Ky1:=sin((y/Bcuc_r)*pi/2); {he so buoc ngan} 229
Anpha:=2*p*pi/Z1; 229
Kr1: =sin(q1*Anpha/2)/(q1*sin(Anpha/2));{he so quan rai} 229
if solop = 1 then 229
Kr1: =sin(pi/6)/(q1*sin(pi/(6*q1)));{he so quan rai} 229
Kdq:=Ky1*Kr1; 229
end; 229
{--------------------------------------------------------------------} 229
procedure KiemTra; 229
begin 229
phi:=Ke*220/(4*Ks*Kdq*W1*50); 229
Bdelta:=Phi*10000/(Anpha_delta*BuocCuc*l1); 229
A:=2*3*W1*Idm/(pi*D); 230
{ writeln(' phi = ',phi:5:2,' Bdelta = ',Bdelta:5:3,' A = ',A:8:2);} 230
end; 230
{-------------------------------------------------------------------} 230
Procedure Tinh_b41_h41; 230
var tg:real; 230
begin 230
tg:=Ddqcd+1.5; 230
if (tg-trunc(tg))<=0. 5 then b41:=(trunc(tg)+0.5)/10; 230
if (tg-trunc(tg))>0. 5 then b41:=round(tg)/10; 230
if b41>0. 3 then b41:=0.3; 230
if solap = 1 then 230
begin 230
repeat 230
Write( ' Chon chieu cao mieng ranh stato (0. 4->0. 8)mm : h41 = '); 230
readln(h41); 230
until (h41<=0.8)and(h41>=0.4); 230
h41:=h41/10; 230
end; 230
end; 230
{----------------------------------------------------------------} 230
Procedure CacKichThuocRangRanhStato; 230
var i,j:integer; 230
Bztg,Bgtg:real; 230
Procedure GioiHan_b1z_h1z; 230
begin 230
b1zmax:=Bdelta*t1/(Bzmin*kc); 230
h1gmax:=phi*10000/(2*Bgmin*l1*kc); 230
b1zmin:=Bdelta*t1/(Bzmax*kc); 230
h1gmin:=phi*10000/(2*Bgmax*l1*kc); 230
end; 230
{----------------------------------------------------------------} 230
Procedure ChieuCaoRang_GongSoBo; 230
begin 230
b1z_ph:=Bdelta*t1/(Bz1*kc); 230
h1g_ph:=phi*10000/(2*Bg1*l1*kc); 230
end; 230
{------------------------------------------------------------------} 230
Procedure CackichThuocRanh_QuaLe; 230
var 230
bz11,bz12,hn:real; 230
begin 230
hn:=3; 230
hn:=hn/10; 230
d1:=(pi*(D+2*h41)-b1z_ph*Z1)/(Z1-pi); 230
d2:=(pi*(Dn-2*h1g_ph)-b1z_ph*z1)/(Z1+pi); 230
hr1:=(Dn-D-2*h1g_ph)/2; 230
h11:=hr1-0.5*d2-h41; 230
Sr_ph: =pi*(sqr(d1))/8+(d1+d2)*(h11-hn)/2;{Dien tich ranh tru nem} 230
if SoLop = 1 then 230
Scd:=(pi*d2/2+2*h11)*C1+pi*d1*C3/2; 230
If SoLop = 2 then Scd:=(pi*d2/2+2*h11)*C1+(d1+d2)*C2/2+pi*d1*C3/2; 230
Sr:= Sr_ph-Scd; 230
Kld: =Ur1*n1*Sqr(Ddqcd)/(Sr*100);{Co so 100 vi Ddqcd tinh theo mm} 230
bz11:=pi*(D+2*h41+d1)/Z1-d1; 230
bz12:=pi*(D+2*(h41+h11))/Z1-d2; 230
b1z:=(bz11+bz12)/2; 230
h1g:=(Dn-D)/2-hr1+d2/6; 230
end; 230
{-----------------------------------------------------------------} 231
Procedure CackichThuocRanh_HinhThang; 231
var 231
bz11,bz12,hn:real; 231
begin 231
hn:=3; 231
hn:=hn/10; 231
d1:=(pi*(D+2*h41)-b1z_ph*Z1)/(Z1-pi); 231
d2:=pi*(Dn-2*h1g_ph)/Z1-b1z_ph; 231
hr1:=(Dn-D-2*h1g_ph)/2; 231
h11:=hr1-0.5*d2-h41; 231
Sr_ph: =(d1+d2)*(h11-h41-hn)/2;{Dien tich ranh tru nem} 231
if SoLop = 1 then 231
Scd:=(pi*d2/2+2*h11)*C1+pi*d1*C3/2; 231
If SoLop = 2 then Scd:=(pi*d2/2+2*h11)*C1+(d1+d2)*C2/2+pi*d1*C3/2; 231
Sr:= Sr_ph-Scd; 231
Kld: =Ur1*n1*Sqr(Ddqcd)/(Sr*100);{Co so 100 vi Ddqcd tinh theo mm} 231
bz11:=pi*(D+2*h41+d1)/Z1-d1; 231
bz12:=pi*(D+2*hr1)/Z1-d2; 231
b1z:=(bz11+bz12)/2; 231
h1g:=(Dn-D)/2-hr1; 231
end; 231
{------------------------------------------------------------------} 231
begin 231
Bz1:=Bzmin; 231
GioiHan_b1z_h1z; 231
i:=0; 231
Bztg:=(-Bzmin+Bzmax)/5; 231
Bgtg:=(-Bgmin+Bgmax)/5; 231
if solap = 1 then 231
begin 231
Writeln(' Neu chon so _ _ 1_ _ Tinh ranh roto kieu qua le'); 231
Writeln(' Neu chon so _ _ 2_ _ Tinh ranh roto kieu hinh thang'); 231
repeat 231
Writeln(' Ban chon so _ 1_ hoac_ 2_ de thuc hien chuong trinh'); 231
Write(' chon so='); Readln(chon_s); 231
until (chon_s=1) or (chon_s=2); 231
end; 231
repeat 231
i:=i+1; 231
Bz1:=Bzmin+i*Bztg; 231
j:=0; 231
repeat 231
j:=j+1; 231
Bg1:=Bgmin+j*Bgtg; 231
ChieuCaoRang_GongSoBo; 231
If chon_s = 1 then CackichThuocRanh_QuaLe; 231
If chon_s = 2 then CackichThuocRanh_HinhThang; 231
until ((Kld>=0.7)and(Kld<=0.75))and((b1z>=b1zmin)and(b1z<=b1zmax))and((h1g>h1gmin)and(h1g<=h1gmax))or(Bg1>Bgmax); 231
until ((Kld>=0.7)and(Kld<=0.75))and((h1g>h1gmin)and(h1g<=h1gmax))and((b1z>=b1zmin)and(b1z<=b1zmax))or(Bz1>Bzmax); 231
end; 231
{-----------------------------------------------------------------} 231
procedure KheHoKhongKhi; 231
var tg:real; 231
begin 231
if (Pdm<=20)and(p>=2)then 231
begin 232
tg:=(0.25+D/100)*10; 232
if (tg-trunc(tg))>0. 5 then delta:=(trunc(tg)+0.5)/100+0.005; 232
if (tg-trunc(tg))<=0. 5 then delta:=trunc(tg)/100+0.005; 232
end; 232
if (Pdm<=20)and(p=1)then 232
begin 232
tg:=(0.3+D*1.5/100)*10; 232
if (tg-trunc(tg))>0. 5 then delta:=(trunc(tg)+0.5)/100+0.005; 232
if (tg-trunc(tg))<=0. 5 then delta:=trunc(tg)/100+0.005; 232
end; 232
if (Pdm<=5)and(p>=2)then 232
begin 232
tg:=(0.25+D/100)*10; 232
if (tg-trunc(tg))>0. 5 then delta:=(trunc(tg)+0.5)/100; 232
if (tg-trunc(tg))<=0. 5 then delta:=trunc(tg)/100; 232
end; 232
if (Pdm<=5)and(p=1)then 232
begin 232
tg:=(0.3+D*1.5/100)*10; 232
if (tg-trunc(tg))>0. 5 then delta:=(trunc(tg)+0.5)/100; 232
if (tg-trunc(tg))<=0. 5 then delta:=trunc(tg)/100; 232
end; 232
if Pdm> 20 then 232
begin 232
tg:=((D/120)*(1+9/(2*p)))*10; 232
if (tg-trunc(tg))>0. 5 then delta:=(trunc(tg)+0.5)/100+0.005; 232
if (tg-trunc(tg))<=0. 5 then delta:=round(tg)/100+0.005; 232
end; 232
end;{ khe ho khong khi duoc lam tron den 0.00} 232
{-----------------------------------------------------------------} 232
Begin {CAC KICH THUOC STATOR} 232
TinhSoRanhStator; 232
DongDinhMuc; 232
MatDoDongDienSoBo; 232
chon_a1_n1; 232
BuocRangStato; 232
XacDinh_Ur1_W1; 232
TietDienDayDan; 232
KieuDayQuan; 232
HeSoDayQuan; 232
KiemTra; 232
Tinh_b41_h41; 232
CacKichThuocRangRanhStato; 232
KheHoKhongKhi; 232
end; 232
PROCEDURE TINH_SO_BO_ROTO(Solap,p:integer; DuongDan:chuoi; h,cosphi,D,Bdelta,Delta,l2,Bzmax, 232
Kc,phi,Bgmax,Idm,W1,Kdq,Z1:real; Var Z2,chon:integer; var b42,h42,Ki,Jtd,Jv, 232
Droto,t2,I2,Itd,b2zmin,h2gmin,Dt,Iv,Std,Sv,bn:real); 232
Procedure CHON_ Z2 ; 232
Const 232
BZ1p1 : Array[1..7] of real =( 12, 18, 24, 30, 36, 42, 48 ); 232
BZ2p1 : Array[1..7,1..11] of real = 232
(( 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0, 0, 0 ), 232
( 14, 18, 19, 22, 26, 28, 30, 31, 33, 34, 35 ), 232
( 18, 20, 26, 31, 33, 34, 35, 00, 0, 0, 0 ), 232
( 18, 20, 21, 23, 24, 37, 39, 40, 0, 0, 0 ), 232
( 25, 27, 29, 43, 45, 47, 0 , 0, 0, 0, 0 ), 232
( 0, 0, 0, 0, 0, 0, 0, 0 , 0, 0, 0 ), 232
( 37, 39, 41, 55, 57, 59, 0 , 0 , 0, 0, 0 )); 232
BZ1p2 : Array[1..7] of real =( 12, 18, 24, 36, 48, 60, 72 ); 233
BZ2p2 : Array[1..7,1..8] of real = 233
(( 15, 0 , 0 , 0 , 0 , 0 , 0 , 0 ), 233
( 18, 22, 0 , 0 , 0 , 0 , 0 , 0 ), 233
( 16, 18, 20, 30, 33, 34, 35, 36 ), 233
( 24, 27, 28, 30, 32, 34, 45, 48 ), 233
( 36, 38, 39, 40, 44, 57, 59, 0 ), 233
( 48, 49, 51, 56, 64, 69, 71, 0 ), 233
( 61, 63, 68, 76, 81, 83, 0 , 0 )); 233
BZ1p3 : Array[1..4] of real =( 36, 54, 72, 90 ); 233
BZ2p3 : Array[1..4,1..8] of real = 233
(( 28, 33, 47, 49, 50, 0 , 0 , 0 ), 233
( 42, 43, 51, 65, 67, 0 , 0 , 0 ), 233
( 57, 59, 60, 61, 83, 85, 87, 90 ), 233
( 75, 77, 79, 101, 103, 105, 0, 0 )); 233
BZ1p4 : Array[1..4] of real =( 48, 72, 84, 96 ); 233
BZ2p4 : Array[1..4,1..7] of real = 233
(( 35, 44, 61, 63, 65, 0 , 0 ), 233
( 56, 57, 59, 85, 87, 89, 0 ), 233
( 68, 69, 71, 97, 99, 101, 0 ), 233
( 79, 80, 81, 83, 109, 111, 113 )); 233
BZ1p5 : Array[1..3] of real =( 60, 90, 120 ); 233
BZ2p5 : Array[1..3,1..7] of real = 233
(( 57, 69, 77, 78, 79, 0 , 0 ), 233
( 70, 71, 73, 87, 93, 107, 109 ), 233
( 99, 101, 103, 117, 123, 137, 139 )); 233
BZ1p6 : Array[1..4] of real =( 72, 90, 108, 144 ); 233
BZ2p6 : Array[1..4,1..9] of real = 233
(( 69, 75, 80, 89, 91, 92, 0 , 0 , 0 ), 233
( 71, 73, 86, 87, 93, 94, 107, 109, 0 ), 233
( 84, 89, 91, 104, 105, 111, 112, 125, 127 ), 233
( 125, 127, 141, 147, 161, 163, 0 , 0 , 0 )); 233
Var 233
i, j : integer ; 233
Begin 233
i: =0 ; 233
j: =0 ; 233
if solap = 1 then 233
begin 233
If p = 1 then 233
Begin 233
Repeat i: =i+1 Until Z1=BZ1p1[i]; 233
Writeln(' So ranh Stato la Z1 = ',Z1:3); 233
Writeln(' So ranh Roto co the chon la Z2 = '); 233
for j: =1 to 11 do if BZ2p1[i, j]<>0 then Write(BZ2p1[i,j]:5:0); 233
Writeln ; 233
If Z1 = 18 then 233
begin 233
Writeln(' Neu chon so ranh Z2 = 18, 30 May co the bi rung nhieu hon '); 233
Writeln(' So ranh Z2 = 14, 19, 22, 28 Dung cho dong co cong suat nho '); 233
end; 233
If Z1 = 30 then 233
Writeln(' Neu chon so ranh Z2 = 18 May co the bi rung nhieu hon '); 233
Write(' So ranh Roto chon la Z2 = '); 233
Readln(Z2); 233
End; 233
If p = 2 then 233
Begin 233
Repeat i: =i+1 Until Z1=BZ1p2[i]; 233
Writeln(' So ranh Stato la Z1 = ',Z1:3); 234
Writeln(' So ranh Roto co the chon la Z2 = '); 234
for j: =1 to 8 do if BZ2p2[i, j]<>0 then Write(BZ2p2[i,j]:5:0); 234
Writeln; 234
If Z1 = 24 then 234
Writeln(' Neu chon so ranh Z2 = 20 May co the bi rung nhieu hon '); 234
If Z1 = 36 then 234
Writeln(' Neu chon so ranh Z2 = 24, 32 May co the bi rung nhieu hon '); 234
If Z1 = 48 then 234
Writeln(' Neu chon so ranh Z2 = 36, 38, 39, 44 May co the bi rung nhieu hon '); 234
If (Z1=12)or(Z1=18) then 234
Writeln(' So ranh Z2 = 15, 18, 22 Dung cho dong co cong suat nho '); 234
Write(' So ranh Roto chon la Z2 = '); 234
Readln(Z2); 234
End; 234
If p = 3 then 234
Begin 234
Repeat i: =i+1 Until Z1=BZ1p3[i]; 234
Writeln(' So ranh Stato la Z1 = ',Z1:3); 234
Writeln(' So ranh Roto co the chon la Z2 = '); 234
for j: =1 to 8 do if BZ2p3[i, j]<>0 then Write(BZ2p3[i,j]:5:0); 234
Writeln; 234
If Z1 = 36 then 234
Writeln(' So ranh Z2 = 28 dung cho dong co cong suat nho '); 234
Write(' So ranh Roto chon la Z2 = '); 234
Readln(Z2); 234
End; 234
If p = 4 then 234
Begin 234
Repeat i: =i+1 Until Z1=BZ1p4[i]; 234
Writeln(' So ranh Stato la Z1 = ',Z1:3); 234
Writeln(' So ranh Roto co the chon la Z2 = '); 234
for j: =1 to 7 do if BZ2p4[i, j]<>0 then Write(BZ2p4[i,j]:5:0); 234
Writeln; 234
if Z1 = 84 then 234
Writeln(' Neu chon so ranh Z2 = 68, 69, 71, 97, 99, 110 May co the bi rung nhieu hon '); 234
Write(' So ranh Roto chon la Z2 = '); 234
Readln(Z2); 234
End; 234
If (Z2 <= 0)or(((Z2/1)-round(Z2))<>0) then 234
Repeat 234
Write(' So ranh Roto chon lai Z2 = '); 234
readln(Z2); 234
until (Z2 >0)and(((Z2/1)-round(Z2))=0) ; 234
end; 234
{Readln;Readln; } 234
End; 234
Procedure CHON_ b42_ h42 ; 234
Var chon_brc:integer; 234
Begin 234
If solap = 1 then 234
begin 234
Writeln(' Neu (chon = 1) Ban chon chieu cao h42, b42 be rong mieng ranh Roto '); 234
Writeln(' Neu (chon = 2) May chon b42 := 0. 1cm ; h42 := 0. 1cm '); 234
If (chon_brc <> 1)or(chon_brc <> 2)then 234
Repeat 234
write(' chon = ');readln(chon_brc) ; 234
until (chon_brc = 1)or(chon_brc = 2); 234
If chon_ brc = 1 then 234
begin 234
If h < 180 then 235
begin 235
Write(' Nhap be rong mieng ranh Roto (b42 = 0. 1--0. 15 cm ) b42= ');readln(b42); 235
Write(' Nhap chieu cao mieng ranh Roto (h42 = 0. 05--0. 1 cm ) h42= ');readln(h42); 235
end; 235
if h >= 180 then 235
begin 235
Write(' Nhap be rong mieng ranh Roto (b42 = 0. 15--0. 2cm ) b42= ');readln(b42); 235
Write(' Nhap chieu cao mieng ranh Roto (h42 = 0. 05--0. 15cm ) h42= ');readln(h42); 235
end; 235
end; 235
If chon_ brc = 2 then 235
begin 235
b42 := 0. 1 ; h42 := 0. 1 ; 235
end; 235
end; 235
End; 235
Procedure TRA2(TenFile: chuoi;BNS: REAL;Var GTNS:REAL); {ham doc so lieu 2 day bien} 235
var 235
F:text; 235
i:integer; 235
TG1,TG2:MANG; {i la cac bien trong file} 235
begin 235
assign(F,DuongDan+TenFile); {gan ten file cho kieu file F} 235
reset(F); {mo file da co tren dia de doc hoac ghi} 235
i:=1; 235
While not eof(F) do {doc bien tu dau file cho den cuo file } 235
begin {ghi cac bien trong file tuong ung vao bien TG1[i],tg2[i]} 235
read(F,TG1[i],tg2[i]); 235
i:=i+1; 235
end; 235
close(F); {ket thuc doc file} 235
i:=1; 235
Repeat 235
i:=i+1; 235
until BNS <= TG1[i]; { BNS : Bien ma ta can noi suy} 235
GTNS:= TG2[i-1]+(TG2[i]-TG2[i-1])*(BNS-TG1[i-1])/(TG1[i]-TG1[i-1]); {GTNS : Gia tri noi suy} 235
End; 235
Procedure NHAP_GIA_TRI_PHAN_ROTO; 235
Begin 235
CHON_ b42_ h42 ; 235
TRA2('Ki.txt',cosphi,Ki); 235
(* ----------- Chi chon mot lan -------------- *) 235
If solap = 1 then 235
begin 235
Repeat 235
Writeln(' Mat do dong dien trong thanh dan nam trong khoang 2. 5->4 A/mm2'); 235
Write(' Chon mat do dong dien trong thanh dan Jtd = ');Readln(Jtd); 235
until (Jtd >= 2. 5)and(Jtd <= 4); 235
Repeat 235
Writeln(' Mat do dong dien trong vanh ngan mach nam trong khoang 2->3. 5 A/mm2'); 235
Write(' Chon mat do dong dien trong vanh ngan mach Jv = ');Readln(Jv); 235
until (Jv >= 2)and(Jv <= 3.5); 235
Writeln(' Chieu cao tam truc may la: h = ',h:5:1,'mm'); 235
if h< = 160 then 235
writeln(' Chieu cao tam truc may h =', h:5:0, '<=160 mm nen dung ranh QUA_LE'); 235
if h> 160 then 235
writeln(' Chieu cao tam truc may h =', h:5:0, '>160 mm nen dung ranh O_VAN'); 235
Writeln(' Neu chon so --1-- tinh ranh Roto kieu QUA LE '); 235
Writeln(' Neu chon so --2-- tinh ranh Roto kieu O_ VAN '); 236
Repeat 236
Writeln(' Ban phai chon so _1_ or _2_ de thuc hien chuong trinh '); 236
Write(' chon so = '); Readln(chon); 236
until (chon = 1) or (chon = 2); 236
end; 236
End; 236
PROCEDURE KT_ RANH_ ROTO_ CO_ BAN ; 236
Var i : integer ; 236
Begin 236
Droto := D - 2*Delta ; 236
t2 := pi*Droto/ Z2 ; 236
b2zmin := Bdelta*l2*t2/(Bzmax*l2*kc) ; 236
h2gmin := Phi*10000/(2*Bgmax*l2*kc) ; 236
Dt := Round(0.3*D) ; 236
Itd := kI*Idm*6*W1*kdq/ Z2 ; 236
I2 := Itd ; 236
Iv := Itd/(2*sin(pi*p/Z2)); 236
Std:=Itd/(Jtd*100) ; 236
Sv :=Iv/(Jv*100); 236
bn := pi*D/ Z1 ; 236
End; 236
BEGIN 236
CHON_Z2; 236
NHAP_GIA_TRI_PHAN_ROTO; 236
KT_RANH_ROTO_CO_BAN; 236
END; 236
PROCEDURE KT_RANH_QUA_LE(ii,Z2:integer; b2zmin,Droto,h42,Dt,Std,h2gmin,Itd,Iv:real; 236
Var Dem:integer; var dr1,dr2,h12,hr2,h2g,b2z,Sr2,Jtd,av,bv,Sv,Jv,Dv:real); 236
Var 236
b2z1, b2z2, b2zsb :real; 236
i: integer ; 236
PROCEDURE KT_ VANH_ NGAN_ MACH ; 236
Begin 236
av := round(hr2*1.1*10)/10; 236
bv := round(Sv*10/av)/10; 236
Sv := av * bv ; 236
Dv := Droto-av/2; 236
Jv :=Iv/(Sv*100); 236
End; 236
Begin 236
b2zsb:=b2zmin+ii*0.01; 236
dr1 := (pi*(Droto-2*h42)-b2zsb*Z2)/(Z2+pi); 236
h12:=0.3; 236
i:=0; 236
repeat 236
h12:=h12+0.01*i; 236
dr2 := (pi*(Droto-2*(h42+h12)-dr1)-(b2zsb)*Z2)/Z2; 236
Sr2:= pi*(dr1*dr1+dr2*dr2)/8+h12*(dr1+dr2)/2 ; 236
b2z1 := pi*(Droto-2*h42-dr1)/Z2 -dr1; 236
b2z2 := pi*(Droto-2*hr2+dr2)/Z2 -dr2; 236
b2z := (b2z1+b2z2)/2; 236
hr2 := h42+dr1/2+dr2/2+h12; 236
h2g := (Droto-Dt)/2 -hr2 +dr2/6; 236
i:=i+1; 236
until (Sr2>=Std)or(h2g<=h2gmin); 236
if (Sr2>=Std)and(dr2>0.25)and(h2g>=h2gmin)and(b2z>=b2zmin) then 236
begin 236
Jtd:=Itd/(Sr2*100); 236
Dem := Dem + 1 ; 236
KT_ VANH_ NGAN_ MACH ; 237
end; 237
End; 237
PROCEDURE KT_RANH_OVAN(ii,Z2:integer; Droto,b2zmin,Std,h42,Dt,h2gmin,Iv:real; 237
Var Dem:integer; var Sr2,dr,h12,hr2,b2z,h2g,av,bv,Sv,Jv,Dv:real); 237
PROCEDURE KT_ VANH_ NGAN_ MACH ; 237
Begin 237
av := round(hr2*1.1*10)/10; 237
bv := round(Sv*10/av)/10; 237
Sv := av * bv ; 237
Dv := Droto-av/2; 237
Jv :=Iv/(Sv*100); 237
End; 237
Var 237
drmax,Sr2sb:real; 237
Begin 237
drmax:=((Droto-2)*pi-Z2*b2zmin)/Z2; 237
Sr2:=Std; 237
dr := drmax-0. 02*ii ; 237
h12 :=Sr2/(dr)-pi*dr/4; 237
hr2 : =h12+dr+h42 ; 237
b2z := pi*(Droto-2*hr2*2/3)/Z2 - dr ; 237
h2g := (Droto-Dt)/2 -hr2 +dr/6 ; 237
Sr2 := hr2*dr -h42*dr-(1-pi/4)*dr*dr ; 237
h2g := (Droto-Dt)/2-hr2+dr/6 ; 237
If (b2z >= b2zmin)and(dr >= 0.25)and(h2g>h2gmin)then 237
begin 237
Dem := Dem + 1 ; 237
KT_ VANH_ NGAN_ MACH ; 237
end; 237
End; 237
PROCEDURE TINH_TOAN_MANH_TU(Chon,chon_s,p,MH_THEP:integer; b41,h41,Delta,t1,b42,t2,Bdelta,l1,Kc,hr1,b1z,d2,l2,hr2, 237
h42,b2z,dr2,dr,phi,h1g,Dn,h2g,Dt,W1,Kdq,Idm:real; DuongDan:chuoi; 237
Var Kdelta,Fdelta,nuy1,nuy2,Bz1,Fz1,Bz2,Fz2,Bg1,Lg1,Lg2,Fg1,Fg2,Bg2,Kz,Kmuy, 237
Io,Iop:real); 237
Procedure TRA2(TenFile: chuoi;BNS: REAL;Var GTNS:REAL); {ham doc so lieu 2 day bien} 237
var 237
F:text; 237
i:integer; 237
TG1,TG2:MANG; {i la cac bien trong file} 237
begin 237
assign(F,DuongDan+TenFile); {gan ten file cho kieu file F} 237
reset(F); {mo file da co tren dia de doc hoac ghi} 237
i:=1; 237
While not eof(F) do {doc bien tu dau file cho den cuo file } 237
begin {ghi cac bien trong file tuong ung vao bien TG1[i],tg2[i]} 237
read(F,tg1[i],tg2[i]); 237
i:=i+1; 237
end; 237
close(F); {ket thuc doc file} 237
i:=1; 237
Repeat 237
i:=i+1; 237
until BNS <= TG1[i]; { BNS : Bien ma ta can noi suy} 237
GTNS:= TG2[i-1]+(TG2[i]-TG2[i-1])*(BNS-TG1[i-1])/(TG1[i]-TG1[i-1]); {GTNS : Gia tri noi suy} 237
End; 237
Procedure SUC_TU_DONG_KHE_HO_KK; 237
Var 237
Kdelta1, Kdelta2 : Real; 237
Begin 238
nuy1 := (b41/Delta)*(b41/Delta)/(5+b41/Delta); 238
Kdelta1 := t1/(t1-nuy1*Delta); 238
nuy2 := (b42/Delta)*(b42/Delta)/(5+b42/Delta); 238
Kdelta2 := t2/(t2-nuy2*Delta); 238
Kdelta : =Kdelta1*Kdelta2 ; 238
Fdelta := 1. 6*Bdelta*Kdelta*Delta*10000 ; 238
Writeln(' HE SO KHE HO KHONG KHI Kdelta = ',Kdelta:3:2); 238
Writeln(' SUC TU DONG KHE HO KHONG KHI Fdelta = ',Fdelta:3:0); 238
End; 238
{------------------------------------------------------------------------} 238
PROCEDURE SUC_TU_DONG_RANG_STATO; {tinh suc tu dong rang cua stato} 238
Var 238
Hz, hz_qd : Real; 238
Begin 238
Bz1:= Bdelta*l1*t1/(b1z*l1*kc); 238
If chon_s = 1 then hz_qd:= hr1-h41-d2/3; 238
If chon_s = 1 then hz_qd:=hr1-h41; 238
case mh_ thep of 238
1:TRA2('Hz_2013.TXT',Bz1,Hz); 238
2:TRA2('Hz_2211.TXT',Bz1,Hz); 238
3:TRA2('Hz_2312.TXT',Bz1,Hz); 238
4:TRA2('Hz_2411.TXT',Bz1,Hz); 238
end; 238
Fz1:= 2 * hz_qd * Hz ; 238
End; 238
{------------------------------------------------------------------------} 238
Procedure SUC_TU_DONG_RANG_ROTO; 238
Var 238
Hz, hz_qd : Real; 238
Begin 238
Bz2:= Bdelta*l2*t2/(b2z*l2*kc); 238
If chon = 1 then hz_ qd := hr2-h42-dr2/3; 238
If chon = 2 then hz_qd:=hr2-h42-dr/3; 238
case mh_ thep of 238
1:TRA2('Hz_2013.TXT',Bz2,Hz); 238
2:TRA2('Hz_2211.TXT',Bz2,Hz); 238
3:TRA2('Hz_2312.TXT',Bz2,Hz); 238
4:TRA2('Hz_2411.TXT',Bz2,Hz); 238
end; 238
{ Ten file du lieu cua RANG } 238
Fz2:= 2 * hz_qd * Hz ; 238
End; 238
{------------------------------------------------------------------------} 238
Procedure SUC_TU_DONG_GONG_STATO; 238
Var 238
Hg1 :Real; 238
Begin 238
Bg1 := Phi*10000/(2*h1g*l1*kc); 238
Lg1 := pi*(Dn-h1g)/(2*p); 238
case mh_ thep of 238
1:TRA2('Hg_2013.TXT',Bg1,Hg1); 238
2:TRA2('Hg_2211.TXT',Bg1,Hg1); 238
3:TRA2('Hg_2312.TXT',Bg1,Hg1); 238
4:TRA2('Hg_2411.TXT',Bg1,Hg1); 238
end; 238
Fg1 := Lg1 * Hg1 ; 238
end; 238
{------------------------------------------------------------------------} 238
Procedure SUC_TU_DONG_GONG_ROTO; 238
Var 239
Hg2 :Real; 239
Begin 239
Bg2 := Phi*10000/(2*h2g*l2*kc); 239
Lg2 := pi*(Dt+h2g)/(2*p); 239
case mh_ thep of 239
1:TRA2('Hg_2013.TXT',Bg2,Hg2); 239
2:TRA2('Hg_2211.TXT',Bg2,Hg2); 239
3:TRA2('Hg_2312.TXT',Bg2,Hg2); 239
4:TRA2('Hg_2411.TXT',Bg2,Hg2); 239
end; 239
Fg2 := Lg2 * Hg2 ; 239
End; 239
{------------------------------------------------------------------------} 239
Procedure TINH_CAC_HE_SO; 239
Var { imup : Dong dien tu hoa phan tram ; Imuym Dong dien tu hoa } 239
F : real; 239
Begin 239
F := Fdelta + Fz1 + Fz2 + Fg1 + Fg2 ; 239
Kz:= (Fdelta+Fz1+Fz2)/Fdelta ; 239
Kmuy := F/Fdelta; 239
Io :=p*F/(2.7*W1*kdq) ; 239
Iop := Io*100/ Idm ; 239
End; 239
{------------------------------------------------------------------------} 239
BEGIN 239
clrscr; 239
SUC_TU_DONG_KHE_HO_KK; 239
SUC_TU_DONG_RANG_STATO; 239
SUC_TU_DONG_RANG_ROTO; 239
SUC_TU_DONG_GONG_STATO; 239
SUC_TU_DONG_GONG_ROTO; 239
TINH_CAC_HE_SO; 239
end; 239
END. 239
Bảng tên các biến trongchương trình 239
Đại lượng vật lý 239
Tác dụng 243
Phần V: Nhận xét tổng quát 247
Tóm lại thiết kế máy điện là một môn học chuyên ngành. Học môn này có thể căn cứ vào yêu cầu của sản xuất mà thiết kế ra sản phẩm 247
Thiết kế máy điện là phân tích ảnh hưởng của vật liệu tác dụng , kích thước máy đến qui luật nội tại và quan hệ hàm số của các tham số và tính năng. 247
Những năm gần đây , người ta đã đề ra mét phương pháp thiết kế trực tiếp. Đặc điểm chính của phương pháp này là trình tự tính toán ngược lại so với phương pháp thiết kế thông thường, tức là từ tính năng của máy hay nói cách khác là yêu cầu về công dụng, chế độ làm việc, cũng như các thông số định mức đầu vào của máy (Pđm, Uđm, fđm, ...) do người đặt hàng yêu cầu ta xác định các tham số và các số liệu quyết định kích thước hình học cơ bản. Khác với trong thiết kế thông thường là chọn các kích thước hình học trước, từ đó mới tính các tham số, sau đó kiểm nghiệm lại tính năng. Nếu kiểm nghiệm lại không đạt thì chọn lại kích thước và tính lặp lại. 247
Như vậy phương pháp tính trực tiếp có ưu điểm là giảm bớt khối lượng tính toán do không phải tính toán kiểm nghiệm lại, nhưng nó lại đòi hỏi có mét số lượng thống kê rất lớn các số liệu kinh nghiệm về các sản phẩm hiện có làm cơ sở để tính toán , đòi hỏi người thiết kế phải có một trình độ chuyên môn vững chắc và thường xuyên cập nhật các công nghệ chế tạo máy điện hiện đại. Phương pháp này thường dùng trong thiết kế các thiết bị biến tần lớn để biến tốc bằng điện tử thì có lợi hơn. 247
Việc thiết kế tự động máy điện bằng ngôn ngữ PASCAL cũng như các ngôn ngữ lập trình khác (Visual Basic hoặc C, C++) có nhiều ưu điểm và tiện lợi hơn việc thiết kế bằng tay vì nó tiết kiệm được thời gian làm việc, đầu tư chất xám của người thiết kế, tiết kiệm về chi phí tính toán. Đảm bảo độ chính xác cao , có thể so sánh nhiều động cơ với các thông số khác nhau bằng cách đưa vào các tham số đầu vào và so sánh các thâm số đầu ra để lựa cọn ra động cơ có các chỉ tiêu kinh tế cao nhất mà vẫn đẩm bảo các chỉ tiêu về kỹ thuật. 248
tài liệu tham khảo 249
TL1 249
Trần Khánh Hà 249
Những tài liệu gần giống với tài liệu bạn đang xem
Những tài liệu bạn đã xem
Thiết kế động cơ không đồng bộ rôto lồng sóc
Máy điện không đồng bộ là loại máy điện xoay chiều chủ yếu dùng làm động cơ điện. Do kết cấu đơn giản làm việc chắc chắn ,hiệu suất cao,giá thành hạ nên động cơ không đồng bộ là một loại máy được dùng rộng rãi nhất trong các ngành kinh tế quốc dân
docx Đăng bởi
hoichemgio68
