WWW.DISSERS.RU

БЕСПЛАТНАЯ ЭЛЕКТРОННАЯ БИБЛИОТЕКА

   Добро пожаловать!


Pages:     | 1 |   ...   | 6 | 7 || 9 |
Результаты измерения активного сопротивления и ёмкости (0,4 m раствор NaCl, T = 313 К) f, Гц Ri, Ом Ci, мкФ f2, кГц2 1/C, мкФ–1200 2933 0,6510 1,44 1,1600 2915 0,6150 2,56 1,2000 2908 0,5812 4,00 1,2400 2901 0,5450 5,76 1,2800 2896 0,5150 7,84 1,3200 2892 0,4894 10,24 2,П.2.17. Результаты измерения активного сопротивления и ёмкости (0,5 m раствор NaCl, T = 298 К) f, Гц Ri, Ом Ci, мкФ f 2, кГц2 1/C, мкФ–800 2843 0,729 0,64 1,1200 2833 0,684 1,44 1,1600 2846 0,64 2,56 1,2000 2847 0,598 4,00 1,2400 2849 0,558 5,76 1,2800 2849 0,518 7,84 1,3200 2849 0,477 10,24 2,П.2.18. Результаты измерения активного сопротивления и ёмкости (0,5 m раствор NaCl, T = 303 К) f, Гц Ri, Ом Ci, мкФ f 2, кГц2 1/C, мкФ–800 2695 0,742 0,64 1,1200 2686 0,697 1,44 1,1600 2668 0,65 2,56 1,2000 2675 0,617 4,00 1,2400 2669 0,580 5,76 1,2800 2667 0,540 7,84 1,3200 2665 0,502 10,24 1,П.2.19. Результаты измерения активного сопротивления и ёмкости (0,5 m раствор NaCl, T = 308 К) f, Гц Ri, Ом Ci, мкФ f 2, кГц2 1/C, мкФ–800 2500 0,757 0,64 1,1200 2490 0,716 1,44 1,1600 2484 0,675 2,56 1,2000 2479 0,637 4,00 1,2400 2476 0,599 5,76 1,2800 2476 0,563 7,84 1,3200 2472 0,525 10,24 1,П.2.20. Результаты измерения активного сопротивления и ёмкости (0,5 m раствор NaCl, T = 313 К) f, Гц Ri, Ом Ci, мкФ f 2, кГц2 1/C, мкФ–800 2338 0,786 0,64 1,1200 2317 0,742 1,44 1,1600 2295 0,706 2,56 1,Продолжение табл. П.2.f, Гц Ri, Ом Ci, мкФ f 2, кГц2 1/C, мкФ–2000 2283 0,667 4,00 1,2400 2277 0,630 5,76 1,2800 2272 0,594 7,84 1,3200 2274 0,558 10,24 1,П.2.21. Результаты измерения активного сопротивления и ёмкости (0,6 m раствор NaCl, T = 298 К) f, Гц Ri, Ом Ci, мкФ f 2, кГц2 1/C, мкФ–1200 2405 0,6670 1,44 1,1600 2403 0,6280 2,56 1,2000 2408 0,6029 4,00 1,2400 2405 0,5780 5,76 1,2800 2403 0,5435 7,84 1,3200 2400 0,5150 10,24 1,П.2.22. Результаты измерения активного сопротивления и ёмкости (0,6 m раствор NaCl, T = 303 К) f, Гц Ri, Ом Ci, мкФ f 2, кГц2 1/C, мкФ–1200 2239 0,671 1,44 1,1600 2225 0,642 2,56 1,2000 2218 0,611 4,00 1,2400 2216 0,588 5,76 1,2800 2209 0,568 7,84 1,3200 2205 0,538 10,24 1,П.2.23. Результаты измерения активного сопротивления и ёмкости (0,6 m раствор NaCl, T = 308 К) f, Гц Ri, Ом Ci, мкФ f 2, кГц2 1/C, мкФ–1200 2066 0,683 1,44 1,1600 2063 0,656 2,56 1,2000 2058 0,636 4,00 1,2400 2052 0,609 5,76 1,2800 2044 0,589 7,84 1,3200 2045 0,564 10,24 1,П.2.24. Результаты измерения активного сопротивления и ёмкости (0,6 m раствор NaCl, T = 313 К) f, Гц Ri, Ом Ci, мкФ f 2, кГц2 1/C, мкФ–1981 0,668 1,44 1,1972 0,647 2,56 1,1963 0,630 4,00 1,1959 0,609 5,76 1,1954 0,588 7,84 1,1951 0,575 10,24 1,П.2.25. Результаты измерения активного сопротивления и ёмкости (0,7 m раствор NaCl, T = 298 К) f, Гц Ri, Ом Ci, мкФ f 2, кГц2 1/C, мкФ–800 2023 0,700 0,64 1,1200 2020 0,665 1,44 1,1600 2005 0,637 2,56 1,2000 2001 0,615 4,00 1,2400 2002 0,590 5,76 1,2800 1996 0,565 7,84 1,3200 1993 0,540 10,24 1,П.2.26. Результаты измерения активного сопротивления и ёмкости (0,7 m раствор NaCl, T = 303 К) f, Гц Ri, Ом Ci, мкФ f 2, кГц 1/C, мкФ–1855 0,708 0,64 1,1840 0,679 1,44 1,1824 0,653 2,56 1,1826 0,636 4,00 1,1837 0,602 5,76 1,1830 0,583 7,84 1,1804 0,560 10,24 1,П.2.27. Результаты измерения активного сопротивления и ёмкости (0,7 m раствор NaCl, T = 308 К) f, Гц Ri, Ом Ci, мкФ f 2, кГц2 1/C, мкФ–800 1698 0,724 0,64 1,1200 1681 0,697 1,44 1,1600 1670 0,673 2,56 1,2000 1664 0,651 4,00 1,2400 1664 0,628 5,76 1,2800 1664 0,606 7,84 1,3200 1663 0,585 10,24 1,П.2.28. Результаты измерения активного сопротивления и ёмкости (0,8 m раствор NaCl, T = 298 К) f, Гц Ri, Ом Ci, мкФ f 2, кГц2 1/C, мкФ–1200 1859 0,6620 1,44 1,1600 1857 0,6410 2,56 1,2000 1862 0,6240 4,00 1,2400 1857 0,6040 5,76 1,2800 1852 0,5805 7,84 1,3200 1854 0,5594 10,24 1,П.2.29. Результаты измерения активного сопротивления и ёмкости (0,8 m раствор NaCl, T = 303 К) f, Гц Ri, Ом Ci, мкФ f 2, кГц2 1/C, мкФ–1741 0,6720 1,44 1,1734 0,6570 2,56 1,1721 0,6400 4,00 1,1717 0,6210 5,76 1,1710 0,6040 7,84 1,1708 0,5829 10,24 1,П.2.30. Результаты измерения активного сопротивления и ёмкости (0,8 m раствор NaCl, T = 308 К) f, Гц Ri, Ом Ci, мкФ f 2, кГц2 1/C, мкФ–1200 1598 0,679 1,44 1,1600 1593 0,667 2,56 1,2000 1589 0,648 4,00 1,2400 1590 0,639 5,76 1,2800 1582 0,621 7,84 1,3200 1576 0,604 10,24 1,П.2.31. Результаты измерения активного сопротивления и ёмкости (0,8 m раствор NaCl, T = 313 К) f, Гц Ri, Ом Ci, мкФ f 2, кГц2 1/C, мкФ–1200 1500 0,7050 1,44 1,1600 1493 0,6920 2,56 1,2000 1486 0,6846 4,00 1,2400 1483 0,6720 5,76 1,2800 1778 0,6560 7,84 1,3200 1475 0,6400 10,24 1,П.2.32. Результаты измерения активного сопротивления и ёмкости (0,9 m раствор NaCl, T = 298 К) f, Гц Ri, Ом Ci, мкФ f 2, кГц2 1/C, мкФ–1718 0,701 0,64 1,1665 0,675 1,44 1,1665 0,670 2,56 1,2000 1700 0,638 4,00 1,2400 1695 0,615 5,76 1,1692 0,600 7,84 1,1693 0,572 10,24 1,П.2.33. Результаты измерения активного сопротивления и ёмкости (0,9 m раствор NaCl, T = 303 К) f, Гц Ri, Ом Ci, мкФ f 2, кГц2 1/C, мкФ–800 1584 0,702 0,64 1,1200 1563 0,680 1,44 1,1600 1557 0,659 2,56 1,2000 1550 0,641 4,00 1,2400 1548 0,621 5,76 1,2800 1548 0,603 7,84 1,3200 1547 0,583 10,24 1,П.2.34. Результаты измерения активного сопротивления и ёмкости (0,9 m раствор NaCl, T = 308 К) f, Гц Ri, Ом Ci, мкФ f 2, кГц2 1/C, мкФ–800 1471 0,715 0,64 1,1200 1430 0,689 1,44 1,1600 1444 0,673 2,56 1,2000 1440 0,652 4,00 1,2400 1430 0,633 5,76 1,2800 1426 0,615 7,84 1,3200 1419 0,599 10,24 1,П.2.35. Результаты измерения активного сопротивления и ёмкости (0,9 m раствор NaCl, T = 313 К) f, Гц Ri, Ом Ci, мкФ f 2, кГц2 1/C, мкФ–800 1345 0,725 0,64 1,1200 1332 0,700 1,44 1,1600 1329 0,680 2,56 1,2000 1322 0,662 4,00 1,2400 1319 0,646 5,76 1,2800 1317 0,631 7,84 1,3200 1312 0,615 10,24 1,П.2.36. Результаты измерения активного сопротивления и ёмкости (1,0 m раствор NaCl, T = 298 К) f, Гц Ri, Ом Ci, мкФ f 2, кГц2 1/C, мкФ–1200 1523 0,6780 1,44 1,1600 1524 0,6600 2,56 1,2000 1526 0,6433 4,00 1,2400 1520 0,6300 5,76 1,2800 1517 0,6112 7,84 1,3200 1519 0,5930 10,24 1,П.2.37. Результаты измерения активного сопротивления и ёмкости (1,0 m раствор NaCl, T = 303 К) f, Гц Ri, Ом Ci, мкФ f 2, кГц2 1/C, мкФ–1200 1432 0,6794 1,44 1,1600 1419 0,6675 2,56 1,2000 1415 0,6560 4,00 1,2400 1410 0,6417 5,76 1,2800 1403 0,6269 7,84 1,3200 1400 0,6147 10,24 1,П.2.38. Результаты измерения активного сопротивления и ёмкости (1,0 m раствор NaCl, T = 308 К) f, Гц Ri, Ом Ci, мкФ f 2, кГц2 1/C, мкФ–1200 1310 0,6890 1,44 1,1600 1305 0,6780 2,56 1,2000 1300 0,6682 4,00 1,2400 1297 0,6542 5,76 1,2800 1293 0,6410 7,84 1,3200 1288 0,6300 10,24 1,П.2.39. Результаты измерения активного сопротивления и ёмкости (1,0 m раствор NaCl, T = 313 К) f, Гц Ri, Ом Ci, мкФ f 2, кГц2 1/C, мкФ–1200 1209 0,7034 1,44 1,1600 1201 0,6932 2,56 1,2000 1197 0,6833 4,00 1,2400 1194 0,6730 5,76 1,2800 1192 0,6620 7,84 1,3200 1188 0,6530 10,24 1,Приложение ПЕРВАЯ ПРОГРАММА (расчёт средних резонансных частот колебаний гидратированных ионов: концентрация в диапазоне 0,1…4 m, шаг 0,1 m; интервал температур 25…40 °C, шаг 1…5 °C) void CFreqCalc::OnOK() { // TODO: Add extra validation here //Activity coefficients double GammaKCl_t2[40] = {-1e-17,-2e-5,-2e-5,-2e-5,-4e-5,-3e-5,-4e-5,-3e-5,-4e-5,-1e-5, -8e-6,-9e-6,-1e-5,-1e-5,-1e-5,-2e-5,-2e-5,-2e-5,-2e-5,-2e-5, -2e-5,-2e-5,-2e-5,-3e-5,-3e-5,-3e-5,-3e-5,-3e-5,-3e-5,-3e-5, -3e-5,-3e-5,-3e-5,-3e-5,-3e-5,-3e-5,-3e-5,-3e-5,-3e-5,-3e-5};



double GammaKCl_t[40] = {-0.0003,0.0011,0.0009,0.0011,0.0024,0.0019,0.0026,0.0018,0.0025,0.0006, 0.0005,0.0006,0.0008,0.0009,0.0010,0.0011,0.0012,0.0013,0.0014,0.0015, 0.0016,0.0017,0.0018,0.0018,0.0019,0.0019,0.0020,0.0020,0.0021,0.0021, 0.0021,0.0021,0.0022,0.0022,0.0022,0.0022,0.0021,0.0021,0.0021,0.0021};

double GammaKCl[40] = {0.7779,0.7030,0.6780,0.6510,0.6153,0.6097,0.5873,0.5908,0.5721,0.5955, 0.5913,0.5858,0.5807,0.5758,0.5712,0.5668,0.5627,0.5589,0.5554,0.5522, 0.5492,0.5465,0.5441,0.5419,0.5400,0.5384,0.5371,0.5360,0.5352,0.5347, 0.5345,0.5345,0.5348,0.5354,0.5362,0.5374,0.5388,0.5405,0.5424,0.5446};

double GammaNaCl_t2[40] = {-2e-6,-5e-6,-7e-6,-8e-6,-8e-6,-9e-6,-1e-5,-1e-5,-1e-5,-1e-5, -1e-5,-1e-5,-2e-5,-2e-5,-2e-5,-2e-5,-2e-5,-2e-5,-2e-5,-3e-5, -3e-5,-3e-5,-3e-5,-3e-5,-3e-5,-3e-5,-3e-5,-3e-5,-3e-5,-3e-5, -3e-5,-4e-5,-4e-5,-4e-5,-4e-5,-4e-5,-4e-5,-4e-5,-4e-5,-4e-5};

double GammaNaCl_t[40] = {0.0002,0.0001,0.0003,0.0004,0.0005,0.0006,0.0006,0.0007,0.0007,0.0007, 0.0010,0.0011,0.0013,0.0014,0.0015,0.0017,0.0018,0.0019,0.0020,0.0021, 0.0022,0.0023,0.0024,0.0025,0.0026,0.0026,0.0027,0.0028,0.0028,0.0029, 0.0029,0.0030,0.0030,0.0031,0.0031,0.0031,0.0032,0.0032,0.0032,0.0032};

double GammaNaCl[40] = {0.7799,0.7345,0.7092,0.6917,0.6785,0.6678,0.6590,0.6514,0.6447,0.6389, 0.6370,0.6351,0.6335,0.6324,0.6316,0.6312,0.6311,0.6315,0.6322,0.6334, 0.6349,0.6367,0.6390,0.6416,0.6446,0.6480,0.6518,0.6560,0.6605,0.6654, 0.6707,0.6764,0.6825,0.6889,0.6957,0.7029,0.7105,0.7185,0.7268,0.7356};

Dynamic viscosity coefficients double ViscKCl_t2[40] = {0.0002,0.0002,0.0002,0.0002,0.0002,0.0002,0.0002,0.0002,0.0002,0.0002, 0.0002,0.0002,0.0002,0.0002,0.0002,0.0002,0.0002,0.0002,0.0002,0.0002, 0.0002,0.0002,0.0002,0.0002,0.0002,0.0002,0.0002,0.0002,0.0002,0.0002, 0.0002,0.0002,0.0002,0.0002,0.0002,0.0002,0.0002,0.0002,0.0002,0.0002};

double ViscKCl_t[40] = {-0.0331,-0.0328,-0.0324,-0.0322,-0.0317,-0.0314, -0.0311,-0.0308,-0.0304,-0.0301,-0.0303,-0.0301,-0.0299,-0.0296,-0.0294, -0.0292,-0.0290,-0.0288,-0.0286,-0.0284,-0.0282,-0.0280,-0.0278,-0.0276, -0.0275,-0.0273,-0.0272,-0.0270,-0.0269,-0.0267,-0.0266,-0.0265,-0.0264, -0.0263,-0.0262,-0.0261,-0.0260,-0.0259,-0.0258,-0.0257};

double ViscKCl[40] = {1.5692,1.5632,1.5553,1.5511,1.5428,1.5368,1.5314,1.5253,1.5192,1.5138, 1.5116,1.5071,1.5028,1.4987,1.4949,1.4913,1.4879,1.4847,1.4818,1.4791, 1.4766,1.4744,1.4724,1.4706,1.4691,1.4678,1.4667,1.4658,1.4652,1.4648, 1.4646,1.4647,1.4650,1.4655,1.4663,1.4673,1.4685,1.4699,1.4716,1.4735};

double ViscNaCl_t2[40] = {0.0003,0.0003,0.0003,0.0003,0.0003,0.0003,0.0003,0.0003,0.0003,0.0003, 0.0003,0.0003,0.0003,0.0003,0.0003,0.0003,0.0003,0.0003,0.0003,0.0003, 0.0003,0.0003,0.0003,0.0003,0.0003,0.0003,0.0003,0.0003,0.0003,0.0003, 0.0003,0.0003,0.0003,0.0003,0.0003,0.0003,0.0003,0.0004,0.0004,0.0004};

double ViscNaCl_t[40] = {-0.0342,-0.0342,-0.0343,-0.0343,-0.0344, -0.0345,-0.0346,-0.0347,-0.0349,-0.0351,-0.0352,-0.0354,-0.0357,-0.0359, -0.0361,-0.0364,-0.0367,-0.0370,-0.0373,-0.0377,-0.0380,-0.0384,-0.0388, -0.0392,-0.0397,-0.0401,-0.0406,-0.0411,-0.0416,-0.0421,-0.0426,-0.0432, -0.0438,-0.0443,-0.0450,-0.0456, -0.0462,-0.0469,-0.0476,-0.0483};

double ViscNaCl[40] = {1.5936,1.6015,1.6100,1.6192,1.6289,1.6392,1.6501,1.6616,1.6737,1.6864, 1.6997,1.7136,1.7280,1.7431,1.7587,1.7750,1.7918,1.8092,1.8272,1.8458, 1.8651,1.8848,1.9052,1.9262,1.9478,1.9699,1.9927,2.0161,2.0400,2.0645, 2.0897,2.1154,2.1417,2.1686,2.1961,2.2242,2.2529,2.2821,2.3120,2.3424};

Density double DensKCl_t2[40] = {-6e-7, 2e-6, 1e-6,-1e-7,-1e-6,-3e-6,-4e-6,-5e-6, -6e-6,-4e-6,-8e-6,-9e-6,-1e-5,-1e-5,-1e-5,-1e-5,-1e-5,-2e-5,-2e-5,-2e-5, -2e-5,-2e-5,-2e-5,-2e-5,-2e-5,-2e-5,-2e-5,-2e-5,-2e-5,-2e-5, -3e-5,-3e-5,-3e-5,-3e-5,-3e-5,-3e-5,-3e-5,-3e-5,-3e-5,-3e-5};





double DensKCl_t[40] = {-0.0003,-0.0005,-0.0004,-0.0003,-0.0003,-0.0002, -0.0001,-0.00005,-0.00004,-0.0001,0.0002,0.0002,0.0003,0.0004,0.0004, 0.0005,0.0006,0.0006,0.0007,0.0007,0.0008,0.0008,0.0009,0.0009,0.0010, 0.0010,0.0011,0.0011,0.0012,0.0012,0.0012,0.0013,0.0013,0.0013,0.0014, 0.0014,0.0014,0.0015,0.0015,0.0015};

double DensKCl[40] = {1.0096,1.0180,1.0211,1.0242,1.0275,1.0305,1.0337,1.0369,1.0398,1.0469, 1.0462,1.0493,1.0524,1.0554,1.0585,1.0616,1.0647,1.0677,1.0708,1.0738, 1.0769,1.0799,1.0829,1.0860,1.0890,1.0920,1.0950,1.0980,1.1009,1.1039, 1.1069,1.1099,1.1128,1.1158,1.1187,1.1216,1.1246,1.1275,1.1304,1.1333};

double DensNaCl_t2[40] = { 1e-7,-7e-7,-2e-6,-2e-6,-3e-6,-4e-6,-4e-6,-5e-6, -5e-6,-6e-6,-6e-6,-7e-6,-7e-6,-8e-6,-8e-6,-8e-6,-9e-6,-9e-6,-9e-6,-9e-6, -9e-6,-9e-6,-9e-6,-9e-6,-9e-6,-9e-6,-9e-6,-9e-6,-8e-6,-8e-6, -8e-6,-7e-6,-7e-6,-6e-6,-6e-6,-5e-6,-5e-6,-4e-6,-4e-6,-3e-6};

double DensNaCl_t[40] = {-0.0003,-0.0003,-0.0002,-0.0002,-0.0001, -0.0001, -6e-5,-3e-5,7e-6,4e-5,7e-5,9e-5,0.0001,0.0001,0.0002,0.0002, 0.0002,0.0002,0.0002,0.0002,0.0002,0.0002,0.0002,0.0002,0.0002,0.0002, 0.0002,0.0002,0.0001,0.0001,9e-5, 7e-5, 4e-5, 7e-6, -3e-5, -6e-5,-0.0001, -0.0001,-0.0002,-0.0002};

double DensNaCl[40] = {1.0073,1.0106,1.0139,1.0173,1.0206,1.0240,1.0274,1.0307,1.0341,1.0375, 1.0410,1.0444,1.0478,1.0513,1.0547,1.0582,1.0617,1.0651,1.0686,1.0721, 1.0756,1.0792,1.0827,1.0863,1.0898,1.0934,1.0969,1.1005,1.1041,1.1077, 1.1113,1.1150,1.1186,1.1222,1.1259,1.1296,1.1332,1.1369,1.1406,1.1443};

double Conc[40] = {0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1.0, 1.1,1.2,1.3,1.4,1.5,1.6,1.7,1.8,1.9,2.0, 2.1,2.2,2.3,2.4,2.5,2.6,2.7,2.8,2.9,3.0, 3.1,3.2,3.3,3.4,3.5,3.6,3.7,3.8,3.9,4.0};

int TempDelta,TempLow,TempUp,i;//,k;

double Mk,Ma,Fr,Gamma,Eta,Ro,LambdaPlus,LambdaMinus,Pi,T;

IsError = 0;

Pi = 3.1415926535897932384626433832795;

CString Str;

UpdateData(true);

UpdateData(false);

sscanf((LPCTSTR)m_TempDelta, _T("%dX"), &TempDelta);

sscanf((LPCTSTR)m_TempLow, _T("%dX"), &TempLow);

sscanf((LPCTSTR)m_TempUp, _T("%dX"), &TempUp);

//Checking input data if((TempDelta >= 150) || (TempLow >= 150) ||(TempUp >= 150)) IsError = 1;

if((TempDelta < 0) || (TempLow < 0) ||(TempUp < 0)) IsError = 1;

if(TempUp < TempLow) IsError = 1;

if(!IsError) { CFile File;

CStdioFile *FileOut;

FileOut = new CStdioFile("C:\\111.txt", CFile::modeCreate);

FileOut->Close();

if (FileOut->Open((LPCTSTR)("C:\\111.txt"), CFile::modeWrite)) { if(m_Solution.GetCurSel() == 0) { /Solution = KCl Str.Format("Результаты расчетов (раствор KCl)\n");

FileOut->WriteString((LPCTSTR)Str);

Str.Format("C, моль/кг T Fr,Гц\n");

FileOut->WriteString((LPCTSTR)Str);

T = TempLow;

while(T <= TempUp) { for(i = 0;i <= 39;i ++) { Gamma = SquareEquation(GammaKCl_t2[i], GammaKCl_t[i],GammaKCl[i],T);

Mk = 0.039102+0.018015* sqrt(10.8/(0.018015*Gamma*Conc[i]*(10.8+7.96)));

Ma = 0.035453+0.018015* sqrt(7.96/(0.018015*Gamma*Conc[i]*(10.8+7.96)));

LambdaPlus = SquareEquation(0.0027,1.2802,40.221,T);

LambdaMinus = SquareEquation(0.0036,1.3507,40.628,T);

Ro = SquareEquation(DensKCl_t2[i],DensKCl_t[i],DensKCl[i],T);

Eta = SquareEquation(ViscKCl_t2[i],ViscKCl_t[i],ViscKCl[i],T);

Fr = (Ro/Eta)*0.03162278*sqrt((96484.56*96484.56*Gamma* Conc[i]*LambdaPlus)/(Pi*Ma*Mk*LambdaMinus));

Str.Format("%1.1f %1.0f %f\n",Conc[i],T,Fr);

FileOut->WriteString((LPCTSTR)Str);

} T += TempDelta;

} } if(m_Solution.GetCurSel() == 1) { //Solution = NaCl Str.Format("Результаты расчетов (раствор NaCl)\n\n");

FileOut->WriteString((LPCTSTR)Str);

Str.Format("C, моль/кг T Fr,Гц\n");

// Str.Format("Концентрация --- Температура --- Резонансная частота\n");

FileOut->WriteString((LPCTSTR)Str);

T = TempLow;

while(T <= TempUp) { for(i = 0;i <= 39;i ++) { Gamma = SquareEquation(GammaNaCl_t2[i], GammaNaCl_t[i],GammaNaCl[i],T);

Mk = 0.022991+0.018015* sqrt(14.7/(0.018015*Gamma*Conc[i]*(14.7+7.96)));

Ma = 0.035453+0.018015* sqrt(7.96/(0.018015*Gamma*Conc[i]*(14.7+7.96)));

LambdaPlus = SquareEquation(0.0024,0.9607,25.402,T);

LambdaMinus = SquareEquation(0.0036,1.3507,40.628,T);

Ro = SquareEquation(DensNaCl_t2[i],DensNaCl_t[i],DensNaCl[i],T);

Eta = SquareEquation(ViscNaCl_t2[i],ViscNaCl_t[i],ViscNaCl[i],T);

Fr = (Ro/Eta)*0.03162278*sqrt((96484.56*96484.56*Gamma* Conc[i]*LambdaPlus)/(Pi*Ma*Mk*LambdaMinus));

Str.Format("%1.1f %1.0f %f\n",Conc[i],T,Fr);

FileOut->WriteString((LPCTSTR)Str);

} T += TempDelta;

} } FileOut->Close();

UpdateData(false);

} CDialog::OnOK();

} else AfxMessageBox(_T("Проверьте правильность ввода исходных данных!"));

} Приложение ВТОРАЯ ПРОГРАММА (интервал 0,1…4 m через 0,01 m; и 1 С) ResFrecTemp.cpp double CResFrecTemp::SquareEquation(double a,double b,double c, double t) { return(a*t*t+b*t+c);

} void CResFrecTemp::OnOK() { // TODO: Add extra validation here //Resonance frequency, C = 0.1 - //KCl double FrKCl_C2_1 [16] = {-2045.3,-2148.5,-2255.9,-2367.7,-2484.1, -2605.4,-2731.7,-2863.4,-3000.7,-3143.8,-3293,-3448.6,-3610.8,-3779.9, -3956.1,-4139.6};

double FrKCl_C_1 [16] = {11350,11664,11986,12317,12656,13004,13361, 13727,14102,14486,14879,15281,15693,16114,16543,16982};

Pages:     | 1 |   ...   | 6 | 7 || 9 |










© 2011 www.dissers.ru - «Бесплатная электронная библиотека»

Материалы этого сайта размещены для ознакомления, все права принадлежат их авторам.
Если Вы не согласны с тем, что Ваш материал размещён на этом сайте, пожалуйста, напишите нам, мы в течении 1-2 рабочих дней удалим его.