如何在office2003word中正确插入函数图象如何在wor

画什么函数图像？画图要求是先记住函数类型的相关图像，比如y=2x+3，先判断是哪一类函数，由于x的最高尚次数为1，所以函数类型为一次函数，一次函数的图像都是直线，所以两点确定一条直线，取两个点，为了方便起见往往令x=0求y，或者y=0求x，求完坐标用直线一连就是函数图像。

其他图像化法流程都一样。

先判断哪种类型函数，取特殊点，画图就可以了

word2010中如何作函数图像,比如二次函数图像

用Word和PPT都可以画，但是画出来只是像二次函数而已，画法如下：1、打开PPT,2、单击“视图”，3、选中“显示网格线”，4、单击“插入”“形状”选择“曲线”开始画图，二次函数五个点就可以了，5、双击结束画图，选中所画的图，单击右键，选择编辑顶点，把点拖动到合适的地方，在word中应该是一样的。

但是，个人推荐用Excel，直接输入值，选中插入点画线，设置一下格式，画好复制粘贴，当然要是想要准确的图就用Matlab画。

数学函数图像

一次函数的话就是一条直线，取两个点连起来就行。

曲线的话就得多取一些点，然后用平滑的曲线相连，但是在这之前还需要做一些简单的判断，点不能乱取的。

首先要计算函数的极值，每个极值点都是一定要取的；然后如果要话的比较精确的话，就要对函数求二阶导，根据二阶导数的正负就可以知道函数每一段的凹凸情况。

在WORD中使用数学工具时不能用函数图象功能

第一步，新建一个工程，新建一个Form1，在上面添加一个picture控件和一个command控件，然后选中此控件，右击＂复制＂，在窗体空白处右击＂粘贴＂，在弹出的对话框中选择＂是＂，创建了一个Command控件数组，复制，使窗体上总共出现7个Command控件，然后复制代码： Const Pi = 3.1415926535 '定义圆周率 Dim a, wor Dim i As Integer Static Function Loge(X) Loge = Log(X) / Log(Exp(1)) End Function '定义用于在Picture1上的一个位置打印字符函数 Private Function PrintWord(X, y, Word As String) With Picture1 .CurrentX = X .CurrentY = y .ForeColor = RGB(0, 0, 255) End With Picture1.Print Word End Function Private Function DrawDot(Px, Py, Color) Picture1.PSet (Px, Py), Color End Function Sub XY（) '建立直角坐标系 Picture1.DrawWidth = 1 '设置线条宽度 Picture1.Cls '设定用户坐标系，坐标原点在Picture1中心 Picture1.Scale (-10, 10)-(10, -10) Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255) Picture1.Line -(9.5, 0.5), RGB(0, 0, 255) Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255) Picture1.ForeColor = RGB(0, 0, 255) Picture1.Print ＂X＂ '画 X 轴 Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255) Picture1.Line -(0.5, 9.5), RGB(0, 0, 255) Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255) Picture1.Print ＂Y＂ '画 Y 轴 For lin = -9 To 9 Picture1.Line (lin, 0)-(lin, 0.25) wor = PrintWord(lin - 0.5, -0.5, Str(lin)) Picture1.Line (0, lin)-(-0.25, lin) If lin 0 Then wor = PrintWord(-0.9, lin, Str(lin)) End If Next lin Picture1.DrawWidth = 2 End Sub Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 For a = -3 To 3 Step Pi / 6000 Dot = DrawDot(a, a ^ 2, RGB(0, 0, 0)) Next a wor = PrintWord(4, 9， ＂二次曲线 y=x^2＂) Case 1 For a = -9 To 9 Step Pi / 6000 Dot = DrawDot(a, a, RGB(0, 0, 0)) Next a wor = PrintWord(8, 5， ＂一次曲线 y=x＂) Case 2 For a = -9 To 3 Step Pi / 6000 Dot = DrawDot(a, Exp(a), RGB(0, 0, 0)) Next a wor = PrintWord(4, 9， ＂指数曲线 y=e^x＂) Case 3 For a = 0.0001 To 9 Step Pi / 6000 Dot = DrawDot(a, Loge(a), RGB(0, 0, 0)) Next a wor = PrintWord(8, 3， ＂对数曲线 y=ln x＂) Case 4 For a = -10 To 10 Step Pi / 6000 Dot = DrawDot(a, Sin(a), RGB(0, 0, 0)) Next a wor = PrintWord(-5, 2， ＂正弦曲线 y=sin x＂) Case 5 For a = -10 To 10 Step Pi / 6000 Dot = DrawDot(a, Cos(a), RGB(0, 0, 0)) Next a wor = PrintWord(-9, 2， ＂余弦曲线 y=cos x＂) Case 6 XY End Select End Sub Private Sub Form_Load() Me.Caption = ＂数学函数作图？quot;＂ Me.Show Me.AutoRedraw = True Picture1.AutoRedraw = True Command1(0).Caption = ＂二次曲线＂ Command1(1).Caption = ＂一次曲线＂ Command1(2).Caption = ＂指数曲线＂ Command1(3).Caption = ＂对数曲线＂ Command1(4).Caption = ＂正弦曲线＂ Command1(5).Caption = ＂余弦曲线＂ Command1(6).Caption = ＂清空＂ XY End Sub Private Sub Form_Resize() Picture1.Width = Me.Width * 0.94 Picture1.Height = Me.Height - (Command1(0).Height * 4 + 100) Command1(0).Top = Me.Height - (Command1(0).Height * 2.5 + 100) Command1(0).Left = Me.Width * 0.01 For i = 1 To 6 Command1(i).Top = Me.Height - (Command1(0).Height * 2.5 + 100) Command1(i).Left = Command1(i - 1).Left + 1000 Next XY End Sub

转载请注明出处51数据库 » 数学函数图像word