查看: 4619|回复: 15
贝塞尔公式求标准偏差EXCEL实用自编小程序
立刻注册计量论坛 交流工作中的点滴
才可以下载或查看，没有帐号？
贝塞尔公式求标准偏差EXCEL实用自编小程序，大家自己下载哦
09:32 上传
点击文件名下载附件
下载积分: 金币 -1
2.27 KB, 下载次数: 144, 下载积分: 金币 -1
09:32 上传
点击文件名下载附件
下载积分: 金币 -1
1.83 KB, 下载次数: 20, 下载积分: 金币 -1
09:32 上传
点击文件名下载附件
下载积分: 金币 -1
2.1 KB, 下载次数: 36, 下载积分: 金币 -1
09:32 上传
点击文件名下载附件
下载积分: 金币 -1
2.26 KB, 下载次数: 21, 下载积分: 金币 -1
09:32 上传
点击文件名下载附件
下载积分: 金币 -1
2.2 KB, 下载次数: 21, 下载积分: 金币 -1
09:32 上传
点击文件名下载附件
下载积分: 金币 -1
2.26 KB, 下载次数: 26, 下载积分: 金币 -1
适用,不错,谢谢
1#把问题搞复杂了，只下载看了样本数为10的小程序，其实只要在L2单元格中输入“=stdev(B2:K2)”即可得到这10个数的实验标准偏差。几个数据都一样，千万别再浪费金币了。
谢谢！很常用
用多功能计算器多好用
谢谢,先用下试试
应该就是一个公式，不难的吧，看看先
stdev不是就可以了吗？怎么麻烦？
感谢分享実用EXCEL!
真是实用呀 多谢分享
感谢分享実用EXCEL!
谢谢，很实用呀
下来看看，应该一个公式搞定
3楼正解，一个excel函数搞定
不错,谢谢不错,谢谢
不错,谢谢不错,谢谢
Copyright (C)
计量论坛——304所 电话： QQ:473647
Powered by Discuz! X3.2
Comsenz Inc.贝塞尔曲线及插值
贝塞尔曲线
介绍可参考中文维基百科，图文并茂，这里就不啰嗦了
//zh.wikipedia.org/zh-cn/%E8%B2%9D%E8%8C%B2%E6%9B%B2%E7%B7%9A
这里主要讲一下如何在excel及vb中实现贝塞尔曲线插值，程序来源于互联网（程序
作者:海底眼(Mr.DragonPan在excel中用宏实现)，本文作为少量修改，方便在vb中调
用，经运行证明是没错的，下面程序可作成一个模块放到vb或vba中调用：
--------------------------------------------------------------------
-----------------
'Excel的平滑线散点图，可以根据两组分别代表X-Y坐标的散点数值产生曲线图
'但是，却没有提供这个曲线图的公式，所以无法查找曲线上的点坐标
'后来我在以下这个网页找到了详细的说明和示例程序
'..............................................................................
/Smooth_curve_bezier_example_file.zip
'..............................................................................
'根据其中采用的算法，进一步增添根据X坐标求Y坐标，或根据Y坐标求X坐标，更切
合实际需求
'这个自定义函数按照Excel的曲线算法(三次贝塞尔分段插值),计算平滑曲线上任意一点
'Excel的平滑曲线的大致算法是:
'给出了两组X-Y数值以后，每一对X-Y坐标称为节点，然后在每两个节点之间画出三次
贝塞尔曲线(下面简称曲线)
'贝塞尔曲线的算法网上有很多资源，这里不介绍了，只作简单说明
'每条曲线都由四个节点开始，计算出四个贝塞尔控制点，然后根据控制点画出唯一一条
'假设曲线的源数据是节点1,节点2,节点3,节点4(Dot1,Dot2,Dot3,Dot4)
'那么贝塞尔控制点的计算如下
'Dot2是第一个控制点,也是曲点的起点，Dot3是第四个控制点也是曲线的终点
'第二个控制点的位置是:
'过第一个控制点(Dot2,起点)，与Dot1,Dot3的连线平行，且与Dot2距离为1/6*线
段Dot1_Dot3的长度
'假如是图形的第一段曲线，取节点1,1,2,3进行计算,即Dot2=Dot1
'且第二个控制点与第一控制点距离取1/3*|Dot1_Dot3|,而不是1/6*|
Dot1_Dot3|
'假如1/2*|Dot2_Dot3|&1/6*|Dot1_Dot3|
'那么第二个控制点与第一控制点距离取1/2*|Dot2_Dot3|,而不是1/6*|
Dot1_Dot3|
'第三个控制点的位置是:
'过第四个控制点(Dot3,终点)，与Dot2,Dot4的连线平行，且与Dot3距离为1/6*|
Dot2_Dot4|
'假如是图形的最后一段曲线，取节点Last-2,Last-1,Last,Last进行计算,即Dot4=
'且第三个控制点与第四控制点距离取1/3*|Dot2_Dot4|,而不是1/6*|
Dot2_Dot4|
'假如1/2*|Dot2_Dot3|&1/6*|Dot2_Dot4|
'那么第二个控制点与第一控制点距离取1/2*|Dot2_Dot4|,而不是1/6*|
Dot2_Dot4|
'...............................................................................................
'这个自定义函数的计算流程是
'Step1:检查输入的X-Y数值是否有错误，如(输入不够三个点，X-Y的数量不一致,起始
搜索节点超过范围等等)
'Step2:从参数指定的节点开始，计算出四个贝塞尔控制点，得到贝塞尔插值多项式方程，
'然后代入已知的待求数值，看它能不能满足f(t)=0有解(即曲线包含待查数值)
'Step3:如果f(t)=0有解，根据解出来的t值计算X-Y坐标，退出程序,否则继续检查
下一段曲线
'Step4:如果所有分段曲线都不包含待查数值，退出程序
'...............................................................................................
OptionExplicit
OptionBase1'所有数组的第一个元素编号为1(默认为0)
TypeVector'自定义数据结构(用二维向量代表坐标系里面的点坐标)
ConstNoError="Noerror"'错误提示信息
ConstError1="Error:Thesizeofknown_xmustequaltosizeofknown_y"
ConstError2="Error:Thesizeofknown_xmustequaltoorgreaterthan3"
ConstError3="Error:StartKnotmustbe&=1and&=count(known_x)-1"
ConstError4="Error:known_value_typemustbe""x"",""y"",or""t"""
ConstError5="Error:Whenknown_value_typeis""t"",known_valuemust&=0
ConstError10="Error:known_valueisnotonthecurve(definedbygiven
known_xandknown_y)"
ConstNoRoot="NoRoot"
ConstMaxErr=0.
ConstMaxLoop=1000
DimSizeX,SizeYAsLong'
输入区域的大小
DimDot1AsVector'输入区域里面，用作计算贝塞尔控制点的四个节点
DimDot2AsVector
DimDot3AsVector
DimDot4AsVector
DimBezierPt1AsVector'生成贝塞尔曲线的四个贝塞尔控制点
DimBezierPt2AsVector
DimBezierPt3AsVector
DimBezierPt4AsVector
DimOffsetTo2AsVector'第二,三个贝塞尔控制点跟起点，终点的距离关系
DimOffsetTo3AsVector
DimValueTypeAsVariant'输入待查数值的类型,"x"代表输入的是X坐标，求对应的
DimInterpol_hereAsBoolean'当前分段曲线是否包含待查数值
Dimkey_value,a,b,c,dAsDouble'贝塞尔曲线插值多项式的系数
Dimt1,t2,t3AsVariant'贝塞尔曲线插值多项式的根
Dima3,a2,a1,a0AsDouble
PublicSubbefit(ByRefknown_x()AsDouble,ByRefknown_y()AsDouble,sizeAs
Integer,known_valueAsDouble,result()AsVariant,OptionalStartKnotAsLong
=1,Optionalknown_value_typeAsVariant="x")
'--------------------------------------子过程方便VB中调用
-----------------------------------------------------------
'主程序开始，至少要输入五个参数，第一个是X坐标系列，然后是Y坐标系列，第三个是
坐标点数，第四个是待查数值，第五个是返回值
'第六个参数是从哪一段曲线开始查找，如果曲线可以返回多个值，那么分别指定起始节点
就可以找出全部合要求的点
'第七个参数是待查数值的类型,"x"代表输入x坐标求对应y坐标，"y"则相反,"t"是直接输入
贝塞尔插值多项式的参数
'-------------------------------------------------------------------
------------------------------
DimjAsLong
Dimx1Value,y1Value,x2Value,y2Value,x3Value,y3ValueAsVariant
DimErrorMsgAsVariant
ValueType=LCase(known_value_type)'待查数值的类型转化为小写，并赋值到全局
变量ValueType
key_value=known_value'待查数值赋值到全局变量key_value
ErrorMsg=ErrorCheck(known_x,known_y,StartKnot)'检查输入错误
IfErrorMsg&&NoErrorThen'有错误就返回错误信息，退出程序
result=Array(ErrorMsg,ErrorMsg,ErrorMsg,ErrorMsg,ErrorMsg,ErrorMsg)
'SizeX=UBound(known_x)
相关资料推荐
简明扼要地描述了贝赛尔曲线
当前资料暂无简介~
CAD/CAM实验
当前资料暂无简介~
当前资料暂无简介~
NIZHIDAODE
贝塞尔与B样条曲线
在此可输入您对该资料的评论~
资料阅读排行
(window.slotbydup=window.slotbydup || []).push({
id: '2371234',
container: s,
size: '300,250',
display: 'inlay-fix'
该用户的其它资料
请选择举报的类型
赌博犯罪类
资料评价：
所需积分：0Excel工程函数大全
下面图老师小编跟大家分享一个简单易学的Excel工程函数大全教程，get新技能是需要行动的，喜欢的朋友赶紧收藏起来学习下吧！
top1:Excel工程函数大全
　　工程函数　　BESSELI返回经过修改的贝塞尔函数IN(X)　　BESSELJ 返回贝塞尔函数JN(X)　　BESSELK返回经过修改的贝塞尔函数KN(X)　　BESSELY返回贝塞尔函数YN(X)　　XLFCTBIN2DEC、BIN2DEC 将二进制数转换为十进制数　　BIN2HEX 将二进制数转换为十六进制数　　BIN2OCT将二进制数转换为八进制数　　COMPLEX 将实系数和虚系数转换为复数　　CONVERT 将一种度量单位制中的数字转换为另一种度量单位制　　DEC2BIN 将十进制数转换为二进制数　　DEC2HEX 将十进制数转换为十六进制数　　DEC2OCT 将十进制数转换为八进制数　　DELTA 检测两个值是否相等　　ERF 返回误差函数　　ERFC 返回余误差函数　　GESTEP 检测数字是否大于某个阈值　　HEX2BIN 将十六进制数转换为二进制数　　HEX2DEC 将十六进制数转换为十进制数　　HEX2OCT 将十六进制数转换为八进制数　　IMABS 返回复数的绝对值(模)　　IMAGINARY 返回复数的虚系数　　IMARGUMENT 返回参数THETA，一个以弧度表示的角　　IMCONJUGATE 返回复数的共轭复数　　IMCOS 返回复数的余弦　　IMDIV 返回两个复数的商　　IMEXP 返回复数的指数　　IMLN 返回复数的自然对数　　IMLOG10 返回复数的常用对数　　IMLOG2 返回复数的以2为底数的对数　　IMPOWER 返回复数的整数幂　　IMPRODUCT 返回两个复数的乘积　　IMREAL 返回复数的实系数　　IMSIN 返回复数的正弦　　IMSQRT 返回复数的平方根　　IMSUB 返回两个复数的差　　IMSUM 返回两个复数的和　　OCT2BIN 将八进制数转换为二进制数　　OCT2DEC 将八进制数转换为十进制数　　OCT2HEX 将八进制数转换为十六进制数
top2:在excel中如何在同行或同列自动填充相同的值
&　　在excel中，函数非常多，功能也很强大，只是平时很少用，都不知道。　　在处理大量数据时，为对应的栏目id设置一个数值，比如是5，这个数值需要同步到每一条数据上，一直点着鼠标，太累了，手也酸，比较总数据量达到了150万，太费力了，于是想到有没有办法能够让我输入值之后，同步到全部呢?　　查了相关资料，先选中数据区域，如A1：C5，然后在上方框框中输入数字，按Ctrl++Enter就完成了。　　后来突然发现，其实也可以先空白字符串导入到mysql，再写句sql与就行了!
top3:制作数据图示半透明的Excel信息图表
　　Excel图表并不支持颜色的透明，当我们为柱形或条形图表系列应用颜色时，该颜色必定是一种实色。虽然填充效果对话框包括透明度控制选项，但遗憾的是该控制选项是不可用的，如图1所示。　　图1　　本文将介绍如何通过粘贴自选图形的方式制作半透明的条形或柱形数据系列。图2所示为一个图表应用半透明数据系列前后的效果，注意观察图中的网格线。　　图2　　下面是具体操作步骤　　1.选中要工作表中的数据区域，选择插入图表，选择柱形图，然后单击完成得到一个柱形图表，可以根据需要调整一下图表的外观，结果如图3所示。　　图3　　2.在工具栏上的空白处单击右键，然后从弹出菜单中选择绘图，显示出绘图工具栏，使用工具栏中的矩形工具在工作表中绘制一个矩形，如图4所示。　　图4　　3.双击矩形，打开设置自选图形格式对话框。在填充区域中的颜色右侧下拉列表中选择一种颜色，如图5所示。　　图5　　4.拖动透明度右侧滑块调整所选颜色的透明度，如图6所示。　　图6　　5.为了得到更好的效果，从线条区域中的颜色右侧下拉列表中选择无线条颜色，如图7所示。单击确定按钮关闭设置自选图形格式对话框。　　图7　　6.选中工作表中的矩形，按住Shift键的同时选择菜单命令编辑复制图片。注意，必须按住Shift键才能看到复制图片命令。在弹出的复制图片对话框中，采用默认设置，如图8所示。单击确定按钮。　　图8　　7.单击图表中的柱形数据系列，选择菜单命令编辑粘贴。这样就能得到如图9所示的半透明柱形数据系列了。　　图9　　8.上面是制作了没有边框的半透明数据系列。如果希望再为柱形数据系列添加边框，可以双击柱形数据系列，然后在数据系列格式对话框的图案选项卡中重新设置边框选项，如图10所示。　　图10　　如图11所示，我们还可以将数据系列改为彩虹渐变的样式，读者可以根据上面介绍的方法举一反三，自己尝试着制作出这种效果(提示：在第5步中为绘制的矩形设置填充颜色时，可以选择填充效果为彩虹出蚰II)。　　图11
top4:怎么改变Excel默认的单元格批注格式
　　如果您的Excel工作簿中运用了一些公式，又怕别人看不懂，可以在存在公式的单元格中插入批注，对公式进行必要的解释。批注是一种十分有用的提醒方式，不仅可以用来解释复杂的公式，也可以将对其它用户工作簿的反馈意见写在批注当中以方便互相交流。　　在Excel中，我们可以先选中要插入批注的单元格，然后选择插入批注命令，这时就会在该单元格一侧出现批注框，可以直接在框中输入批注的内容，如图1所示。　　图1 插入批注　　创建了批注之后，可以随时改变批注的格式，方法是在包含批注的单元格(右上方有红色小三角的单元格)上单击右键，从弹出菜单中选择编辑批注，然后在批注框中选中要改变格式的内容，改变其格式，或者单击批注框的边缘选中整个批注，再改变其格式，例如改变字体、字号、文本颜色等。还有一种办法是在批注上单击右键，从弹出菜单中选择设置批注格式，打开如图2所示的对话框然后进行设置。　　图2　　然而如果经常会用到单元格批注，又不希望使用默认的单元格批注格式，总不能一次次地手动更改吧。在Excel中没有提供改变默认单元格批注格式的途径，但有一种办法可以解决。其实，Excel中的单元格批注的格式与Windows系统的工具提示格式是完全相同的，了解了这一点，就好办了。　　什么是Windows系统的工具提示呢?例如在Excel中，当我们将鼠标指针指向工具栏上的保存按钮上方时，就会出现如图3所示的黄底黑字的小提示框，告诉我们这是一个保存按钮，这就是工具提示。　　图3　　要改变工具提示的默认格式，需要打开显示属性对话框。可以双击控制面板中的显示将其打开，如图4所示。也可以在桌面上单击右键，然后从弹出菜单中选择属性将其打开。　　图4　　以Windows XP系统为例，当打开显示属性对话框后，单击上方的外观选项卡，然后单击右下方的高级按钮，如图5所示。　　图5　　在高级外观对话框中，在项目下方选择工具提示，然后就可以设置提示内容的字体、字号、文本颜色、粗体斜体以及提示框的背景颜色等属性了。　　图6　　注意：这一改变将会影响所有没有设置格式的批注，而对已经设置了格式的批注则没有影响。如果您已经为某些批注应用了其它格式，例如，改变了文本的颜色，上述改变将不会改变这些批注的格式。
top5:Excel 2003数据隐藏小技巧
　　我们给大家介绍Excel 2003中单元格内容、行列、工作表的隐藏方法。　　隐藏单元格内容　　选中要隐藏内容的单元格区域，右击选择设置单元格格式，在数值选项卡的分类列表中选择自定义，在类型输入框中输入三个半角的分号;;;(如图1)，再切换到保护选项卡下，单击选中隐藏复选项，确定后单元格内容就被隐藏了。　　再单击菜单保护/保护工作表，设置密码保护工作表，即可彻底隐藏单元格内容。要取消隐藏得先单击菜单保护/撤消保护工作表。然后再从设置单元格格式中选择相应数值格式，或者选中单元格区域单击菜单编辑/清除/格式即可恢复显示。　　值得大家注意的是，保护工作表后单元格是无法修改的。若希望保护后仍可修改单元格内容，可先选中需要输入的单元格，右击选择设置单元格格式，从保护选项卡中单击取消锁定复选项前的&，再进行保护工作表设置。这样被隐藏的单元格照样可以输入或修改，但是输入后单元格内容会被隐藏。　　隐藏行列　　有一些特殊表格像工资单、人员记录等可能就经常需要在打印前隐藏工作表中等级、出生年月、扣费标准等行列，在编辑时又要显示出，这样重复切换是比较麻烦的。对此有一个简单的方法可快速隐藏、显示指定行列。以隐藏C:D、G、J列为例：　　选中C:D列，单击菜单数据/组及分级显示/组合，此时工作表上会显示分级的1、2按钮(如图2)。重复这一步，分别选中G列、J列进行组合。现在只要单击1按钮即可隐藏C:D、G、J列，单击2按钮则恢复显示。对于行的设置也是一样，只是行的1、2按钮是左侧。　　隐藏的行或列在通过拖动选择或按Shift键选中时会同时被选中，复制粘贴后会发现隐藏内容也同时被复制过来了。对此可在拖动或按Shift键选中区域后，再按下Alt+;键，这样就会只选中可见单元格，而不包括那些被隐藏的行或列。　　提示：一般对象或图形默认会随所在的行列一起被隐藏，若不想同时隐藏图形，可双击图形打开设置图片格式窗口，在属性选项卡中选中大小、位置固定选项。　　隐藏工作表　　单击工具/宏/Visual
Basic编辑器，在弹出窗口左侧选中要隐藏的工作表名，如：Sheet4，在属性窗口中把Visible项的值设置为2-xlsheetveryHidden(如图3)，若没有属性窗口可按F4显示。然后右击VBAProject(XXXX.xls)选择VBAProject
属性，在保护选项卡中选中查看时锁定工程，并输入密码，保存文档退出。以后想展开VBAProject(XXXX.xls)时会弹出一个要求输入密码的对话框，没密码就别想查看或修改了。用这方法隐藏的工作表，不能通过单击格式/工作表/取消隐藏取消隐藏，也不会影响其它工作表操作。
热门搜索：
ps教程 简单调出创意花卉效果
电脑有回声怎么办 为什么电脑的声音会有回音
怎么在电脑禁止使用Ctrl+Alt+Del
电脑显示屏出现彩色条纹怎么办
您可能会发现，经常看到在短视频有人在表演的时候说一些鼓励的话，然后就是双击666，听的您或许摸不清头脑，我就在这里为您解答一下，请给我点赞，让我解答更加有动力。
您是否熟悉我们生活的城市是怎么命名而来的呢？中国城市的命名可是有很深的文化底蕴和历史背景的,你都知道么?我从网上搜集了大量的城市名来源，让您好好的涨涨知识，您准备好了吗？
对于爱美人士来说，美白护肤是不分季节的，即使在冬季，依然需要做好皮肤护理工作。饮食调理是护肤的一项重要措施，那么冬天美白吃什么水果呢?接下来就和我一起来看看了解一下冬季美白吃什么水果好！
产妇顺产以后多久可以洗头发？有很多产妇为了防止自己受寒所以在产后不让自己洗头发，但是又特别难受，这篇文章讲述了产妇顺产以后多长时间可以洗头发，通过这篇文章了解产妇顺产以后多久可以洗头发吧。
阴阳师是现在相当火热的一款手游，最近阴阳师又有了新的更新，玩家可以通过挑战副本来获取妖刀姬樱雨刀舞皮肤。可是的很多人不知道阴阳师妖刀姬副本阵容是怎样的，下面就给大家来详细介绍吧。
阴阳师是现在很火热的一款手机游戏，这款游戏一直在更新完善，受到很多人的追捧，就在最近阴阳师又推出了小鹿男，小鹿男作为SSR式神，很多人对它还不是很了解，下面就给大家来介绍阴阳师小鹿男御魂以及阵容搭配吧。
我们在玩阴阳师完成悬赏任务的时候，都会要求玩家找到各种式神的位置，可是很多人不知道阴阳师跳跳哥哥在哪里刷、哪里多，下面就给大家来详细介绍吧，希望对大家玩游戏有所帮助。
京津冀及周边地区出现持续雾霾天气，很是让孕妈妈们担心。持续的雾霾天气对孕妇产生了很大的影响，那么雾霾天气对孕妇危害有多大？雾霾天气孕妇怎么办？下面的文章详细介绍 了雾霾天气对孕妇的危害，一起来看看吧。
我们知道宝宝刚刚出生的时候口腔里是没有牙齿的，一般孩子在四个月以后慢慢开始出牙，每个孩子的体质不一样，所以出牙的时间也是有所差异的，宝宝出牙的时候身体会出现一些症状，家长们要及时的护理好，下面一起来看看宝宝长牙的症状有哪些。
肚子上的赘肉看上去让人烦恼，尤其是对于想穿裙子的女生来说更是一件郁闷的事情。现在减肥的方法有很多，但是很多人并不知道专门瘦肚子的方法。那么，如何瘦肚子呢？下面就给大家介绍几种减肚子的方法吧。贝塞尔函数_中国百科网
专题字母分类：  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  
您现在的位置： >
> 专题内容:
贝塞尔函数
级数解，便引入勒让得多项式。研究贝塞尔方程的广义幂级数解时引入了贝塞尔函数。不仅如此，偏微分方程的解法中有个重要方法是分离变量法，运用分离变量法的结果，就会把二元函数（甚至是三元函数）化为某些一元函数，即常微分方程的问题（初值问题或边值问题...
　　4阶贝塞尔低通滤波器电路如下图所示： 　　 ??来源:与你同行 ...
Mail: Copyright by ；All rights reserved.