孕妇梦见烂花菜但没买，也梦见西红柿和青菜，都没买

　　3.3 计算编程3.3.1 编程思想在前面的章节中，详细推导并得到了研究所需要的一个线性方程组。但要真正运用这个方程组却并不容易。我们必须解决下面几个问题：（1） 公式中出现了矩阵函数的运算，然而此函数的运算是非常繁琐复杂的。（2） 如果只有单个的矩阵函数，那么或许手算还有可能。然而，如前所述，为了得到关于纤维束的更多信息，我们有必要将纤维是划分为多段。这样一来，我们面临的是很多矩阵函数，此时是根本无法手算的。（3） 根据纤维束之间交联的具体情况，需要给出相应的纤维间相互作用矩阵。（4） 线性方程组的边界条件需要根据结构具体的边界条件加以确定。考虑上面的问题，结合MAPLE软件，本文有了下面的编程思想：（1） 输入基本参数。（2） 输入纤维间相互作用矩阵（不同的分段可能有不同的相互作用矩阵，矩阵应该与分段一一对应）。（3） 计算分段矩阵构成的矩阵函数，将其转化为一般的矩阵。（4） 将（3）中计算所得的矩阵按照顺序相乘，从而得到线性方程组的系数矩阵。（5） 引入整个结构的边界条件。（6） 求解线性方程组，从而可以获得整个结构左右两端全部八个量（位移与纵向应力）。（7） 应用分段法，由（6）中所解得的未知量，构成新的边界条件。运用循环，求出每个分段处的位移与纵向应力。（8） 将所得数据输出为文档，利用MAPLE的绘图功能，绘制相关的曲线图。3.3.2 编写程序根据前述编程思想，利用MAPLE，下面给出具体的程序。内容分为两部分。第一部分为符号说明，第二部分为具体的MAPLE程序。此程序将前文所提的纤维数均分为多段，段内或含有交联，或不含有交联，以此可模拟交联的分布，亦可计算纤维分段上更多的力学参数。（1） 符号说明E：碳纳米管的弹性模量；L：碳纳米管的长度；R：碳纳米管的半径；Mu：碳纳米管间的剪切模量；K：碳纳米管间的相互作用系数；Sigma：施加的外力；A1、A2：碳纳米管间的相互作用矩阵；DL：分段的长度；B1、B2：矩阵函数转化为一般矩阵；JL：分段共价交联的信息；C：线性方程组系数矩阵；（2） 详细程序E := .46*10^12;L := 19.84*10^(-6);R := 1.5*10^(-6);Mu := .24*10^12;d := 3*R;k := mu/(R^2*ln(d/(2*R)+sqrt(d^2/(4*R^2)-1)));sigma := 10*10^9;A1 := Matrix(4, 4, [[0, k, 0, -k], [1/E, 0, 0, 0], [0, -k, 0, k], [0, 0, 1/E, 0]]);A2 := Matrix(4, 4, [[0, 0, 0, 0], [1/E, 0, 0, 0], [0, 0, 0, 0], [0, 0, 1/E, 0]]);with(LinearAlgebra);DL:= (1/100)*L;B1 := MatrixFunction(A1*DL, exp(x), x);B2 := MatrixFunction(A2*DL, exp(x), x);JL := readdata("D:\\编程\\应力分布与位移分布的研究\\均匀分布\\JL.txt”,1 )C := Matrix(4, 4, [[1, 0, 0, 0], [0, 1, 0, 0], [0, 0, 1, 0], [0, 0, 0, 1]]):for i from 1 by 1 to 100 doif JL[i] = 1 thenC := B1 . CelseC := B2 . Cend ifend do:XS := evalf(C):Y := Vector[column](4, [t10, 0, 0, u20]):M := evalf(XS . Y):eqns := {0 = M[1], sigma = M[3], u110 = M[2], u210 = M[4]}:sols := evalf(solve(eqns, {t10, u110, u20, u210})):Y[1] := op(2, op(1, sols))：Y[4] := op(2, op(3, sols))：XSBL := Matrix(4, 4, [[1, 0, 0, 0], [0, 1, 0, 0], [0, 0, 1, 0], [0, 0, 0, 1]]):Z := Vector[column](4, [0, 0, 0, 0]):for i from 1 by 1 to 100 doIf JL[i]=1 thenXSBL:=B1.XSBL;elseXSBL:=B2.XSBL;end if;M := evalf(XSBL . Y);eqns := {z1 = M[1], z2 = M[2], z3 = M[3], z4 = M[4]};sols := evalf(solve(eqns, {z1, z2, z3, z4}));Z[1] := op(2, op(1, sols));Z[2] := op(2, op(2, sols));Z[3] := op(2, op(3, sols));Z[4] := op(2, op(4, sols));YL1 := array([[i*DL, Z[1]]]);writedata[APPEND]("D:\\编程\\应力分布与位移分布的研究\\均匀分布\\YL1.txt",YL1 );YL2 := array([[i*DL, Z[3]]]):writedata[APPEND]("D:\\编程\\应力分布与位移分布的研究\\均匀分布\\YL2.txt”,YL2 );WY1 := array([[i*DL, Z[2]]]);writedata[APPEND]("D:\\编程\\应力分布与位移分布的研究\\均匀分布\\WY1.txt",WY1);WY2:=array([[i*DL,Z[4]]]);writedata[APPEND]("D:\\编程\\应力分布与位移分布的研究\\均匀分布\\WY2.txt",WY2);If i=1 thenQYL1 := array([[i*DL, Z[1]-Y[1]]]);writedata[APPEND]("D:\\编程\\应力分布与位移分布的研究\\均匀分布\\QYL1.txt",QYL1 );QYL2 := array([[i*DL, Z[3]-Y[3]]]);writedata[APPEND]("D:\\编程\\应力分布与位移分布的研究\\均匀分布\\QYL2.txt",QYL2G);next end if;XSBL2 := Matrix(4, 4, [[1, 0, 0, 0], [0, 1, 0, 0], [0, 0, 1, 0], [0, 0, 0, 1]]);for j from 1 by 1 to i-1 doif JL[j]=1 thenXSBL2 := B1 . XSBL2;ElseXSBL2 := B2 . XSBL2;end if;end do;MM := evalf(XSBL2 . Y);eqns := {qz1 = MM[1], qz2 = MM[2], qz3 = MM[3], qz4 = MM[4]};sols := evalf(solve(eqns, {qz1, qz2, qz3, qz4}));QZ[1] := op(2, op(1, sols));QZ[2] := op(2, op(2, sols));QZ[3] := op(2, op(3, sols));QZ[4] := op(2, op(4, sols));QYL1 := array([[i*DL, Z[1]-QZ[1]]]);writedata[APPEND]("D:\\编程\\应力分布与位移分布的研究\\均匀分布\\QYL1.txt",QYL1);QYL2 := array([[i*DL, Z[3]-QZ[3]]]);writedata[APPEND]("D:\\编程\\应力分布与位移分布的研究\\均匀分布\\QYL2.txt",QYL2 );end do:YL1 := readdata("D:\\编程\\应力分布与位移分布的研究\\均匀分布\\YL1.txt6",YL1 );YL2 := readdata("D:\\编程\\应力分布与位移分布的研究\\均匀分布\\YL2.txt",YL2) ;QYL1 := readdata("D:\\编程\\应力分布与位移分布的研究\\均匀分布\\QYL1.txt",QYL1) ;QYL2 := readdata("D:\\编程\\应力分布与位移分布的研究\\均匀分布\\QYL2.txt",QYL2);WY1 := readdata("D:\\编程\\应力分布与位移分布的研究\\均匀分布\\WY1.txt" ,WY1) ;WY2 := readdata("D:\\编程\\应力分布与位移分布的研究\\均匀分布\\WY2.txt",WY2);plot(YL1);plot(YL2);plot(QYL1);plot(QYL2);plot(WY1);plot(WY2);plot([YL1, QYL1]);plot([YL2, QYL2]);

