威布尔概率纸的生成方法与流程

1.本发明涉及一种威布尔概率纸的生成方法。


背景技术：

2.威布尔分布在可靠性工程中被广泛使用，可用于工业制造、预测天气、可靠性和失效分析等用途。通常在轴承的疲劳寿命和润滑油脂的寿命评估中，应用威布尔分布来评估轴承或油脂的寿命特性，而涉及到威布尔概率参数的评估的数学处理相对比较复杂，一般情况下，通常通过使用威布尔概率纸来判断相关的特性。
3.由于威布尔概率纸是对数x坐标，双对数y坐标（即对数一次后再对数一次），在很多现有的计算机软件中，比如excel中并没有现成的概率纸图像（只有对数x坐标，对数y坐标）。也有一些文献提到了具体的数据处理的方法，用于对weibull寿命进行直接的求解估计，但并没有做出具体的威布尔概率纸。因此，本发明的目的是提出一种能够生成威布尔概率纸的方法，方便相关从业者进行威布尔概率的评估分析。


技术实现要素：

4.针对现有技术的不足，本发明提供了一种生成威布尔概率纸的生成方法，具体包括以下步骤：（1）配置线性坐标间距δs，所述线性坐标间距δs是指线性坐标x轴和y轴的每0.1个单位对应的显示像素；（2）生成线性坐标x轴，每0.1个单位在x轴上生成与x轴方向相垂直的次要刻度线，每0.5个单位生成与x轴方向相垂直的主要刻度线；（3）生成线性坐标y轴，每0.1个单位在y轴上生成与y轴方向相垂直的次要刻度线，每0.5个单位生成与y轴方向相垂直的主要刻度线；（4）确定对数坐标的原点，x轴、y轴的原点对应对数y坐标的f(x)=90%；（5）生成双对数y轴的网格线，根据δs
×
loglog{1/[1
‑
f(x)]}确立双对数y轴的网格线位置；（6）生成对数x轴的网格线，根据log(x)确立双对数y轴的网格线位置。
[0005]
进一步地，所述线性坐标间距δs默认为18像素。
[0006]
进一步地，所述主要刻度线的长度较次要刻度线大，每10个单位在与主要刻度线相对应的位置依次生成递增的数字单位。
[0007]
进一步地，使用vba程序语言中的activesheet.shapes.addlabel的函数方法在与主要刻度线相对应的位置生成数字单位。
[0008]
进一步地，使用vba程序语言中的activesheet.shapes.addline的函数方法生成用于构建所述线性坐标x轴和y轴的直线。
[0009]
本发明的有益效果是：（1）威布尔概率纸大小可以自由设定，用户可以通过配置线性坐标间距δs对显示
的像素值大小进行设定；（2）可利用常用办公软件excel的vba程序进行生成，无需额外安装其他的相关软件；（3）生成的威布尔概率纸过程方便、快捷，生成的威布尔概率纸较为精准；（4）基于本发明生成的威布尔概率纸可直接进行打印，提供工作效率。
附图说明
[0010]
图1 本发明实施例的流程示意图；图2 本发明实施例生成的威布尔概率纸的示意图。
具体实施方式
[0011]
由图1至图2可以看出，本发明威布尔概率纸的生成方法的实施例具体包括：（1）配置线性坐标间距δs，所述线性坐标间距δs是指线性坐标x轴和y轴的每0.1个单位对应的显示像素，线性坐标间距δs的默认值为18像素，是比较适宜的尺寸，可通过vba模块提供的文本输入框对线性坐标间距δs的具体数值进行配置，所述线性坐标间距δs的意义为线性坐标x轴和y轴的每一个格0.1单位对应的显示像素。
[0012]
（2）生成线性坐标x轴，每0.1个单位在x轴上生成与x轴方向相垂直的次要刻度线，每0.5个单位生成与x轴方向相垂直的主要刻度线；（3）生成线性坐标y轴，每0.1个单位在y轴上生成与y轴方向相垂直的次要刻度线，每0.5个单位生成与y轴方向相垂直的主要刻度线；（4）确定对数坐标的原点，x轴、y轴的原点对应对数y坐标的f(x)=90%；（5）生成双对数y轴的网格线，根据δs
×
loglog{1/[1
‑
f(x)]}确立双对数y轴的网格线位置，其主要实施代码如下：
ꢀꢀꢀꢀ
dim fx as double
ꢀꢀꢀꢀꢀ
activesheet.shapes.addline(xlogx0, xlogy0, xlogx0, yloglimit).line.forecolor.rgb = rgb(0, 0, 0) for i = 0 to 17 step 1 fx = 0.9
ꢀ‑ꢀ
i * 0.05ylog = abs(worksheetfunction.log10(worksheetfunction.log10(1 / (1
ꢀ‑ꢀ
fx)))) * 10 * delta xlogy0
ꢀꢀꢀꢀꢀ
activesheet.shapes.addline(xlogx0, ylog, xloglimit, ylog).line _
ꢀꢀꢀꢀꢀ
.forecolor.rgb = rgb(0, 0, 0)
ꢀꢀꢀꢀꢀ
if i mod 2 = 0 then
ꢀꢀꢀꢀꢀ
activesheet.shapes.addlabel(msotextorientationhorizontal, _
ꢀꢀꢀꢀꢀ
xlogx0
ꢀ‑ꢀ
22, ylog
ꢀ‑ꢀ
10, 50, 20) _
ꢀꢀꢀꢀꢀ
.textframe.characters.text = fx * 100
ꢀꢀꢀꢀꢀ
end if
ꢀꢀꢀ
next for i = 1 to 5 step 1
ꢀ
fx = 0.1
ꢀ‑ꢀ
i * 0.01 ylog = abs(worksheetfunction.log10(worksheetfunction.log10(1 / (1
ꢀ‑ꢀ
fx)))) * 10 * delta xlogy0 activesheet.shapes.addline(xlogx0, ylog, xloglimit, ylog).line.forecolor.rgb = rgb(0, 0, 0)
ꢀꢀꢀꢀ
if i = 5 then
ꢀꢀꢀꢀꢀ
activesheet.shapes.addlabel(msotextorientationhorizontal, _
ꢀꢀꢀꢀꢀ
xlogx0
ꢀ‑ꢀ
22, ylog
ꢀ‑ꢀ
10, 50, 20) _
ꢀꢀꢀꢀꢀ
.textframe.characters.text = fx * 100
ꢀꢀꢀꢀ
end if next（6）生成对数x轴的网格线，根据log(x)确立双对数y轴的网格线位置，其主要实施代码如下：for i = 0 to 9 step 1
ꢀꢀꢀꢀꢀꢀ
xlog = worksheetfunction.log10(i 1)
ꢀꢀꢀꢀꢀꢀ
activesheet.shapes.addline(xlogx0 xlog * delta * 10, xlogy0, xlogx0 xlog * delta * 10, yloglimit).line _
ꢀꢀꢀꢀꢀꢀ
.forecolor.rgb = rgb(0, 0, 0)
ꢀꢀꢀꢀꢀꢀ
if i = 0 or i = 1 or i = 2 or i = 4 or i = 9 then
ꢀꢀꢀꢀꢀꢀ
activesheet.shapes.addlabel(msotextorientationhorizontal, _
ꢀꢀꢀꢀꢀꢀ
xlogx0 xlog * delta * 10
ꢀ‑ꢀ
10, yloglimit, 30, 20) _
ꢀꢀꢀꢀꢀꢀ
.textframe.characters.text = i 1
ꢀꢀꢀꢀꢀꢀ
end if
ꢀꢀꢀꢀ
next
ꢀꢀꢀꢀ
for i = 20 to 100 step 10
ꢀꢀꢀꢀꢀꢀ
xlog = worksheetfunction.log10(i)
ꢀꢀꢀꢀꢀꢀ
activesheet.shapes.addline(xlogx0 xlog * delta * 10, xlogy0, xlogx0 xlog * delta * 10, yloglimit).line.forecolor.rgb = rgb(0, 0, 0)
ꢀꢀꢀꢀꢀꢀ
if i = 20 or i = 50 or i = 100 then
ꢀꢀꢀꢀꢀꢀ
activesheet.shapes.addlabel(msotextorientationhorizontal, _
ꢀꢀꢀꢀꢀ
xlogx0 xlog * delta * 10
ꢀ‑ꢀ
10, yloglimit, 50, 20) _
ꢀꢀꢀꢀꢀꢀ
.textframe.characters.text = i
ꢀꢀꢀꢀꢀꢀ
end if
ꢀꢀꢀꢀ
next
ꢀꢀꢀꢀ
for i = 200 to 1000 step 100
ꢀꢀꢀꢀꢀꢀ
xlog = worksheetfunction.log10(i)
ꢀꢀꢀꢀꢀꢀ
activesheet.shapes.addline(xlogx0 xlog * delta * 10, xlogy0, xlogx0 xlog * delta * 10, yloglimit).line.forecolor.rgb = rgb(0, 0, 0)
ꢀꢀꢀꢀꢀꢀ
if i = 200 or i = 500 or i = 1000 then
ꢀꢀꢀꢀꢀꢀ
activesheet.shapes.addlabel(msotextorientationhorizontal, _
ꢀꢀꢀꢀꢀꢀ
xlogx0 xlog * delta * 10
ꢀ‑ꢀ
10, yloglimit, 50, 20) _
ꢀꢀꢀꢀꢀꢀ
.textframe.characters.text = i
ꢀꢀꢀꢀꢀꢀ
end if
ꢀꢀꢀꢀ
next 所述主要刻度线的长度较次要刻度线大，方便直观的分辨，每10个单位在与主要刻度线相对应的位置依次生成递增的数字单位，数字单位可以采用自动的方式依次递增的生成，也可以通过vba模块提供的文本输入框由用户自行输入生成，例如使用vba程序语言中的activesheet.shapes.addlabel的函数方法在与主要刻度线相对应的侧方或上方或下方位置生成数字单位，用于构成所述线性坐标x轴和y轴是使用vba程序语言中的activesheet.shapes.addline的函数方法直接进行生成的，其实施的部分代码如下：dim i as integer
ꢀꢀꢀꢀ
for i = 0 to numlx step 1
ꢀꢀꢀꢀꢀꢀ
if i mod 5 = 0 then
ꢀꢀꢀꢀꢀꢀ
activesheet.shapes.addline(xlinearx0 i * delta, xlineary0, xlinearx0 i * delta, xlineary0 longrid).line.forecolor.rgb = rgb(0, 0, 0)
ꢀꢀꢀꢀꢀꢀ
else
ꢀꢀꢀꢀꢀꢀ
activesheet.shapes.addline(xlinearx0 i * delta, xlineary0, xlinearx0 i * delta, xlineary0 shortgrid).line.forecolor.rgb = rgb(0, 0, 0)
ꢀꢀꢀꢀꢀꢀ
end if
ꢀꢀꢀꢀ
next根据以上实施过程后，最终形成的威布尔概率纸如图2所示，通过vba模块还可以配置“打印”按钮，可直接对生成的威布尔概率纸进行打印。
[0013]
综上所述，本发明可以方便、快捷的对威布尔概率纸进行生成，提高了工作效率，具有重要的应用价值。
[0014]
上述的实施例仅为本发明的优选实施例，不能以此来限定本发明的权利范围，因此，依本发明申请专利范围所作的等同变化，比如采用类似工艺、类似结构的等效产品仍属本发明所涵。