怎样将一个曲线均匀压缩到一定的范围内？

当x=o，函数值为0.00045

构造一个新变量z,将区间（0.00045，1）压缩为（0.7，1）。再构造过点（0.00045，0.7）和点（1，1 ）的直线z=0.3y+0.7

把y用原式代入， 函数z（x）即为所求

简单举个例子，不知道能否对你有用。。。（说明下而已，不能运行）

此例为一个小模块，原创哦~~非抄袭！

Private Sub 量程自动识别(ByVal 传递过来的数据 As Single)

Dim 量程 As Long

If 数据 <= Picture高度 Then

Exit Sub

End If

量程 = CLng(传递过来的数据 / 100 + 0.5) * 100 '获取新的高度

Picture1.ScaleHeight = 量程 'ScaleHeight属性为picture1的内部高度

Picture1.Cls '清空picture控件

Picture1.AutoRedraw = True '设置自动重绘有效

Picture1.DrawWidth = 1 '设置绘制线条宽度

End sub

哦，对了，之前采集的数据要记得保存起来（例如保存在数组中），之后要记得把以前所有的数据点都绘制上去哦。

判断最后一组数据在X轴上的位置，以此点的坐标为 picture1的 ScaleWidth ，上例只是高度的换成宽度不就好了呀。

还有你把之前的数据都存起来，每次清空picture时 重绘就OK了噢

---