均匀流绕圆柱体

均匀流绕圆柱体
几何画板及绘图内容加载中,请稍等……
2016-09-05 20:39
①本范例演示了均匀流绕圆柱体的流体动力学现象;②涉及的核心数学概念包括向量场、偏微分方程、数值积分和几何变换;③作图要点使用了Textfield, Element, SolveODE, Circle, Sequence等GeoGebra命令和对象;④适合高中及以上学生或用于流体力学教学演示。

GeoGebra 命令及参数

  1. Textfield(F) → InputBox1
  2. Textfield(G) → InputBox2
  3. Element(list1, opacity) → LL
  4. SolveODE(G, F, x(B), y(B), 9, 0.05) → numericalIntegral1
  5. SolveODE(G, F, x(B), y(B), -9, 0.05) → numericalIntegral2
  6. Circle((0, 0), 1) → g
  7. Sequence(Sequence[Vector[(j, k), (j + (scale * F(j, k)), k + (scale * G(j, k)))], j, xmin, -1, xstep], k, ymin, ymax, ystep) → Field01, {{(0.3361342353368313, -0.015800148645448875), (0.33864928380556814, -0.019842025697613952), (0.3434653702456192, -0.024123415017290206), (0.35154824814447894, -0.027306553889026475), (0.36297643740451324, -0.026728027027382417)}, {(0.332727098175464, -0.0168486766571041), (0.3344518790149644, -0.022420387483553128), (0.3390071275075819, -0.029354464987948248), (0.34860211327722945, -0.03638924470450622), (0.365164470956336, -0.03940983426475286)}, {(0.3284875723013445, -0.016982974420468366), (0.3285405333619509, -0.024044271513419035), (0.3313771810879991, -0.03427445895866277), (0.3409079014914673, -0.047630284983326554), (0.3635546562896983, -0.05946815435962072)}, {(0.32370304136975925, -0.01567822595133106), (0.32104583180535906, -0.023614424114328347), (0.3197924931730336, -0.03688826181216909), (0.32481805937131303, -0.058780325753877705), (0.350021210886436, -0.08941097831565381)}, {(0.31902007915909447, -0.01251590924353918), (0.3129094490863835, -0.0199209376277385), (0.3049624035064351, -0.03397721857447711), (0.29740624500391943, -0.06274894680219001), (0.30657840615636545, -0.12328899540227867)}, {(0.31538761719923647, -0.007465320302326495), (0.30606356538714374, -0.012369079395862626), (0.29068274057922006, -0.022583578915317704), (0.2636793864489304, -0.047371187173817386), (0.2170337283722401, -0.12190420706292349)}, {(0.31374935273637083, -0.0011040572996778575), (0.30282362011023123, -0.0018615825251114826), (0.28334086624470256, -0.003505450635086574), (0.24334548536181289, -0.007823624254291756), (0.13955982699488634, -0.02346798913906209)}, {(0.31458877560731, 0.005463210105667082), (0.30449557028337004, 0.009129822742400984), (0.2871769957272585, 0.01692183303935607), (0.25423429908760165, 0.036570881072032824), (0.1835400194521397, 0.10110702724632348)}, {(0.3176537063885756, 0.01104190354620016), (0.31038895752675, 0.017846562395162024), (0.2998978194429367, 0.0312279749125125), (0.2862926249882356, 0.06040994848649506), (0.28181296501841757, 0.13015598511867887)}, {(0.32210316154278473, 0.01485164744694445), (0.3183539665199113, 0.02280663260522009), (0.31514259597750804, 0.036715514084650236), (0.3170358551627095, 0.061419655173898136), (0.34016744959004175, 0.10108026023555183)}, {(0.32694386475984727, 0.01673637430684738), (0.3262148258951618, 0.024191385913495456), (0.3280009518236242, 0.035529833449495785), (0.33672249177825275, 0.05154230391537484), (0.3610480124489508, 0.06822925482226516)}, {(0.3314116365571844, 0.01701949257761992), (0.3326948732431858, 0.023109229071228032), (0.3368898825530233, 0.031084158155649355), (0.3467430529091837, 0.03990775347217568), (0.3653010469456113, 0.04506152416724385)}, {(0.3351065757134317, 0.016217186612961676), (0.3374402051891088, 0.02074633642120327), (0.34227736605255776, 0.02581379415330165), (0.35092623109918497, 0.030037928560882943), (0.36387635179923583, 0.030288191180853463)}}
  8. Sequence(Sequence[Vector[(j, k), (j + (scale * F(j, k)), k + (scale * G(j, k)))], j, 1, xmax, xstep], k, ymin, ymax, ystep) → Field02, {{(0.3694590212064992, 0.023869187681233583), (0.3570857501171876, 0.02769393865925851), (0.3471696935927757, 0.026033254912015913), (0.34077273577658396, 0.02207017005137768), (0.33720236752378874, 0.017807048314758767)}, {(0.37592813682463255, 0.037002311202924076), (0.3562281459717762, 0.03886066769855834), (0.34315402542454043, 0.03313005260821322), (0.33631751986370295, 0.02585081611861373), (0.33336760501435947, 0.019526461850037702)}, {(0.38169901114294724, 0.06032090880651153), (0.3504954238647078, 0.054576237376005476), (0.3350793816450297, 0.04086406618897476), (0.3294695860190453, 0.028866352773969206), (0.32831300826756094, 0.020269806995551365)}, {(0.37891738073490244, 0.1025421181959052), (0.33382368187284417, 0.07395952247749915), (0.32101859609795813, 0.04686694767537469), (0.32004551401699377, 0.02958092730940498), (0.32229199738553493, 0.019261292050784196)}, {(0.3384984327557785, 0.1714819594790884), (0.2975343663932952, 0.08849543715280461), (0.3006146739390405, 0.046110650504240125), (0.3090225556987871, 0.025967949915713606), (0.3161108755425155, 0.015771306203828495)}, {(0.19258368655728075, 0.2198299701979497), (0.24236414251993055, 0.07469581697763428), (0.2787651215909914, 0.032373180740660645), (0.29917209544699297, 0.016618101424005216), (0.31113518385799255, 0.00958005097812642)}, {(0.0057743011566924185, 0.05082417060483909), (0.203912963021895, 0.013092675468669282), (0.2667439005121093, 0.00515714818395599), (0.29433660147236296, 0.002535067664075602), (0.3088416482573533, 0.001428016212557226)}, {(0.11898185386222626, -0.19787751929169042), (0.22498371488207436, -0.059313926195683264), (0.2730903395776152, -0.02456352879092749), (0.2968455736033322, -0.012347200686427362), (0.31002059773332347, -0.007037954958635351)}, {(0.3056143684046877, -0.19633822152239144), (0.2805653098722025, -0.0885959683406945), (0.2931019254336622, -0.04324337850970006), (0.30545488663997755, -0.023530919845275777), (0.31425726205595295, -0.014011444479920532)}, {(0.3722969494435042, -0.12246023642618953), (0.3243932806263552, -0.08011055699968095), (0.3148887723811229, -0.04768623203481548), (0.31648481667384765, -0.028964620108792527), (0.320210932789041, -0.018409662253975112)}, {(0.382482550966164, -0.07162686149767783), (0.3466064460172329, -0.060749732692596314), (0.33117667659892636, -0.04322552867120577), (0.32662661038581886, -0.02945191184356899), (0.3264048386234304, -0.020170817238116312)}, {(0.3780922678383323, -0.04324095368111047), (0.35509484415681936, -0.04351894273813839), (0.341034497520746, -0.035683721360063814), (0.3343439132182975, -0.02699168008974251), (0.3318301018372152, -0.019915258754540144)}, {(0.37151509268839367, -0.027438727521245987), (0.35711134150240875, -0.030933588522980227), (0.3461763244789635, -0.028242281181785955), (0.3395320815588301, -0.023338481889509488), (0.33606999710648244, -0.018441785607377525)}}
  9. Sequence(Sequence[Vector[(j, k), (j + (scale * F(j, k)), k + (scale * G(j, k)))], j, -0.8, 0.8, xstep], k, ymin, -1, ystep) → Field04, {{(0.37362690831972173, -0.020726069164107574), (0.3818705403803236, -0.006712334925360608), (0.3807512384803111, 0.010274969387590094)}, {(0.3833499301285412, -0.03312042882835753), (0.3991738022328128, -0.011353631334866332), (0.3969361046954756, 0.017249818499833758)}, {(0.39570769587388815, -0.05672325623346408), (0.42968621896634895, -0.021444673745594), (0.4245362395919614, 0.03214894761283049)}, {(0.40611978507917074, -0.10500645918831841), (0.4906709485560633, -0.047903008898075194), (0.4760698343353059, 0.06988264312804526)}}
  10. Sequence(Sequence[Vector[(j, k), (j + (scale * F(j, k)), k + (scale * G(j, k)))], j, -0.8, 0.8, xstep], k, 1.27, ymax, ystep) → Field03, {{(0.4051723363774667, 0.13611901276494232), (0.5319746034083881, 0.0701657636231161), (0.5081818136413244, -0.1004402990805855)}, {(0.4006711091329372, 0.07151251305596795), (0.4482614114989863, 0.02865782877280343), (0.4407477610648327, -0.04261080120046645)}, {(0.38793303734453094, 0.040516724493151024), (0.40895149441384954, 0.01433619228656946), (0.40591146415147916, -0.021688648859857995)}, {(0.3770923301557504, 0.02471354959822536), (0.387610192889461, 0.008156936027608808), (0.3861625447009579, -0.012455355617809083)}}