سورس ها و آموزش هاي Maple

[sara_731]

سلام خیلی از شما ممنونم که به سوالات من جواب می دین.
وقتی که من g:=sin2x به شکل g:=sin(2x) تعریف می کنم ارور میده نمی دونم چرا ؟؟؟؟
کل برنامه این شکلیه که می خوام تو زمانهای 0و1.1.5و2و2.5و3 شکل تارمرتعش به ازای x از 0 تا پی بکشم که نمی شه نمودار خالی می کشه

f:=k((Pi/2)^4-(x-Pi/2)^4);
                     /                   4\
                     |1    4   /    1   \ |
                    k|-- Pi  - |x - - Pi| |
                     \16       \    2   / /
g:=sin2x;
                             sin2x
lambda[n] := c*n*Pi/L;
                             c n Pi
                             ------
                               L   
c[n]:=(2/L)*int(f*sin(n*Pi*x/L),x=0..L);
                       2 f (cos(n Pi) - 1)
                     - -------------------
                              n Pi        
d[n]:=(2/L*lambda[n])*int(g*sin(n*Pi*x/L),x=0..L);
                    2 c sin2x (cos(n Pi) - 1)
                  - -------------------------
                                L            
L:=Pi;
                               Pi
k:=1;
                               1
c:=1;
                               1
g:=sin2x;
                             sin2x
lambda[n] := c*n*Pi/L;
                               n
c[n]:=(2/L)*int(f*sin(n*Pi*x/L),x=0..L);
                       2 f (cos(n Pi) - 1)
                     - -------------------
                              n Pi        
d[n]:=(2/L*lambda[n])*int(g*sin(n*Pi*x/L),x=0..L);
                     2 sin2x (cos(n Pi) - 1)
                   - -----------------------
                               Pi           
u:=sum((c[n]*cos(lambda[n]*t)+d[n]*sin(lambda[n]*t))*sin(n*Pi*x/L),n=1..40);
       /4 f cos(t)   4 sin2x sin(t)\       
       |---------- + --------------| sin(x)
       \    Pi             Pi      /       

            /4 f cos(3 t)   4 sin2x sin(3 t)\         
          + |------------ + ----------------| sin(3 x)
            \    3 Pi              Pi       /         

            /4 f cos(5 t)   4 sin2x sin(5 t)\         
          + |------------ + ----------------| sin(5 x)
            \    5 Pi              Pi       /         

            /4 f cos(7 t)   4 sin2x sin(7 t)\         
          + |------------ + ----------------| sin(7 x)
            \    7 Pi              Pi       /         

            /4 f cos(9 t)   4 sin2x sin(9 t)\         
          + |------------ + ----------------| sin(9 x)
            \    9 Pi              Pi       /         

            /4 f cos(11 t)   4 sin2x sin(11 t)\          
          + |------------- + -----------------| sin(11 x)
            \    11 Pi              Pi        /          

            /4 f cos(13 t)   4 sin2x sin(13 t)\          
          + |------------- + -----------------| sin(13 x)
            \    13 Pi              Pi        /          

            /4 f cos(15 t)   4 sin2x sin(15 t)\          
          + |------------- + -----------------| sin(15 x)
            \    15 Pi              Pi        /          

            /4 f cos(17 t)   4 sin2x sin(17 t)\          
          + |------------- + -----------------| sin(17 x)
            \    17 Pi              Pi        /          

            /4 f cos(19 t)   4 sin2x sin(19 t)\          
          + |------------- + -----------------| sin(19 x)
            \    19 Pi              Pi        /          

            /4 f cos(21 t)   4 sin2x sin(21 t)\          
          + |------------- + -----------------| sin(21 x)
            \    21 Pi              Pi        /          

            /4 f cos(23 t)   4 sin2x sin(23 t)\          
          + |------------- + -----------------| sin(23 x)
            \    23 Pi              Pi        /          

            /4 f cos(25 t)   4 sin2x sin(25 t)\          
          + |------------- + -----------------| sin(25 x)
            \    25 Pi              Pi        /          

            /4 f cos(27 t)   4 sin2x sin(27 t)\          
          + |------------- + -----------------| sin(27 x)
            \    27 Pi              Pi        /          

            /4 f cos(29 t)   4 sin2x sin(29 t)\          
          + |------------- + -----------------| sin(29 x)
            \    29 Pi              Pi        /          

            /4 f cos(31 t)   4 sin2x sin(31 t)\          
          + |------------- + -----------------| sin(31 x)
            \    31 Pi              Pi        /          

            /4 f cos(33 t)   4 sin2x sin(33 t)\          
          + |------------- + -----------------| sin(33 x)
            \    33 Pi              Pi        /          

            /4 f cos(35 t)   4 sin2x sin(35 t)\          
          + |------------- + -----------------| sin(35 x)
            \    35 Pi              Pi        /          

            /4 f cos(37 t)   4 sin2x sin(37 t)\          
          + |------------- + -----------------| sin(37 x)
            \    37 Pi              Pi        /          

            /4 f cos(39 t)   4 sin2x sin(39 t)\          
          + |------------- + -----------------| sin(39 x)
            \    39 Pi              Pi        /          
t:=0;
                               0
u:=sum((c[n]*cos(lambda[n]*t)+d[n]*sin(lambda[n]*t))*sin(n*Pi*x/L),n=1..40);
4 f sin(x)   4 f sin(3 x)   4 f sin(5 x)   4 f sin(7 x)
---------- + ------------ + ------------ + ------------
    Pi           3 Pi           5 Pi           7 Pi    

     4 f sin(9 x)   4 f sin(11 x)   4 f sin(13 x)   4 f sin(15 x)
   + ------------ + ------------- + ------------- + -------------
         9 Pi           11 Pi           13 Pi           15 Pi    

     4 f sin(17 x)   4 f sin(19 x)   4 f sin(21 x)
   + ------------- + ------------- + -------------
         17 Pi           19 Pi           21 Pi    

     4 f sin(23 x)   4 f sin(25 x)   4 f sin(27 x)
   + ------------- + ------------- + -------------
         23 Pi           25 Pi           27 Pi    

     4 f sin(29 x)   4 f sin(31 x)   4 f sin(33 x)
   + ------------- + ------------- + -------------
         29 Pi           31 Pi           33 Pi    

     4 f sin(35 x)   4 f sin(37 x)   4 f sin(39 x)
   + ------------- + ------------- + -------------
         35 Pi           37 Pi           39 Pi    
with(plots):
plot(u,x=0..L);
Warning, expecting only range variable x in expression 4*f/Pi*sin(x)+4/3*f/Pi*sin(3*x)+4/5*f/Pi*sin(5*x)+4/7*f/Pi*sin(7*x)+4/9*f/Pi*sin(9*x)+4/11*f/Pi*sin(11*x)+4/13*f/Pi*sin(13*x)+4/15*f/Pi*sin(15*x)+4/17*f/Pi*sin(17*x)+4/19*f/Pi*sin(19*x)+4/21*f/Pi*sin(21*x)+4/23*f/Pi*sin(23*x)+4/25*f/Pi*sin(25*x)+4/27*f/Pi*sin(27*x)+4/29*f/Pi*sin(29*x)+4/31*f/Pi*sin(31*x)+4/33*f/Pi*sin(33*x)+4/35*f/Pi*sin(35*x)+4/37*f/Pi*sin(37*x)+4/39*f/Pi*sin(39*x) to be plotted but found name f