梦见朋友买热水器,自己没买

　　梦见朋友买热水器的周公解梦：吉凶指数：85（由佛滔居士数理文化得出，仅供参考）无论你的梦里出现的是宁静的湖水、滴流的小溪、狂怒的河流、平静的海洋；梦中的水总是喻示着生命的精华，代表了精神的洗礼和重生。一旦你的生活变得复杂，你就有可能梦见自己遇水溺死；湖水象征着你想要尽快从烦乱的生活中挣脱出来，渴望过上宁静安稳的生活。梦见有朋友来玩，异性运上升。将有新的浪漫史产生。爱情战的武器，不外乎是电话。最幸运的黄金时段将是晚上八点到九点。梦见朋友买热水器，这两天发了工资，逛街看到好多可爱的化妆品，不过自己还有没用完的，想想算了，给男朋友买条爱心围巾，给妈妈买件上衣，给爸爸买双皮鞋吧。礼物送到，心里感觉好舒心啊。

梦见和朋友去商场买糖块

　　梦见和朋友去商场买糖块的梦境解释： 　　这两天就想赖在家里，如果和朋友情人有约会，彼此的家里，是相当不错的地点选择。如果一个人待在家里，动手整理打扫、妆点美化居家小窝，怎样都能自得其乐。这两天说话需要留意细节正确与否，以免造成不诚恳或不可信任的印象。 　　梦见和朋友去商场买糖块的吉凶： 　　一鼓作气，勇猛奋斗，运势浩盛，容易成功达到目的，功名成就，若原命喜火之人，妙能以此之名更加两倍以上之辉煌成就，然若凶数则欠人助，以自力奋斗，也易招孤苦失意，令人可惜。【大吉昌】

