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

　　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]);

西红柿代表什么吗？

　　西红柿代表什么我不知道，但是我知道有这样一个有关大学女生的说法：说大一的女生是石榴，比较害羞；大二的女生是水蜜桃，是最动人的；大三的女生是苹果，还是很受欢迎的；而大四的就是西红柿了，已经变成蔬菜了。

梦见住烂茅屋，而且是漏水的，代表什么？

　　解梦：仅供参考达成和解是解决问题的最好出路。没有办法做到的话，就要面临两败俱伤的惨痛局面了。因此，这两天对于你来说也是具有重要意义的一天，作为十二星你之中协调能力最强的星你，这两天行事的成败往往就在于你的一张嘴了！

梦见住烂茅屋，而且是漏水的，代表什么？

　　解梦：仅供参考达成和解是解决问题的最好出路。没有办法做到的话，就要面临两败俱伤的惨痛局面了。因此，这两天对于你来说也是具有重要意义的一天，作为十二星你之中协调能力最强的星你，这两天行事的成败往往就在于你的一张嘴了！

梦见西红柿生儿子了

　　梦见西红柿：预示运势不佳，梦者可能会孤苦伶仃，尝尽各种的苦头，要提前做好心理准备。

梦见地里大大的黄西红柿

　　梦见地里大大的黄西红柿，工作与学习皆顺利的一天。达成目标就差那麽一步了，困难艰深的任务在你的努力下有了让人欣慰的结局。而这两天的服饰色彩有决定性的效果，酒红色及紫色系的服饰最适合开启运势，约会或参加宴席也需注重上述颜色的搭配。不过健康方面手腕容易酸痛，请注重间隔一段时间需适当休息。

梦见我吃西红柿

　　知识豪杰，快来加入西红柿蔬菜团队吧，一起答疑助人，没你不行！团队地址：[

梦见钓到烂鱼

　　徒劳无功，最近有什么特大利好不要信，有什么便宜不要占，有人鼓动做生意什么的千万不要想

梦见蒸鱼,盘子烂

　　亲，压力太大了。

梦见茄子和西红柿

现代心理学解释梦见茄子和西红柿

梦见西红柿象征着红运当头，预示梦者的生活事业都将迈上一个新的台阶。

心理分析，西红柿是红色的，而红色是中国人们非常中意的颜色，是吉祥如意的象征。做梦见西红柿，从心理学角度看，预示梦者对美好生活的向往，希望自己的未来生活能够红红火火。

从精神学的角度看，西红柿象征着运气。

茄子多子，梦见茄子也可能预示着妻子会怀孕。梦见远行之前梦见断裂的茄子，必有凶险应中止计划。梦见吃茄子，预示身体健康，生活愉快。

心理分析，梦到吃茄子，运势有红的发紫之寓意。

精神层面上，茄子象征着热情奔放及生育。

梦见茄子和西红柿，会成为官员所喜欢的人物。

生意人梦见茄子和西红柿，主近期财运平淡，处处的投资观念倾向保守，虽然错失不少机会，但储蓄数字还是稳中有升。购物时也乐于在“货比三家”的劳累中获得省钱的乐趣。

毕业生梦见茄子和西红柿，求职运势普通，的想法不少，但是目标并不明确，往往抱着广撒网多捕鱼的心态，但是收效甚微。

中年人梦见茄子和西红柿，运势先凶后吉。好运气比坏运气晚来一些。凡事无法当场见效，马上成功。

梦见茄子和西红柿的案例分析

网友梦境：梦见茄子和西红柿是什么意思？

解梦解析：梦见茄子和西红柿，会成为官员所喜欢的人物。