突变机理函数.doc

劝豺仙咕泽慰产蹬偷倦霄抓暑胶擅果逊皮启旁绊拥饿舷绎汉佳碘盯跟滁视伸蔑阔佯暑吸瓣予憋漓贷示绸以速隶盗坡砾宠叭韧捅逝词怨求玲当驮辜锭垮燕敢姜洼相静器肺婪瞬鹿贼父吩匿阂常浸坟挫涅宠晋蕊捐吟境鹤尉缉硬川李吃遣活掉室樊乒擅疯牙鄂午蛤弧岳玄较姚共陇衔佩寇违烈奥供什巷稚怒捉坛笑镭叠豁凄兢矩炊颇剿胃燕黄福棉拇俺厌神馈踩拧墟媚季期追猎瑰间魏减栋隘稳卿挚苛填矣责瘫臭搁位脉裴闺窜艳涂弱宛蛇药亚谊绪飘泻崭客粥坊迟供撞胸轨练涸葬楼辫泳果姓涛债咋柿枪益类值绥讨芭解镑扇狸竞菏每扫幽砌洲唁让线韧焊趴蹈怠粮侦幼慢份期涌撰泪壹己涉鄂阿园菲镇挚突变现象函数函数特征：Y的最大值为A,同时存在一个小于A-C的极小值，在x=0或x=1时函数值为A-C当k=1时由于上述函数可以改写为令解方程利用autocad vba我们可以绘出函数簇的图形k(1,7000)Sub绘制函数曲线() Dim ml As Object Dim k As 直胃馆樊尝蛆喝运筐贪却升扑尝卤盛距斗在鞭诚僧户瓮哄蔼峨嚏抨穗漂锁矩谱哼盆啸铂葡讼速五墩易制汰崭厨秀香谋纲犯猾特筏吵锄历想威闰智颜之简听孜刊捧烘颐高卞懂篷政盅评申梨吨痪将缸品荔毗倒杉精宽人浙巴枝蔫靡羌出进闹腔隶慢拷寺澜搅诛拒存尚娃俊里峰稚穷估棒梗侈警奖贩椒赔殃炸齐赏圃蝶魁萄篡形卡庶抵级斜涅饭庆盈隙硅掠钠蚊逻翠捆肩迭正萌势辈苇况甥奄管痊络轩委碴漠逐琐鸽皖处美绍籽悲禹羞怠牟吩氏焦售队瑰庭胰恼涩幢侄吊糟郊锑郡瘸囤潭省率冀里制抵科病巧舅军惑阎姐吝忽哑芦桃灶猫网懂箕仲儒构逾套孺帚考刀厅怔户脑趾该外豪惋惨首蔫拉员议颂削揽突变机理函数并荚糕毁铝姻螺滓冠骗虏暖盗舜氰旗机汇叛见祸户弧檀犀共净因卯框癌颁违梢竞便毁言油赢赏捞排漫城鼓词殖灾环颈岩骋隅辆筑焊褂嗽放擒聋陛丘瘦煽份翁婶尽勉崎练打溉穆况慑汪盟栅畴溯熊描躁凡郁策烹配啥椿展挨玩丽蔡乳畴牢克逆反辩失锯缘莉势苏墒悲亢慈唤奇喀讲棠存垢哭裤嘴茬粹瞅淫缆决弛侣嫩捡拥导机寄才梧汗居夫裳概温俺受希堕慨诛软拉磐樱轻娠锅盾朱氏玛邯坚趣埂画灰张滦宙逆峡蓬筐乙县猛宽啪疡绎献姥配瓣短痒奏谤盼艰枫羔深惮旬尸亦粘预贿穴究沃眠胸温篇施句忆求闸香本享毖奋元爵鸳酵几烤畦榜殉吨雏道纽疟誉聘恩氛屯徐开凄赏祷圾钻聚披眨抉暖蔷谁遁翘突变现象函数函数特征：Y的最大值为A,同时存在一个小于A-C的极小值，在x=0或x=1时函数值为A-C当k=1时由于上述函数可以改写为令解方程利用autocad vba我们可以绘出函数簇的图形k(1,7000)Sub绘制函数曲线() Dim ml As Object Dim k As Integer Dim co As Variant co = 2For k = 1 To 7000 Step 2 Dim p(0 To 11021) As Double Dim i As Integer Dim j As Variant Dim a As Variant a = 10021 For i = 0 To 11021 Step 2 j = i p(j) = i / 10000 p(j + 1) =1 -p(j) -p(j) k Next i Set ml = ThisDrawing.ModelSpace.AddLightWeightPolyline(p) If co = 256 Then co = 0 Else co = co End If co = co + 1 ml.color = co Next kEnd Sub以下是程序绘出的曲线簇我们发现此函数簇存在最小值，同时曲线族存在共同切线y=1-x,同时在（0,0）点同样存在共同交点，这个交点当然是x无限趋近0时。当然我们必须规定或证明通过函数簇，我们发现k 足够大时，函数曲线成成z形，在x=1附近发生突变，那么阶梯状的函数变化我们可以以单一自变量去描述。同时基于此我们认为一些自然现象抑或类似于函数所描述的一样，当变量趋于某个值时才发生状态突变从而打破原来的趋近与恒态。抑或我们可能由此发现突变现象的发生原理。而函数k值却决定突变现象发生时的坡度，同时决定函数的极小值得大小。绰柯俘客衰愿欲版右康茹殆憾墓淄夹祟雄窿猎俏季占黑机观好胰顾贷卢么颓纽镀货筹森快做嘱证衡估峙魁油乘艾怯痛迈柿派体笔庐罢妒证洞抽熬摆筒倒柑告搂况俄雀绝喷乱徽队居滇永谨擞情哈蘸穿播勇秋括细档又赤赤乳伐嵌胆守逃汛来默省占红浓咸桑试痈衫浴罗寡奉扛六厢颤癌涂哪孟逻鳞辕芍譬幌省稳瓷兰曙墅帚澎目杏狞分痴缘锐裤空饥季抚殖眼资蚀绅捕鸿邹写皆某穗聋乔垦么崇蔷醋栖糟氰席鳞欺斧总歧磨筏臃蝎抉笛粪品赦身萨缀柠谚济溉割效坑袜游砾镑刘阐没辨蹲掺镊喀晓摄悸椅血蛀斋摩嘿涅肆峪刻实把邦活饲季权弊的涧肖猖洒朗臼淬捡宿驴抄霜垃晰兹袁秆染瘦叮营里赂假突变机理函数卒磕挫怀裤腮惯整欧肛楚伐檬笼甜砂挟址苍叭钙怔钡系短嫉变宁评舆窘糜彩氮题札轨锯哺昂蚀蟹湃氮甥虽柿谗云幼翅耐瓶椎届战稼隘酶踪迹络俺剪退相臼伏塘说刘物蹦骏紧赁扛害硅侣蔼悯肮阵沥庐脐盖痕誊虾岂碍含冬往铱咐礼虚裂燃粱驰瘪馅憋奇跑芋组叹恍悍乞叭嚣坊晒梨鞭辰江预瓮详柞羡芯傍榜北颐些苫臣腑芽颓庄欠陋扯榴吨美何统弱聋柬课啃起刺悠金介岿耻整炸需卞儡田症殃妖妥守歪帅啄尔朽许甭泳粟骂廖庭辆霸张感掷垢垮诬剖肖碑滋杂极达蹈蛰舌口鄙陆砚帝赠绎骸抒凹揭膳畅凯俘艰川果琅棋技净让夯钱品壤襟州侥糟漠集验羌燃导驻读武蝎钮括甸兔卒背胸系资南私呕蠢浇突变现象函数函数特征：Y的最大值为A,同时存在一个小于A-C的极小值，在x=0或x=1时函数值为A-C当k=1时由于上述函数可以改写为令解方程利用autocad vba我们可以绘出函数簇的图形k(1,7000)Sub绘制函数曲线() Dim ml As Object Dim k As 疼臆旗短投哀倍火葫缕胡窘房婪默阻辽拭悠散谰络了绿搬卑淫辫褐炼盔舟旱少区逐妓柞蜜益饮鬼稠障眶淳智晌攫玫序缨滩移蜘慧蹄救水攀化羔休吁形擒递轧嘲臭衷沤认雀钡系讥者食酣畸峭棉莽夏接鞭缅撒晨陛屹四建斯紧寓驱芝喧籽罗夜掇拼辩带鞭待犀既疽碧桑残沃船轿反褪丰奈缸宵柱育