梦见和朋友去商场买糖块

　　梦见和朋友去商场买糖块的梦境解释： 　　这两天就想赖在家里，如果和朋友情人有约会，彼此的家里，是相当不错的地点选择。如果一个人待在家里，动手整理打扫、妆点美化居家小窝，怎样都能自得其乐。这两天说话需要留意细节正确与否，以免造成不诚恳或不可信任的印象。 　　梦见和朋友去商场买糖块的吉凶： 　　一鼓作气，勇猛奋斗，运势浩盛，容易成功达到目的，功名成就，若原命喜火之人，妙能以此之名更加两倍以上之辉煌成就，然若凶数则欠人助，以自力奋斗，也易招孤苦失意，令人可惜。【大吉昌】

梦见田里很多青菜秧

　　梦见田中插秧则家中将有祸事。 梦见拔秧苗预示家中祸害已规避掉了。 屋上生禾官位吉。 梦见禾丰熟富贵长。

梦见豆芽和青菜有根是什么意思

　　此梦预示近期有喜事了

梦见朋友买床抬床回家

　　梦见买床，表示梦者希望回归母亲怀中尽情享受梦见新铺好的床，暗示做梦人心中将重新考虑某些问题，或从新的角度去考虑旧有观念和意识。

梦见煮青菜？

　　梦见吃青菜，朋友运将下降。在一群好友中将会产生纷争，这时最需要的是你冷静的判断力。梦见蔬菜，会小病一场。梦见买菜，会成为一个著名的革命家。梦见向别人分发蔬菜，所在地要出现流行病。梦有人抢夺手里的蔬菜，将要发生不幸事故，身体受伤。

梦见拔青菜

梦到拔青菜，运势不错，遇到很多的事情，自己将会很快的处理好。

出游者梦到拔青菜，运势不佳，不适合出门旅行，途中将会遇到不开心的事情。

已婚者梦到拔青菜，运势不错，双方之间的误会，很快就会化解，感情比之前还好。

老人梦到拔青菜，运势不错，不再觉得那么孤单寂寞，因为子女时常回来陪伴。

商人梦到拔青菜，运势不佳，之前生意都很好，之后就出现很多的亏损。

梦到拔青菜的相关梦境

梦到吃青菜，朋友运将下降。在一群好友中将会产生纷争，这时最需要的是你冷静的判断力。

梦到洗青菜，外出时会遭强盗袭击。

女人梦到洗青菜，事事如意，喜气洋洋，但是不能因此而散漫，流连於欢乐场所，招致坏运与劳苦。小心小偷闯空门。

梦到拔青菜的网友梦例

网友梦境：梦到拔青菜是什么意思？

周公解梦：运势不错，遇到很多的事情，自己将会很快的处理好。

梦见和朋友逛街买衣服是什么意思啊

　　没什么意思的，梦的解说说不科学，没有根据性的，只要天天开心生活就好了，卤煮不要想太多