枫图功能

Question

有谁知道如何在左上角绘制狄拉克函数和图片中给出的正弦函数。我设法轻松地绘制了第二个和第三个。您会使用分段函数来执行此操作，还是 Plot #1 和 #4 有简单的方法？非常感谢！

Arbitrary Excitations

Answer 1

如果这是家庭作业，那么我认为对于鼻窦示例，您被要求调查规模和移位的影响。

考虑这些情节，一个接一个。观察它们有何不同。首先，我将幅度（y 方向）缩放 10。然后我在 x 方向上缩放。最后我向 x 方向移动。

plots:-setoptions(size=[300,0.6],tickmarks=[decimalticks,default]):
plot( 10*sin( x ), x=0 .. Pi, view=[0..Pi, 0..18] );

plot( 10*sin( x*Pi ), x=0 .. 1, view=[0..1, 0..18] );

plot( 10*sin( x*Pi/0.3 ), x=0 .. 0.3, view=[0..1, 0..18] );

plot( 10*sin( (x-0.1)*Pi/0.3 ), x=0.1 .. 0.4, view=[0..1, 0..18] );

plots:-setoptions();

它可以看起来类似于您很容易链接到的图像中的第 4 个图。您可以尝试使用或不使用各种选项。

P:= plot( 10*sin( (x-0.1)*Pi/0.3 ), x=0.1 .. 0.4
          , axes=none
          , color=black
          , size=[300,0.7]
          , thickness=2
        ):

plots:-display( P
                , view=[0.0 .. 0.6, 0..18]
                , tickmarks=[[0.1,0.4],[10=10*N]]
                , axes=normal, labels=[`t[s]`,`F(t)`]
                , size=[300,0.6]
              );

并且通过更多的努力，它可以在视觉上更加接近。

plots:-display( P
            , plottools:-arrow([0,0],[0.6,0], 0.05, 0.9, 0.05)
            , plottools:-arrow([0,0],[0,16], 0.001, 0.02, 0.08)
            , plots:-textplot([0.6, -3.5, `t[s]`, font=["courier",16]])
            , plots:-textplot([0.0, 18, `F(t)`, font=["courier",16]])
            , seq(plots:-textplot([X, -1.5, X]), X=[0,0.1,0.4])
            , plots:-textplot([-0.05, 10, "10 N"])
              );

对于您的其他情节，您可以简单地绘制一系列线条。

T:=table([1=60,2=100,3=0,4=20]):
P2:=seq(plottools:-line([i,0],[i,T[i]],thickness=2,color=black),
        i=1..4):

你可以像上面那样调整最终情节的外观和感觉。我会把它留给你。

plots:-display(P2
               , size=[300,0.7]
               , view=[0..6, 0..120]
               , labels=["",""]
              );