Вариант 8 для Quick Basic (DOS):
OPEN "TMV_FORM.DOS" FOR OUTPUT AS #1
PRINT #1, "Ток Межмолекулярного Взаимодействия (ТМВ). Пример расчета по теории."
PRINT #1, "для молекулы органического полимера H648C570O364 и молекул воды H2O,"
PRINT #1, "которые могут в определённом количестве, находится внутри неё"
PRINT #1, ""
PRINT #1, " Размеры и соотношения молекул органического полимера H648C570O364 и"
PRINT #1, " воды H2O"
PRINT #1, ""
PRINT #1, " Диаметр молекулы воды H2O = 0.35 нм"
PRINT #1, " Диаметр молекулы органического полимера H648C570O364 = 4.65 нм"
PRINT #1, " R C560 = 2.325 нм"
PRINT #1, " Траектория движения H2O внутри H648C570O364 = 1.275 нм * 3 (отрезки A-B-C) ="
PRINT #1, " = 3.825 нм"
PRINT #1, " (общая протяжённость отрезков)."
PRINT #1, " Длина одного отрезка, траектории теплового движения молекулы H2O = 1.275 нм"
PRINT #1, " (r1 H2O = 1.275 нм)"
PRINT #1, ""
PRINT #1, " _"
PRINT #1, " Согласно, формуле v = SQR(3kT/m) обычная средняя квадратическая"
PRINT #1, " скорость теплового движения молекулы органического полимера H648C570O364"
PRINT #1, " (при T 273 K (0`C))"
PRINT #1, " составляет 12 м/сек, а молекул воды H2O (при той же температуре) 900 м/сек"
PRINT #1, " Поэтому, частоту колебаний молекулы воды H20 внутри молекулы H648C570O364"
PRINT #1, " находим так:"
PRINT #1, " w1 = v/r1 = 900 м/сек / 1.275 нм = 2.337E-11 Герц"
PRINT #1, "900 / .000000001275 = "; 900 / .000000001275#; "Герц"
PRINT #1, ""
PRINT #1, " Условия задачи:"
PRINT #1, " Найти свойства Тока Межмолекулярного Взаимодействия (ТМВ) для молекул,"
PRINT #1, " органического полимера H648C570O364 и воды H2O"
PRINT #1, ""
PRINT #1, " Дано:"
PRINT #1, " m H648C570O364 = 13 312 о.а.м. = 2.2D-23 кг"
PRINT #1, " (1.66D-27 кг * 13 312 о.а.м. = 2.2D-23 кг)"
PRINT #1, " F (m H648C570O364) = 2.2D-22 Н"
PRINT #1, " k(T 273 K) = 1.38D-23 Дж * 273 K = 3.76D-21 Дж"
PRINT #1, " d H2O = 0.35 нм"
PRINT #1, " R H648C570O364 = 2.325 нм"
PRINT #1, " d H648C570O364 = 4.65 нм"
PRINT #1, " w1 = 7.05822E-11 Герц"
PRINT #1, ""
PRINT #1, " Решение:"
PRINT #1, " y^ = F(m) / k(T) * w ="
PRINT #1, " = 2.2D-22 * 273 * 7.05822E-11 = "; 2.2D-22 * 273 * 7.05822E-11
PRINT #1, "2.2D-22 / 4.24D-19 = "; 2.2D-22 / 4.24D-19; "y^"
PRINT #1, ""
PRINT #1, "Расчёт высоты отклонения траектории теплового движения молекулы"
PRINT #1, "органического полимера H648C570O364 , за счёт колебаний пяти "
PRINT #1, "молекул H2O внутри неё"
' Расчёт высоты отклонения траектории теплового движения молекулы"
' органического полимера H648C570O364, за счёт колебаний пяти молекул H2O
' внутри неё:
PRINT #1, " Qx = SQR(k(T) / F(m)) ="
PRINT #1, "= 3.76D-21 Дж * 3.76D-21 Дж * 3.76D-21 Дж * 3.76D-21 Дж * 3.76D-21 Дж / 2.2D-22 Н ="
PRINT #1, "= "; 37.6 * 37.6 * 37.6 * 37.6 * 37.6 / 2.2; "Число из которого извлекаем корень"
PRINT #1, SQR(34159890); "Корень из 34159890"
REM PRINT SQR(3.76D-21 * 3.76D-21 * 3.76D-21 * 3.76D-21 / 2.2D-22)
PRINT #1, " h1 = R * Qx ="
PRINT #1, " = 1.275 нм * 5844.65 = "; 1.275 * 5844.65; "нм" ' 1.275 нм * 5844.65
PRINT #1, "Определение разгонной скорости теплового движения для молекулы H648C570O364, при"
PRINT #1, "температуре 273 K (0` C):"
PRINT #1, " h1 * w1 = v(x) ="
PRINT #1, " = .000007452 метра * 7.05822E-11 Герц = "; .000007452# * 7.05822E-11; "м/сек" ' 1.215 микрон * 7.05822E-11 Герц
PRINT #1, ""
PRINT #1, " Определение длины волны траектории теплового движения молекулы H648C570O364, при"
PRINT #1, " пяти молекулах H2O, находящийся внутри неё:"
PRINT #1, " Jx = v(x) / y^ ="
PRINT #1, "= 52597855.296 м/сек / .00051887 = "; 52597855.296# / 5.188700000000001D-04; "нм "' 8576 км/сек / 0,00051887 y^
PRINT #1, ""
PRINT #1, " Путь свободного прохода молекулы H648C570O364 составляет:"
PRINT #1, " S(x) = Jx * w ="
PRINT #1, " = 101.37 м * 7.05822E-11 Герц = "; 101.37 * 7.05822E-11; "м/сек"' 1.653 мм * 7.05822E-11 Герц
PRINT #1, ""
PRINT #1, "Определение частоты звуковой волны, возникающей при столкновении"
PRINT #1, "молекулы H648C570O364 с простой молекулой в жидкости или газе:"
PRINT #1, " w2 = v / h1 ="
PRINT #1, " = 330 м/сек / 1.215 микрон = "; 330 / .000001215#; "Герц" ' 330 м/сек / 1.215 микрон
PRINT #1, "": PRINT #1, ""
PRINT #1, "Ответ:"
PRINT #1, " h1 = "; 1.215; "микрон "; "v(x) = "; 52597.855#; "км/сек"
PRINT #1, " Jx = "; 101.37; "нм "; "S(x) = "; 7154.9; "км/сек"
PRINT #1, " w2 = "; 271604938.3#; " Герц"
PRINT #1, " Jx = v(x) / y^ ="; 101.37; "м"
'-- More --
'Press any key to continue
CLOSE
Вариант 9 для Quick Basic (DOS):
OPEN "TMV_H2.DOS" FOR OUTPUT AS #1
PRINT #1, "Ток Межмолекулярного Взаимодействия (ТМВ). Пример расчета по теории."
PRINT #1, "для молекулы органического полимера H648C570O364 и молекул водорода H2,"
PRINT #1, "которые могут в определённом количестве, находится внутри неё"
PRINT #1, ""
PRINT #1, " Размеры и соотношения молекул органического полимера H648C570O364 и"
PRINT #1, " водорода H2"
PRINT #1, ""
PRINT #1, " Диаметр молекулы водорода H2 = 0.2 нм"
PRINT #1, " Диаметр молекулы органического полимера H648C570O364 = 4.65 нм"
PRINT #1, " R C560 = 2.325 нм"
PRINT #1, " Траектория движения H2 внутри H648C570O364 = 1.275 нм * 3 (отрезки A-B-C) ="
PRINT #1, " = 3.825 нм"
PRINT #1, " (общая протяжённость отрезков)."
PRINT #1, " Длина одного отрезка, траектории теплового движения молекулы H2 = 1.275 нм"
PRINT #1, " (r1 H2O = 1.275 нм)"
PRINT #1, ""
PRINT #1, " _"
PRINT #1, " Согласно, формуле v = SQR(3kT/m) обычная средняя квадратическая"
PRINT #1, " скорость теплового движения молекулы органического полимера H648C570O364"
PRINT #1, " (при T 273 K (0`C))"
PRINT #1, " составляет 12 м/сек, а молекул водорода H2 (при той же температуре) 900 м/сек"
PRINT #1, " Поэтому, частоту колебаний молекулы водорода H2 внутри молекулы H648C570O364"
PRINT #1, " находим так:"
PRINT #1, " w1 = v/r1 = 1800 м/сек / 1.275 нм = 1 411 764 705 882 Герц"
PRINT #1, "1800 / .000000001275 = "; 1800 / .000000001275#; "Герц"
PRINT #1, ""
PRINT #1, " Условия задачи:"
PRINT #1, " Найти свойства Тока Межмолекулярного Взаимодействия (ТМВ) для молекул,"
PRINT #1, " органического полимера H648C570O364 и водорода H2"
PRINT #1, ""
PRINT #1, " Дано:"
PRINT #1, " m H648C570O364 = 13 312 о.а.м. = 2.2D-23 кг"
PRINT #1, " (1.66D-27 кг * 13 312 о.а.м. = 2.2D-23 кг)"
PRINT #1, " F (m H648C570O364) = 2.2D-22 Н"
PRINT #1, " k(T 273 K) = 1.38D-23 Дж * 273 K = 3.76D-21 Дж"
PRINT #1, " d H2 = 0.2 нм"
PRINT #1, " R H648C570O364 = 2.325 нм"
PRINT #1, " d H648C570O364 = 4.65 нм"
PRINT #1, " w1 = 1 411 764 705 882 Герц"
PRINT #1, ""
PRINT #1, " Решение:"
PRINT #1, " y^ = F(m) / k(T) * w ="
PRINT #1, " = 1.38D-23 * 273 * 1411764705882 = "; 1.38D-23 * 273 * 1411764705882#
PRINT #1, "2.2D-22 / 5.32D-09 = "; 2.2D-22 / 5.32D-19; "y^"
PRINT #1, ""
PRINT #1, "Расчёт высоты отклонения траектории теплового движения молекулы"
PRINT #1, "органического полимера H648C570O364 , за счёт колебаний пяти "
PRINT #1, "молекул H2 внутри неё"
' Расчёт высоты отклонения траектории теплового движения молекулы"
' органического полимера H648C570O364, за счёт колебаний пяти молекул H2
' внутри неё:
PRINT #1, " Qx = SQR(k(T) / F(m)) ="
PRINT #1, "= 3.76D-21 Дж * 3.76D-21 Дж * 3.76D-21 Дж * 3.76D-21 Дж * 3.76D-21 Дж / 2.2D-22 Н ="
PRINT #1, "= "; 37.6 * 37.6 * 37.6 * 37.6 * 37.6 / 2.2; "Число из которого извлекаем корень"
PRINT #1, SQR(34159890); "Корень из 34159890"
REM PRINT SQR(3.76D-21 * 3.76D-21 * 3.76D-21 * 3.76D-21 * 3.76D-21 / 2.2D-22)
PRINT #1, " h1 = R * Qx ="
PRINT #1, " = 1.275 нм * 5844.65 = "; 1.275 * 5844.65; "нм" ' 1.275 * 5844.65
PRINT #1, ""
PRINT #1, "Определение разгонной скорости теплового движения для молекулы H648C570O364, при"
PRINT #1, "температуре 273 K (0` C):"
PRINT #1, " h1 * w1 = v(x) ="
PRINT #1, " = .000007452 метра * 1 411 764 705 882 Герц = "; .000007452# * 1411764705882#; "м/сек" ' 1.215 микрон * 7.05822E-11 Герц
PRINT #1, ""
PRINT #1, " Определение длины волны траектории теплового движения молекулы H648C570O364, при"
PRINT #1, " пяти молекулах H2O, находящийся внутри неё:"
PRINT #1, " Jx = v(x) / y^ ="
PRINT #1, "= 10520471 м/сек / .00041353 = "; 10520471 / .00041353#; "нм " ' 10520.47 км/сек / 0,00051887 y^
PRINT #1, ""
PRINT #1, " Путь свободного прохода молекулы H648C570O364 составляет:"
PRINT #1, " S(x) = Jx * w ="
PRINT #1, " = 25.44 м * 1 411 764 705 882 Герц = "; 25.44 * 1411764705882#; "м/сек" ' 25.44 м * 7.05822E-11 Герц
PRINT #1, ""
PRINT #1, "Определение частоты звуковой волны, возникающей при столкновении"
PRINT #1, "молекулы H648C570O364 с простой молекулой в жидкости или газе:"
PRINT #1, " w2 = v / h1 ="
PRINT #1, " = 330 м/сек / 1.215 микрон = "; 330 / .000001215#; "Герц" ' 330 м/сек / 1.215 микрон
PRINT #1, "": PRINT #1, ""
PRINT #1, "Ответ:"
PRINT #1, " h1 = "; 1.215; "микрон "; "v(x) = "; 10520.47; "км/сек"
PRINT #1, " Jx = "; 254.4; "нм "; "S(x) = "; 3591.5; "км/сек"
PRINT #1, " w2 = "; 12.97; " Герц"
PRINT #1, " Jx = v(x) / y^ ="; 25.44; "метра"
CLOSE
'-- More --
'Press any key to continue
END
Вариант 10 для Quick Basic (DOS):
PRINT "Ток Межмолекулярного Взаимодействия (ТМВ). Пример расчета по теории."
PRINT "для молекулы органического полимера H648C570O364 и молекул водорода H2,"
PRINT "которые могут в определённом количестве, находится внутри неё"
PRINT ""
PRINT "' Размеры и соотношения молекул органического полимера H648C570O364 и"
PRINT "' водорода H2"
PRINT ""
PRINT " Диаметр молекулы водорода H2 = 0.2 нм"
PRINT " Диаметр молекулы органического полимера H648C570O364 = 4.65 нм"
PRINT " R C560 = 2.325 нм"
PRINT " Траектория движения H2 внутри H648C570O364 = 1.275 нм * 3 (отрезки A-B-C) ="
PRINT " = 3.825 нм"
PRINT " (общая протяжённость отрезков)."
PRINT " Длина одного отрезка, траектории теплового движения молекулы H2 = 1.275 нм"
PRINT " (r1 H2O = 1.275 нм)"
PRINT ""
PRINT " _"
PRINT " Согласно, формуле v = SQR(3kT/m) обычная средняя квадратическая"
PRINT " скорость теплового движения молекулы органического полимера H648C570O364"
PRINT " (при T 273 K (0`C))"
PRINT " составляет 12 м/сек, а молекул водорода H2 (при той же температуре) 900 м/сек"
PRINT " Поэтому, частоту колебаний молекулы водорода H2 внутри молекулы H648C570O364"
PRINT " находим так:"
PRINT " w1 = v/r1 = 1800 м/сек / 1.275 нм = 1 411 764 705 882 Герц"
PRINT "1800 / .000000001275 = "; 1800 / .000000001275#; "Герц"
PRINT ""
PRINT " Условия задачи:"
PRINT " Найти свойства Тока Межмолекулярного Взаимодействия (ТМВ) для молекул,"
PRINT " органического полимера H648C570O364 и водорода H2"
PRINT " Дано:"
PRINT " m H648C570O364 = 13 312 о.а.м. = 2.2D-23 кг"
PRINT " (1.66D-27 кг * 13 312 о.а.м. = 2.2D-23 кг)"
PRINT " F (m H648C570O364) = 2.2D-22 Н"
PRINT " k(T 273 K) = 1.38D-23 Дж * 273 K = 3.76D-21 Дж"
PRINT " d H2 = 0.2 нм"
PRINT " R H648C570O364 = 2.325 нм"
PRINT " d H648C570O364 = 4.65 нм"
PRINT " w1 = 1 411 764 705 882 Герц"
PRINT ""
PRINT " Решение:"
PRINT " y^ = F(m) / k(T) * w ="
PRINT " = 1.38D-23 * 273 * 1411764705882 = "; 1.38D-23 * 273 * 1411764705882#
PRINT "2.2D-22 / 5.32D-09 = "; 2.2D-22 / 5.32D-19; "y^"
PRINT ""
PRINT "Расчёт высоты отклонения траектории теплового движения молекулы"
PRINT "органического полимера H648C570O364 , за счёт колебаний пяти "
PRINT "молекул H2 внутри неё"
' Расчёт высоты отклонения траектории теплового движения молекулы"
' органического полимера H648C570O364, за счёт колебаний пяти молекул H2
' внутри неё:
PRINT " Qx = SQR(k(T) / F(m)) ="
PRINT "= 3.76D-21 Дж * 3.76D-21 Дж * 3.76D-21 Дж * 3.76D-21 Дж * 3.76D-21 Дж / 2.2D-22 Н ="
PRINT "= "; 37.6 * 37.6 * 37.6 * 37.6 * 37.6 / 2.2; "Число из которого извлекаем корень"
PRINT SQR(34159890); "Корень из 34159890"
REM PRINT SQR(3.76D-21 * 3.76D-21 * 3.76D-21 * 3.76D-21 * 3.76D-21 / 2.2D-22)
PRINT " h1 = R * Qx ="
PRINT " = 1.275 нм * 5844.65 = "; 1.275 * 5844.65; "нм" ' 1.275 * 5844.65
PRINT "Определение разгонной скорости теплового движения для молекулы H648C570O364, при"
PRINT "температуре 273 K (0` C):"
PRINT " h1 * w1 = v(x) ="
PRINT " = .000007452 метра * 1 411 764 705 882 Герц = "; .000007452# * 1411764705882#; "м/сек" ' 1.215 микрон * 7.05822E-11 Герц
PRINT ""
PRINT " Определение длины волны траектории теплового движения молекулы H648C570O364, при"
PRINT " пяти молекулах H2O, находящийся внутри неё:"
PRINT " Jx = v(x) / y^ ="
PRINT "= 10520471 м/сек / .00041353 = "; 10520471 / .00041353#; "нм " ' 10520.47 км/сек / 0,00051887 y^
PRINT ""
PRINT " Путь свободного прохода молекулы H648C570O364 составляет:"
PRINT " S(x) = Jx * w ="
PRINT " = 25.44 м * 1 411 764 705 882 Герц = "; 25.44 * 1411764705882#; "м/сек" ' 25.44 м * 7.05822E-11 Герц
PRINT ""
PRINT "Определение частоты звуковой волны, возникающей при столкновении"
PRINT "молекулы H648C570O364 с простой молекулой в жидкости или газе:"
PRINT " w2 = v / h1 ="
PRINT " = 330 м/сек / 1.215 м = "; 330 / 1.215; "Герц" ' 330 м/сек / 1.215 м
PRINT "": PRINT ""
PRINT "Ответ:"
PRINT " h1 = "; 1.215; "микрон "; "v(x) = "; 10520.47; "км/сек"
PRINT " Jx = "; 254.4; "нм "; "S(x) = "; 3591.5; "км/сек"
PRINT " w2 = "; 12.97; " Герц"
PRINT " Jx = v(x) / y^ ="; 25.44; "метра"
'-- More --
'Press any key to continue
CLOSE: END
Вариант 11 для Quick Basic (DOS):
PRINT "Ток Межмолекулярного Взаимодействия (ТМВ). Пример расчета по теории."
PRINT "для молекулы полимера в который проникает квант света и который за"
PRINT "счёт этого получает эффект ТМВ (эта молекула полимера C133P133"
PRINT "движется за счёт солнечного ветра)."
' Размеры и соотношения молекулы полимера C133P133
' Диаметр частицы света (фотона) = 2.9D-15 м
' Диаметр молекулы C133P133 = 1.5 нм
' R C133P133 = 0.75 нм
' Траектория движения кванта света - фотона, внутри C133P133 = 0.6 нм * 4
' (отрезки A-B-C) = 2.4 нм (общая протяжённость отрезков).
' Длина одного отрезка, траектории теплового движения частицы света - фотона
' = 0.6 нм
' (r1 kvantum the foton = 0.6 нм)
' _
' Скорость света составляет 300 000 км/сек. Она считает, наибольшей
' допустимой скоростью.
' Поэтому, частоту колебаний частицы света - фотона, внутри молекулы C133P133
' находим так:
' w1 = v/r1 = 300 000 км/сек / 0.6 нм = 5.000E-17 Герц
PRINT 300000000 / .0000000006#; "Герц"
' Условия задачи:
' Найти свойства Тока Межмолекулярного Взаимодействия (ТМВ) для молекул
' полимеров C133P133
' Дано:
' m C133P133 = 5719 о.а.м. = 9.49354D-24 кг
' (1.66D-27 кг * 5719 о.а.м. = 9.49354D-24 кг)
' F (m C133P133) = 9.49354-23 Н
' k(T 273 K) = 1.38D-23 Дж * 273 K = 3.76D-21 Дж
' R C133P133 = 0.75 нм
' w1 = 5.000E-17 Герц
' J(x) = длина волны электромагнитного излучения, проходимого через
' отверстие в молекуле C133P133 = < 0.3 нм (Ренгеновский диапозон).
' d отверстия в молекуле C133P133 = 0.45 нм (4.5 A`).
' m фотона = 1.1D-52 кг (1.1D-53 Н)
' d фотона = 2.9D-15 м
' Решение:
' y^ = F(m) / k(T) * w =
' =
PRINT 1.38D-23 * 273 * 5E-17
PRINT 9.4935D-23 / .000018837#; "y^"
' Расчёт высоты отклонения траектории теплового движения молекулы
' полимера C133P133, за счёт колебаний частицы сета - фотона, внутри неё:
' Qx = SQR(k(T) / F(m)) =
' =
PRINT SQR(1.1D-53 / 9.4935D-23); "Корень из 1.1587E-31" ' 1.1D-21 Дж / 9.4935D-23 Н
' h1 = R * Qx =
PRINT .0000000006# * 3.4E-16; "метра" ' 0.6 нм * 3.4E-16 = 2040 км
' Определение разгонной скорости теплового движения для молекулы C133P133, при
' температуре 273 K (0` C):
' h1 * w1 = v(x) =
' =
PRINT 2040! * 5E-17; "км/сек"
' Определение длины волны траектории теплового движения молекулы C133P133, при
' воздействии кванта света - фотона
' Jx = v(x) / y^ =
' =
PRINT 2040! / 5.03E-18; "нм " ' 2040 км/сек / 5.03E-18
'PRINT 2040 / 5.03E-18; "нм " ' 2040 км/сек / 5.03E-18
' Путь свободного прохода молекулы C133P133 составляет:
' S(x) = Jx * w =
' =
PRINT 4.05E-20 * 5E-17; "м/сек" ' 4.05E-20 нм * 5.E-17 Герц
' Определение частоты звуковой волны, возникающей при столкновении
' молекулы C133P133 с простой молекулой в жидкости или газе:
' w2 = v / h1 =
' =
PRINT 330 * 2040000; "Герц" ' 330 м/сек * 2040000 м
PRINT 2040 / 3; "Герц" ' 2043 км / 3 (км_сек)
PRINT "Ответ:"
PRINT " h1 = "; 2040; "км "; "v(x) = "; 1.03E-13; "км/сек"
PRINT " Jx = "; 4.056E-20; " нм ; S(x) = "; 2.025E-36; "м/сек"
PRINT " w2 = "; 673200000; "Герц"
PRINT " w3 = "; 680; "Герц"
SOUND 680, 99
CLOSE: END
Вариант 12 для Quick Basic (DOS):
PRINT "Ток Межмолекулярного Взаимодействия (ТМВ). Пример расчета по теории."
PRINT "для молекул фуллеренов C60@C240@C560"
' Размеры и соотношения молекулы фуллеренов C60@C240@C560
' Диаметр молекулы C60 = 0.7 нм
' Диаметр молекулы C240 = 1.75 нм
' Диаметр молекулы C560 = 4.375 нм
' R C240 = 0.875 нм
' R C560 = 2.187 нм
' Траектория движения C240 внутри C560 = 3.85 нм * 3 (отрезки A-B-C) =
' = 11.55 нм
' (общая протяжённость отрезков).
' Длина одного отрезка, траектории теплового движения молекулы C240 = 3.85 нм
' (r1 C240 = 3.85 нм)
' Согласно, формуле h1 * w1 = v(x) разгонная скорость теплового движения
' молекул фуллерена C60@C240 (при T 273 K (0`C))
' составляет 132 м/сек
' Поэтому, частоту колебаний молекул фуллерена C60@C240 внутри молекулы C560
' находим так:
' w1 = v/r1 = 132 м/сек / 3.85 нм = 3.428E-10 Герц
PRINT 132 / 3.85; "Герц"
' Условия задачи:
' Найти свойства Тока Межмолекулярного Взаимодействия (ТМВ) для молекул
' фуллеренов C60@C240@C560
' Дано:
' m C560 = 6720 о.а.м. = 1.115D-23 кг
' (1.66D-27 кг * 6720 о.а.м. = 1.115D-23 кг)
' F (m C560) = 1.115D-22 Н
' k(T 273 K) = 1.38D-23 Дж * 273 K = 3.76D-21 Дж
' R C240 = 0.875 нм
' R C560 = 2.187 нм
' w1 = 3.428E-10 Герц
' Решение:
' y^ = F(m) / k(T) * w =
' =
PRINT 1.115D-22 * 273 * 3.428E-10
PRINT 1.115D-22 / .00000000001288#; "y^"
' Расчёт высоты отклонения траектории теплового движения молекулы
' фуллерена C560, за счёт колебаний молекул C60@C240 внутри неё:
' Qx = SQR(k(T) / F(m)) =
' =
PRINT SQR(3.76D-21 / 1.115D-22); "Корень из 33.8" ' 3.76D-21 Дж / 1.115D-22 Н
' h1 = R * Qx =
PRINT 2.187 * 5.8; "нм" ' 2.187 нм * 5.8
' Определение разгонной скорости теплового движения для молекулы C560, при
' температуре 273 K (0` C):
' h1 * w1 = v(x) =
' =
PRINT 12.68 * 3.428E-10; "м/сек"
' Определение длины волны траектории теплового движения молекулы C560, при
' одной молекуле C60@C240:
' Jx = v(x) / y^ =
' =
PRINT 434.6 / 8.65E-12; "нм " ' 434.6 м/сек / 8.65E-12
' Путь свободного прохода молекулы C60@C240@C560 составляет:
' S(x) = Jx * w =
' =
PRINT .0000000000502# * 3.428E-10; "м/сек" ' 0.502 нм * 3.428E-10 Герц
' Определение частоты звуковой волны, возникающей при столкновении
' молекулы C60@C240@C560 с простой молекулой в жидкости или газе:
' w2 = v / Jx =
' =
PRINT 330 / .0000000000502#; "Герц" ' 330 м/сек / 0.502 нм
PRINT "Ответ:"
PRINT " h1 = "; 12.68; "нм "; "v(x) = "; 434.6; "м/сек"
PRINT " Jx = "; .502; " нм ; S(x) = "; 17.2; "м/сек"
PRINT " w2 = "; 6.573E-11; "Герц"
CLOSE
Вариант 13 для Quick Basic (DOS):
PRINT "Ток Межмолекулярного Взаимодействия (ТМВ). Пример расчета по теории."
PRINT "для молекулы фуллерена C560 и молекул воды H2O, которые могут в"
PRINT "определённом количестве, находится внутри неё"
' Размеры и соотношения молекул фуллерена C560 и воды H2O
' Диаметр молекулы воды H2O = 0.35 нм
' Диаметр молекулы фуллерена C560 = 4.375 нм
' R C560 = 2.187 нм
' Траектория движения H2O внутри C560 = 3.85 нм * 3 (отрезки A-B-C) =
' = 11.55 нм
' (общая протяжённость отрезков).
' Длина одного отрезка, траектории теплового движения молекулы H2O = 3.85 нм
' (r1 H2O = 3.85 нм)
' _
' Согласно, формуле v = SQR(3kT/m) обычная средняя квадратическая
' скорость теплового движения молекулы фуллерена C560 (при T 273 K (0`C))
' составляет 20 м/сек, а молекул воды H2O (при той же температуре) 900 м/сек
' Поэтому, частоту колебаний молекулы воды H20 внутри молекулы C560
' находим так:
' w1 = v/r1 = 900 м/сек / 3.85 нм = 2.337E-11 Герц
PRINT 900 / .00000000385#; "Герц"
' Условия задачи:
' Найти свойства Тока Межмолекулярного Взаимодействия (ТМВ) для молекул,
' фуллерена С560 и воды H2O
' Дано:
' m C560 = 6720 о.а.м. = 1.115D-23 кг
' (1.66D-27 кг * 6720 о.а.м. = 1.115D-23 кг)
' F (m C560) = 1.115D-22 Н
' k(T 273 K) = 1.38D-23 Дж * 273 K = 3.76D-21 Дж
' d H2O = 0.35 нм
' R C560 = 2.187 нм
' d C560 = 4.375 нм
' w1 = 2.337E-11 Герц
' Решение:
' y^ = F(m) / k(T) * w =
' =
PRINT 1.115D-22 * 273 * 2.337E-11
PRINT 1.115D-22 / .00000000001288#; "y^"
' Расчёт высоты отклонения траектории теплового движения молекулы
' фуллерена C560, за счёт колебаний одной молекулы H2O внутри неё:
' Qx = SQR(k(T) / F(m)) =
' =
PRINT SQR(3.76D-21 / 1.115D-22); "Корень из 33.8" ' 3.76D-21 Дж / 1.115D-22 Н
' h1 = R * Qx =
PRINT .000000002187# * 5.8; "нм" ' 2.187 нм * 5.8
' Определение разгонной скорости теплового движения для молекулы C560, при
' температуре 273 K (0` C):
' h1 * w1 = v(x) =
' =
PRINT .00000001268# * 2.337E-11; "м/сек" ' 12.68 нм * 2.337E-11 Герц
' Определение длины волны траектории теплового движения молекулы C560, при
' одной молекуле H2O, находящийся внутри неё:
' Jx = v(x) / y^ =
' =
PRINT 2963 / 8.65E-12; "нм " ' 2963 м/сек / 8.65E-12
' Путь свободного прохода молекулы C560 составляет:
' S(x) = Jx * w =
' =
PRINT .0000000003425# * 2.337E-11; "м/сек" ' 3.425 нм * 2.337E-11 Герц
' Определение частоты звуковой волны, возникающей при столкновении
' молекулы C560 с простой молекулой в жидкости или газе:
' w2 = v / Jx =
' =
PRINT 330 / .0000000003425#; "Герц" ' 330 м/сек / 3.425 нм
PRINT "Ответ:"
PRINT " h1 = "; 12.68; " нм "; "v(x) = "; 2963; " м/сек"
PRINT " Jx = "; 3.425; " нм ; S(x) = "; 80; " м/сек"
PRINT " w2 = "; 9.634999E-10; " Герц"
PRINT " Jx = v(x) / y^ ="; 3.425; "нм"
Вариант 14 для Quick Basic (DOS):
PRINT "Ток Межмолекулярного Взаимодействия (ТМВ). Пример расчета по теории."
PRINT "для молекулы фуллерена C560 и молекул воды H2O, которые могут в"
PRINT "определённом количестве, находится внутри неё"
' Размеры и соотношения молекул фуллерена C560 и воды H2O
' Диаметр молекулы воды H2O = 0.35 нм
' Диаметр молекулы фуллерена C560 = 4.375 нм
' R C560 = 2.187 нм
' Траектория движения H2O внутри C560 = 3.85 нм * 3 (отрезки A-B-C) =
' = 11.55 нм
' (общая протяжённость отрезков).
' Длина одного отрезка, траектории теплового движения молекулы H2O = 3.85 нм
' (r1 H2O = 3.85 нм)
' _
' Согластно, фурмуле v = SQR(3kT/m) обычная средняя квадранитическая
' скорость теплового движения молекуллы фуллерена C560 (при T 273 K (0`C))
' составляет 20 м/сек, а молекул воды H2O (при той же температуре) 900 м/сек
' Поэтому, частоту колебаний молекулы воды H20 внутри молекулы C560
' находим так:
' w1 = v/r1 = 900 м/сек / 3.85 нм = 2.337E-11 Герц
PRINT 900 / .00000000385#; "Герц"
' Условия задачи:
' Найти свойства Тока Межмолекулярного Взаимодействия (ТМВ) для молекул,
' фуллерена С560 и воды H2O
' Дано:
' m C560 = 6720 о.а.м. = 1.115D-23 кг
' (1.66D-27 кг * 6720 о.а.м. = 1.115D-23 кг)
' F (m C560) = 1.115D-22 Н
' k(T 273 K) = 1.38D-23 Дж * 273 K = 3.76D-21 Дж
' d H2O = 0.35 нм
' R C560 = 2.187 нм
' d C560 = 4.375 нм
' w1 = 2.337E-11 Герц
' Решение:
' y^ = F(m) / k(T) * w =
' =
PRINT 1.115D-22 * 273 * 2.337E-11
PRINT 1.115D-22 / .00000000001288#; "y^"
PRINT "Расчёт высоты отклонения траектории теплового движения молекулы"
PRINT "фуллерена C560, за счёт колебаний двух молекул H2O внутри неё"
' Расчёт высоты отклонения траектории теплового движения молекулы"
' фуллерена C560, за счёт колебаний двух молекул H2O внутри неё:"
' Qx = SQR(k(T) / F(m)) =
' =
PRINT 37.6 * 37.6 / 1.115; "Число из которого извлекаем корень"
PRINT SQR(1268); "Корень из 1268" ' 3.76D-21 Дж * 3.76D-21 Дж / 1.115D-22 Н
REM PRINT 3.76D-21 * 3.76D-21 / 1.115D-22
REM PRINT SQR(3.76D-21 * 3.76D-21 / 1.115D-22)
' h1 = R * Qx =
PRINT .000000002187# * 35.6; "нм" ' 2.187 нм * 35.6
' Определение разгонной скорости теплового движения для молекулы C560, при
' температуре 273 K (0` C):
' h1 * w1 = v(x) =
' =
PRINT .00000007786# * 2.337E-11; "м/сек" ' 77.86 нм * 2.337E-11 Герц
' Определение длины волны траектории теплового движения молекулы C560, при
' двух молекулах H2O, находящийся внутри неё:
' Jx = v(x) / y^ =
' =
PRINT 18196 / 8.65E-12; "нм " ' 18 196 м/сек / 8.65E-12
' Путь свободного прохода молекулы C560 составляет:
' S(x) = Jx * w =
' =
PRINT .0000000003425# * 2.337E-11; "м/сек" ' 3.425 нм * 2.337E-11 Герц
' Определение частоты звуковой волны, возникающей при столкновении
' молекулы C560 с простой молекулой в жидкости или газе:
' w2 = v / Jx =
' =
PRINT 330 / .0000000021#; "Герц" ' 330 м/сек / 21.00 нм
PRINT "Ответ:"
PRINT " h1 = "; 77.86; "нм "; "v(x) = "; 18196; "м/сек"
PRINT " Jx = "; 3.425; "нм "; "S(x) = "; 80; "м/сек"
PRINT " w2 = "; 1.571E-09; " Герц"
PRINT " Jx = v(x) / y^ ="; 21; "нм"
Вариант 15 для Quick Basic (DOS):
PRINT "Ток Межмолекулярного Взаимодействия (ТМВ). Пример разчёта по теории."
PRINT "для молекулы фуллерена C560 и молекул воды H2O, которые могут в"
PRINT "определённом количестве, находится внутри неё"
' Размеры и соотношения молекул фуллерена C560 и воды H2O
' Диаметр молекулы воды H2O = 0.35 нм
' Диаметр молекулы фуллерена C560 = 4.375 нм
' R C560 = 2.187 нм
' Траектория движения H2O внутри C560 = 3.85 нм * 3 (отрезки A-B-C) =
' = 11.55 нм
' (общая протяжённость отрезков).
' Длина одного отрезка, траектории теплового движения молекулы H2O = 3.85 нм
' (r1 H2O = 3.85 нм)
' _
' Согластно, фурмуле v = SQR(3kT/m) обычная средняя квадранитическая
' скорость теплового движения молекуллы фуллерена C560 (при T 273 K (0`C))
' составляет 20 м/сек, а молекул воды H2O (при той же температуре) 900 м/сек
' Поэтому, частоту колебаний молекулы воды H20 внутри молекулы C560
' находим так:
' w1 = v/r1 = 900 м/сек / 3.85 нм = 2.337E-11 Герц
PRINT 900 / .00000000385#; "Герц"
' Условия задачи:
' Найти свойства Тока Межмолекулярного Взаимодействия (ТМВ) для молекул,
' фуллерена С560 и воды H2O
' Дано:
' m C560 = 6720 о.а.м. = 1.115D-23 кг
' (1.66D-27 кг * 6720 о.а.м. = 1.115D-23 кг)
' F (m C560) = 1.115D-22 Н
' k(T 273 K) = 1.38D-23 Дж * 273 K = 3.76D-21 Дж
' d H2O = 0.35 нм
' R C560 = 2.187 нм
' d C560 = 4.375 нм
' w1 = 2.337E-11 Герц
' Решение:
' y^ = F(m) / k(T) * w =
' =
PRINT 1.115D-22 * 273 * 2.337E-11
PRINT 1.115D-22 / .00000000001288#; "y^"
PRINT "Расчёт высоты отклонения траектории теплового движения молекулы"
PRINT "фуллерена C560, за счёт колебаний трёх молекул H2O внутри неё"
' Расчёт высоты отклонения траектории теплового движения молекулы"
' фуллерена C560, за счёт колебаний трёх молекул H2O внутри неё:"
' Qx = SQR(k(T) / F(m)) =
' =
PRINT 37.6 * 37.6 * 37.6 / 1.115; "Число из которого извлекаем корень"
PRINT SQR(47675); "Корень из 47675"
REM PRINT 3.76D-21 * 3.76D-21 * 3.76D-21 / 1.115D-22
REM PRINT SQR(3.76D-21 * 3.76D-21 * 3.76D-21 / 1.115D-22)
' h1 = R * Qx =
PRINT 2.187 * 218; "нм" ' 2.187 нм * 218
' Определение разгонной скорости теплового движения для молекулы C560, при
' температуре 273 K (0` C):
' h1 * w1 = v(x) =
' =
PRINT .00000000476# * 2.337E-11; "м/сек" ' 476.8 нм * 2.337E-11 Герц
' Определение длины волны траектории теплового движения молекулы C560, при
' трёх молекулах H2O, находящийся внутри неё:
' Jx = v(x) / y^ =
' =
PRINT 111241 / 8.65E-12; "нм " ' 111 241 м/сек / 8.65E-12
' Путь свободного прохода молекулы C560 составляет:
' S(x) = Jx * w =
' =
PRINT .0000000003425# * 2.337E-11; "м/сек" ' 3.425 нм * 2.337E-11 Герц
' Определение частоты звуковой волны, возникающей при столкновении
' молекулы C560 с простой молекулой в жидкости или газе:
' w2 = v / Jx =
' =
PRINT 330 / .0000000128#; "Герц" ' 330 м/сек / 128 нм
PRINT "Ответ:"
PRINT " h1 = "; 476.8; "нм "; "v(x) = "; 111241; "м/сек"
PRINT " Jx = "; 3.425; "нм "; "S(x) = "; 80; "м/сек"
PRINT " w2 = "; 25781250000#; " Герц"
PRINT " Jx = v(x) / y^ ="; 128.6; "нм"
Вариант 16 для Quick Basic (DOS):
PRINT "Ток Межмолекулярного Взаимодействия (ТМВ). Пример разчёта по теории."
PRINT "для молекулы фуллерена C560 и молекул воды H2O, которые могут в"
PRINT "определённом количестве, находится внутри неё"
' Размеры и соотношения молекул фуллерена C560 и воды H2O
' Диаметр молекулы воды H2O = 0.35 нм
' Диаметр молекулы фуллерена C560 = 4.375 нм
' R C560 = 2.187 нм
' Траектория движения H2O внутри C560 = 3.85 нм * 3 (отрезки A-B-C) =
' = 11.55 нм
' (общая протяжённость отрезков).
' Длина одного отрезка, траектории теплового движения молекулы H2O = 3.85 нм
' (r1 H2O = 3.85 нм)
' _
' Согластно, фурмуле v = SQR(3kT/m) обычная средняя квадранитическая
' скорость теплового движения молекуллы фуллерена C560 (при T 273 K (0`C))
' составляет 20 м/сек, а молекул воды H2O (при той же температуре) 900 м/сек
' Поэтому, частоту колебаний молекулы воды H20 внутри молекулы C560
' находим так:
' w1 = v/r1 = 900 м/сек / 3.85 нм = 2.337E-11 Герц
PRINT 900 / .00000000385#; "Герц"
' Условия задачи:
' Найти свойства Тока Межмолекулярного Взаимодействия (ТМВ) для молекул,
' фуллерена С560 и воды H2O
' Дано:
' m C560 = 6720 о.а.м. = 1.115D-23 кг
' (1.66D-27 кг * 6720 о.а.м. = 1.115D-23 кг)
' F (m C560) = 1.115D-22 Н
' k(T 273 K) = 1.38D-23 Дж * 273 K = 3.76D-21 Дж
' d H2O = 0.35 нм
' R C560 = 2.187 нм
' d C560 = 4.375 нм
' w1 = 2.337E-11 Герц
' Решение:
' y^ = F(m) / k(T) * w =
' =
PRINT 1.115D-22 * 273 * 2.337E-11
PRINT 1.115D-22 / .00000000001288#; "y^"
PRINT "Расчёт высоты отклонения траектории теплового движения молекулы"
PRINT "фуллерена C560, за счёт колебаний пяти молекул H2O внутри неё"
' Расчёт высоты отклонения траектории теплового движения молекулы"
' фуллерена C560, за счёт колебаний пяти молекул H2O внутри неё:"
' Qx = SQR(k(T) / F(m)) =
' =
PRINT 37.6 * 37.6 * 37.6 * 37.6 * 37.6 / 1.115; "Число из которого извлекаем корень"
PRINT SQR(67400680); "Корень из 6.740E-07"
REM PRINT 3.76D-21 * 3.76D-21 * 3.76D-21 * 3.76D-21 * 3.76D-21 / 1.115D-22
REM PRINT SQR(3.76D-21 * 3.76D-21 * 3.76D-21 * 3.76D-21 * 3.76D-21 / 1.115D-22)
' h1 = R * Qx =
PRINT 2.187 * 8210; "нм" ' 2.187 нм * 8210
' Определение разгонной скорости теплового движения для молекулы C560, при
' температуре 273 K (0` C):
' h1 * w1 = v(x) =
' =
PRINT .00000017955# * 2.337E-11; "м/сек" '17.955 микрон * 2.337E-11 Герц
' Определение длины волны траектории теплового движения молекулы C560, при
' пяти молекулах H2O, находящийся внутри неё:
' Jx = v(x) / y^ =
' =
PRINT 41960000 / 8.65E-12; "нм " ' 41960 км/сек / 8.65E-12
' Путь свободного прохода молекулы C560 составляет:
' S(x) = Jx * w =
' =
PRINT .0000000003425# * 2.337E-11; "м/сек" ' 3.425 нм * 2.337E-11 Герц
' Определение частоты звуковой волны, возникающей при столкновении
' молекулы C560 с простой молекулой в жидкости или газе:
' w2 = v / h1 =
' =
PRINT 330 / .0000017955#; "Герц" ' 330 м/сек / 17 микрон 955 нм
PRINT "Ответ:"
PRINT " h1 = "; 17.955; "микрон "; "v(x) = "; 41960; "км/сек"
PRINT " Jx = "; 3.425; "микрон "; "S(x) = "; 80; "м/сек"
PRINT " w2 = "; 183792815; " Герц"
PRINT " Jx = v(x) / y^ ="; 48.5; "микрон"
Вариант 17 для Quick Basic (DOS):
PRINT "Ток Межмолекулярного Взаимодействия (ТМВ). Пример разчёта по теории."
PRINT "для молекулы фуллерена C560 и молекул воды H2O, которые могут в"
PRINT "определённом количестве, находится внутри неё"
' Размеры и соотношения молекул фуллерена C560 и воды H2O
' Диаметр молекулы воды H2O = 0.35 нм
' Диаметр молекулы фуллерена C560 = 4.375 нм
' R C560 = 2.187 нм
' Траектория движения H2O внутри C560 = 3.85 нм * 3 (отрезки A-B-C) =
' = 11.55 нм
' (общая протяжённость отрезков).
' Длина одного отрезка, траектории теплового движения молекулы H2O = 3.85 нм
' (r1 H2O = 3.85 нм)
' _
' Согластно, фурмуле v = SQR(3kT/m) обычная средняя квадранитическая
' скорость теплового движения молекуллы фуллерена C560 (при T 273 K (0`C))
' составляет 20 м/сек, а молекул воды H2O (при той же температуре) 900 м/сек
' Поэтому, частоту колебаний молекулы воды H20 внутри молекулы C560
' находим так:
' w1 = v/r1 = 900 м/сек / 3.85 нм = 2.337E-11 Герц
PRINT 900 / .00000000385#; "Герц"
' Условия задачи:
' Найти свойства Тока Межмолекулярного Взаимодействия (ТМВ) для молекул,
' фуллерена С560 и воды H2O
' Дано:
' m C560 = 6720 о.а.м. = 1.115D-23 кг
' (1.66D-27 кг * 6720 о.а.м. = 1.115D-23 кг)
' F (m C560) = 1.115D-22 Н
' k(T 273 K) = 1.38D-23 Дж * 273 K = 3.76D-21 Дж
' d H2O = 0.35 нм
' R C560 = 2.187 нм
' d C560 = 4.375 нм
' w1 = 2.337E-11 Герц
' Решение:
' y^ = F(m) / k(T) * w =
' =
PRINT 1.115D-22 * 273 * 2.337E-11
PRINT 1.115D-22 / .00000000001288#; "y^"
PRINT "Расчёт высоты отклонения траектории теплового движения молекулы"
PRINT "фуллерена C560, за счёт колебаний семи молекул H2O внутри неё"
' Расчёт высоты отклонения траектории теплового движения молекулы"
' фуллерена C560, за счёт колебаний семи молекул H2O внутри неё:"
' Qx = SQR(k(T) / F(m)) =
' =
PRINT 37.6 * 7.6 * 37.6 * 37.6 * 37.6 * 37.6 * 37.6 / 1.115; "Число из которого извлекаем корень"
PRINT SQR(1926042000); "Корень из 1 926 042 000"
REM PRINT 3.76D-21 * 3.76D-21 * 3.76D-21 * 3.76D-21 * 3.76D-21 / 1.115D-22
REM PRINT SQR(3.76D-21 * 3.76D-21 * 3.76D-21 * 3.76D-21 * 3.76D-21 / 1.115D-22)
' h1 = R * Qx =
PRINT 2.187 * 43887; "нм" ' 2.187 нм * 43887
' Определение разгонной скорости теплового движения для молекулы C560, при
' температуре 273 K (0` C):
' h1 * w1 = v(x) =
' =
PRINT 9.597999999999999D-07 * 2.337E-11; "м/сек" '95.980 микрон * 2.337E-11 Герц
' Определение длины волны траектории теплового движения молекулы C560, при
' семи молекулах H2O, находящийся внутри неё:
' Jx = v(x) / y^ =
' =
PRINT 224305000 / 8.65E-12; "нм " ' 224305 км/сек / 8.65E-12
' Путь свободного прохода молекулы C560 составляет:
' S(x) = Jx * w =
' =
PRINT .0000000003425# * 2.337E-11; "м/сек" ' 3.425 нм * 2.337E-11 Герц
' Определение частоты звуковой волны, возникающей при столкновении
' молекулы C560 с простой молекулой в жидкости или газе:
' w2 = v / h1 =
' =
PRINT 330 / .000009598#; "Герц" ' 330 м/сек / 95 микрон 980 нм
PRINT "Ответ:"
PRINT " h1 = "; 95.98; "микрон "; "v(x) = "; 224305; "км/сек"
PRINT " Jx = "; 3.425; "нм "; "S(x) = "; 80; "м/сек"
PRINT " w2 = "; 34382163; " Герц"
PRINT " Jx = v(x) / y^ ="; 259.31; "микрон"
Вариант 2 для Visual Basic (Windows):
Sub Command1_Click ()
OPEN "TMV__7M.DOS" FOR OUTPUT AS #1
PRINT #1, "Данная программа решения задачи, была написана и решена в среде"
PRINT #1, "программирования Visual Basic"
PRINT #1, "Ток Межмолекулярного Взаимодействия (ТМВ). Пример расчета по теории."
PRINT #1, "для молекулы органического полимера H648C570O364 и молекул воды H2O,"
PRINT #1, "которые могут в определённом количестве, находится внутри неё"
PRINT #1, ""
PRINT #1, " Размеры и соотношения молекул органического полимера H648C570O364 и"
PRINT #1, " воды H2O"
PRINT #1, ""
PRINT #1, " Диаметр молекулы воды H2O = 0.35 нм"
PRINT #1, " Диаметр молекулы органического полимера H648C570O364 = 4.65 нм"
PRINT #1, " R C560 = 2.325 нм"
PRINT #1, " Траектория движения H2O внутри H648C570O364 = 1.275 нм * 3 (отрезки A-B-C) ="
PRINT #1, " = 3.825 нм"
PRINT #1, " (общая протяжённость отрезков)."
PRINT #1, " Длина одного отрезка, траектории теплового движения молекулы H2O = 1.275 нм"
PRINT #1, " (r1 H2O = 1.275 нм)"
PRINT #1, ""
PRINT #1, " _"
PRINT #1, " Согластно, фурмуле v = SQR(3kT/m) обычная средняя квадранитическая"
PRINT #1, " скорость теплового движения молекулы органического полимера H648C570O364"
PRINT #1, " (при T 273 K (0`C))"
PRINT #1, " составляет 12 м/сек, а молекул воды H2O (при той же температуре) 900 м/сек"
PRINT #1, " Поэтому, частоту колебаний молекулы воды H20 внутри молекулы H648C570O364"
PRINT #1, " находим так:"
PRINT #1, " w1 = v/r1 = 900 м/сек / 1.275 нм = 2.337E-11 Герц"
PRINT #1, " 900 / .000000001275 = "; 900 / .000000001275#; "Герц"
PRINT #1, ""
PRINT #1, " Условия задачи:"
PRINT #1, " Найти свойства Тока Межмолекулярного Взаимодействия (ТМВ) для молекул,"
PRINT #1, " органического полимера H648C570O364 и воды H2O"
PRINT #1, ""
PRINT #1, " Дано:"
PRINT #1, " m H648C570O364 = 13 312 о.а.м. = 2.2D-23 кг"
PRINT #1, " (1.66D-27 кг * 13 312 о.а.м. = 2.2D-23 кг)"
PRINT #1, " F (m H648C570O364) = 2.2D-22 Н"
PRINT #1, " k(T 273 K) = 1.38D-23 Дж * 273 K = 3.76D-21 Дж"
PRINT #1, " d H2O = 0.35 нм"
PRINT #1, " R H648C570O364 = 2.325 нм"
PRINT #1, " d H648C570O364 = 4.65 нм"
PRINT #1, " w1 = 7.05822E-11 Герц"
PRINT #1, ""
PRINT #1, " Решение:"
PRINT #1, " y^ = F(m) / k(T) * w ="
PRINT #1, " = 2.2D-22 * 273 * 7.05822E-11 = "; 2.2D-22 * 273 * 7.05822E-11
PRINT #1, "2.2D-22 / 4.24D-19 = "; 2.2D-22 / 4.24D-19; "y^"
PRINT #1, ""
PRINT #1, "Расчёт высоты отклонения траектории теплового движения молекулы"
PRINT #1, "органического полимера H648C570O364 , за счёт колебаний семи "
PRINT #1, "молекул H2O внутри неё"
' Расчёт высоты отклонения траектории теплового движения молекулы"
' органического полимера H648C570O364, за счёт колебаний семи молекул H2O
' внутри неё:
PRINT #1, " Qx = SQR(k(T) / F(m)) ="
PRINT #1, "= 3.76D-21 Дж * 3.76D-21 Дж * 3.76D-21 Дж * 3.76D-21 Дж * 3.76D-21 Дж * 3.76D-21 Дж * 3.76D-21 Дж / 2.2D-22 Н ="
PRINT #1, "= "; 37.6 * 37.6 * 37.6 * 37.6 * 37.6 * 37.6 * 37.6 / 2.2; "Число из которого извлекаем корень"
PRINT #1, SQR(48293880000#); "Корень из 48293880000"
REM PRINT SQR(3.76D-21 * 3.76D-21 * 3.76D-21 * 3.76D-21 / 2.2D-22)
PRINT #1, " h1 = R * Qx ="
PRINT #1, " = 1.275 нм * 219758.7 = "; 1.275 * 219758.7; "нм"' 1.275 нм * 219758.7
PRINT #1, "Определение разгонной скорости теплового движения для молекулы H648C570O364, при"
PRINT #1, "температуре 273 K (0` C):"
PRINT #1, " h1 * w1 = v(x) ="
PRINT #1, " = .0002801923 метра * 7.05822E-11 Герц = "; .0002801923# * 7.05822E-11; "м/сек" ' 280.1923 микрон * 7.05822E-11 Герц
PRINT #1, ""
PRINT #1, " Определение длины волны траектории теплового движения молекулы H648C570O364, при"
PRINT #1, " семи молекулах H2O, находящийся внутри неё:"
PRINT #1, " Jx = v(x) / y^ ="
PRINT #1, "= 197765889 м/сек / .00051887 = "; 197765889 / 5.188700000000001D-04; "нм " ' 197765.889 км/сек / 0,00051887 y^
PRINT #1, ""
PRINT #1, " Путь свободного прохода молекулы H648C570O364 составляет:"
PRINT #1, " S(x) = Jx * w ="
PRINT #1, " = 38.115 микрон * 7.05822E-11 Герц = "; .000038115# * 7.05822E-11; "м/сек" ' 38.115 микрон * 7.05822E-11 Герц
PRINT #1, ""
PRINT #1, "Определение частоты звуковой волны, возникающей при столкновении"
PRINT #1, "молекулы H648C570O364 с простой молекулой в жидкости или газе:"
PRINT #1, " w2 = v / Jx ="
PRINT #1, " = 330 м/сек / 280.1923 микрон = "; 330 / .0002801923#; "Герц" ' 330 м/сек * / 280.1923 микрон
PRINT #1, "": PRINT #1, ""
PRINT #1, "Ответ:"
PRINT #1, " h1 = "; 280.1923; "микрон "; "v(x) = "; 197765.889#; "км/сек"
PRINT #1, " Jx = "; 38.115; "микрон "; "S(x) = "; 26902.41; "км/сек"
PRINT #1, " w2 = "; 1177762.558#; " Герц"
PRINT #1, " Jx = v(x) / y^ ="; 26902.405#; "км "
'-- More --
'Press any key to continue
CLOSE
End Sub
Вариант 3 для Visual Basic (Windows):
'Sub Command1_Click ()
OPEN "TMV__10M.DOS" FOR OUTPUT AS #1
PRINT #1, "Данная программа решения задачи, была написана и решена в среде"
PRINT #1, "программирования Visual Basic"
PRINT #1, "Ток Межмолекулярного Взаимодействия (ТМВ). Пример разчёта по теории."
PRINT #1, "для молекулы органического полимера H648C570O364 и молекул воды H2O,"
PRINT #1, "которые могут в определённом количестве, находится внутри неё"
PRINT #1, ""
PRINT #1, " Размеры и соотношения молекул органического полимера H648C570O364 и"
PRINT #1, " воды H2O"
PRINT #1, ""
PRINT #1, " Диаметр молекулы воды H2O = 0.35 нм"
PRINT #1, " Диаметр молекулы органического полимера H648C570O364 = 4.65 нм"
PRINT #1, " R C560 = 2.325 нм"
PRINT #1, " Траектория движения H2O внутри H648C570O364 = 1.275 нм * 3 (отрезки A-B-C) ="
PRINT #1, " = 3.825 нм"
PRINT #1, " (общая протяжённость отрезков)."
PRINT #1, " Длина одного отрезка, траектории теплового движения молекулы H2O = 1.275 нм"
PRINT #1, " (r1 H2O = 1.275 нм)"
PRINT #1, ""
PRINT #1, " _"
PRINT #1, " Согластно, фурмуле v = SQR(3kT/m) обычная средняя квадранитическая"
PRINT #1, " скорость теплового движения молекулы органического полимера H648C570O364"
PRINT #1, " (при T 273 K (0`C))"
PRINT #1, " составляет 12 м/сек, а молекул воды H2O (при той же температуре) 900 м/сек"
PRINT #1, " Поэтому, частоту колебаний молекулы воды H20 внутри молекулы H648C570O364"
PRINT #1, " находим так:"
PRINT #1, " w1 = v/r1 = 900 м/сек / 1.275 нм = 2.337E-11 Герц"
PRINT #1, "900 / .000000001275 = "; 900 / .000000001275#; "Герц"
PRINT #1, ""
PRINT #1, " Условия задачи:"
PRINT #1, " Найти свойства Тока Межмолекулярного Взаимодействия (ТМВ) для молекул,"
PRINT #1, " органического полимера H648C570O364 и воды H2O"
PRINT #1, " Дано:"
PRINT #1, " m H648C570O364 = 13 312 о.а.м. = 2.2D-23 кг"
PRINT #1, " (1.66D-27 кг * 13 312 о.а.м. = 2.2D-23 кг)"
PRINT #1, " F (m H648C570O364) = 2.2D-22 Н"
PRINT #1, " k(T 273 K) = 1.38D-23 Дж * 273 K = 3.76D-21 Дж"
PRINT #1, " d H2O = 0.35 нм"
PRINT #1, " R H648C570O364 = 2.325 нм"
PRINT #1, " d H648C570O364 = 4.65 нм"
PRINT #1, " w1 = 7.05822E-11 Герц"
PRINT #1, ""
PRINT #1, " Решение:"
PRINT #1, " y^ = F(m) / k(T) * w ="
PRINT #1, " = 2.2D-22 * 273 * 7.05822E-11 = "; 2.2D-22 * 273 * 7.05822E-11
PRINT #1, "2.2D-22 / 4.24D-19 = "; 2.2D-22 / 4.24D-19; "y^"
PRINT #1, ""
PRINT #1, "Расчёт высоты отклонения траектории теплового движения молекулы"
PRINT #1, "органического полимера H648C570O364 , за счёт колебаний десяти"
PRINT #1, "молекул H2O внутри неё"
' Расчёт высоты отклонения траектории теплового движения молекулы"
' органического полимера H648C570O364, за счёт колебаний десяти молекул H2O
' внутри неё:
PRINT #1, " Qx = SQR(k(T) / F(m)) ="
PRINT #1, "= 3.76D-21 Дж * 3.76D-21 Дж * 3.76D-21 Дж * 3.76D-21 Дж * 3.76D-21 Дж * 3.76D-21 Дж * 3.76D-21 Дж * 3.76D-21 Дж * 3.76D-21 Дж * 3.76D-21 Дж / 2.2D-22 Н ="
PRINT #1, "= "; 37.6 * 37.6 * 37.6 * 37.6 * 37.6 * 37.6 * 37.6 * 37.6 * 37.6 * 37.6 / 2.2; "Число из которого извлекаем корень"
PRINT #1, SQR(2567176000000000#); "Корень из 2567176000000000"
REM PRINT SQR(3.76D-21 * 3.76D-21 * 3.76D-21 * 3.76D-21 / 2.2D-22)
PRINT #1, " h1 = R * Qx ="
PRINT #1, " = 1.275 нм * 50667307 = "; 1.275 * 50667307; "нм"' 1.275 нм * 50667307
PRINT #1, ""
PRINT #1, "Определение разгонной скорости теплового движения для молекулы H648C570O364, при"
PRINT #1, "температуре 273 K (0` C):"
PRINT #1, " h1 * w1 = v(x) ="
PRINT #1, " = .0646 метра * 7.05822E-11 Герц = "; .0646 * 7.05822E-11; "м/сек" ' 1.215 микрон * 7.05822E-11 Герц
PRINT #1, ""
PRINT #1, " Определение длины волны траектории теплового движения молекулы H648C570O364, при"
PRINT #1, " десяти молекулах H2O, находящийся внутри неё:"
PRINT #1, " Jx = v(x) / y^ ="
PRINT #1, "= 4559610000000 м/сек / .00051887 = "; 4559610000000# / 5.188700000000001D-04; "нм "' 4 559 610 000 км/сек / 0,00051887 y^
PRINT #1, ""
PRINT #1, " Путь свободного прохода молекулы H648C570O364 составляет:"
PRINT #1, " S(x) = Jx * w ="
PRINT #1, " = 8787576849692600 м * 7.05822E-11 Герц = "; 8787576849692600# * 7.05822E-11; "км/сек"' 8787576849692600 м * 7.05822E-11 Герц
PRINT #1, ""
PRINT #1, "Определение частоты звуковой волны, возникающей при столкновении"
PRINT #1, "молекулы H648C570O364 с простой молекулой в жидкости или газе:"
PRINT #1, " w2 = v / h1 ="
PRINT #1, " = 330 м/сек / 0.0646 м = "; 330 / .0646; "Герц" ' 330 м/сек / 0.0646 м"
PRINT #1, "": PRINT ""
PRINT #1, "Ответ:"
PRINT #1, " h1 = "; 6.46; "см "; "v(x) = "; 4.55961E-09; "км/сек"
PRINT #1, " Jx = "; 8.78758; "мм "; "S(x) = "; 620246.5; "км/сек"
PRINT #1, " w2 = "; 5108.359; " Герц"
PRINT #1, " Jx = v(x) / y^ ="; 8787576849692600#; "нм "
'Прослушка звукового сигнала, с данной частотой
SOUND 5108.359, 30
CLOSE
'-- More --
'Press any key to continue
End Sub
