【石油天然气行业标准(SY)】 原油析蜡点测定 旋转粘度计法

ICS 75. 040
备案号：24281-2008
中华人民共和国石油天然气行业标准SY/T 05222008
代替SY/T 05221993
原油析蜡点测定
旋转粘度计法
Determination of wax appearance temperature in crude petroleun-Test method by rolational yiscumeter2008—06-16发布
国家发展和改革委员会
2008—12—01实施
规范性引用文件
方法概述
试验步骤
测定结果
精密度
附录A（资科性附录）
判定原油析蜡点的计算程序
SY/T0522—2008
SY/T 0522—2008
本标准代替SY/T（522—1993《原油析蜡点测定旋转粘度计法》本标准与SY/T0522—1993相比：主要变化如下：增加了前育：
将“木标准适用丁测定含蜡量在5%以上，含水在0.5以下的原油祈蜡点”改为“本标准适用于测定含蜡量在5%（质量分数）以上、含水在0.5头（质分数）以小的原油析蜡点”
51用文件中删除已作废的GB/T2538原油试验法》；将1年版的“6.4间隔1%记录剪切应力（扭知）与温度对应值，绘成试验曲綫”改为“6.4至少每间隔1℃记录下剪切应力或粘度与温度对应值，在计算机上绘成半对数试验曲线”：
珊除1993年版的7.1：
则除1993年版的附录A，将1993年版的附录B改为附录A，将原用HASIC:语方编巧的程序改为用VB语言编写的程序：
本标准的附录A为资料性附录。
本标准山油气计量及分析方法专业标准化技术委员会提山并归。本标准起节单位：中国石油大然气股份有限公司管道分公司管道科技研究中心。本标准参加起卓单位：中国石化管道储运公司华东管道设计研究院、塔里本油日勘深开发研究院。
本标准主要起草人：张双风、陈红、侯宁、时京、高新楼、胡人堂。本标准所代替标准的历次版本发布情况为：SY/T 0522 -1593.
1范围
原油析蜡点测定
旋转粘度计法
SY/T 0522--2008
本标准规定了使用旋转粘度计测定原油析蜡点的方法。本标准适用于测定食蜡量在5%（质量分数）以上、含水在（.5%（质量分数）以下的原油析蜡点。
2规范性引用文件
下列文件中的条款通过本标准的引用而成为本标准的条款。凡是注日期的引用文件，其随后所有的修收单（小包括勘误的内容）或修订版与不适用于本标推，然而，鼓励根据本标准达成协议的各力研究是否可使用这些文件的最新版本。凡是不法口期的引用文件，其最新版本适用丁本标准。GB/丁4756石油和液体石油产品取样法GB/T8170数值修约规则
3方法概述
将试样置于旋转粘度计测量系统中加热，至其中固态蜡转变为液态后，而以规定的速率降温，同时开动旋转粘度计，在规定剪切速率下测定。记求剪切应力或粘度-温度的对应值，绘成曲线。温度降至一定值后，均质凌态原油中析出蜡品，致使尚线开始发生转折，此点对成的温度、可认定为试样的析蜡点：
4仪器
4.1旋转粘度计
4.1.1具有固定剪切速率下连续测最剪切应力的功能，4.1.2剪切速率范用1s1～1000.
4.1.3仪器重现性不大于土2%。
4.2恒温循环器
恒温范围U%-~100，温度波动不超过1℃。4.3温度计
数显示或驳璃水银温度计，分度值(.1℃4.4计算机
记求并绘制剪切应力或粘度一温度半对数试验山线，最好装有Windaws20100)或WindowsXP系统。5样品
按GB/4756样，并确定样品含水在（.5%（质量分数）以下；若含水超过0.5%（质量分数），应脱水至合格。
6试验步骤
6.1对温下流动性差的样品，将装有定量样品的容器置于高于该样品凝点10℃～15%的水浴1
SY/T 0522—2008
中，搅推样品使其均勾：按仪器测量系统要求装人试梯。6.2接通恒温循环器及旋转粘度计测量系统，使测量系统利试样升温至70℃-·8)℃（如果能预估试样析蜡点，也可升温至高下该预估析蜡点15℃~25℃），恒温10min。6.3，控制温循坏器以0.2℃/min-~1℃/min速率连续降温，同时开动旋转粘度计、使其在10s-1-60s-剪切速率范围内的某一固定值下运转。%.4个少每问隔1℃记录下剪切应力或粘度与温度对应值，在计算机上绘成半对数试验曲线：首至温度降到山线余斜率有明显改变之后，再继续降温测定5个-7个点为止。7测定结果
7.1在半对数坐标上，将记录的数据点由高温间低温连成自线，当白某点与其后各点连线的斜率有明显改变时，该点对应温度即为试样的析蜡点，7.2或将试验测定对应值按线性回州计算程序（参见附录A）输人计算机，数据不应少于1个，调使试验曲线斜率收变点两侧数据点数大体相等，由程序判定，自菜点开始让后各点回归直线明品偏离高温段回直线，两线交点所对应的温度即为试样的析蜡点（参见图A.！）。8精密度
重复性：向一操作者在同一实验室使用同一台仪器，按方法规定的步骤，在连续时间对同试样进行重复测定，所得两次测量结果之差不得超过2℃。9报告
以两次重复测定结果的算术平均值，按（B/T817U规定将数值修约到个位数后为样品的析蜡点，报告结果。
附录A
【资料性附录】
判定原油析蜡点的计算程序
SY/T 0522-2008
A.丨本程序用MicrusoftVisual Baxic 6.0语言编制，适用」Windows 2000岁WindowsXP系统。4.2程序列表。
Option Explcit
DimNAsInteger，输人数据个数
Dim I As Inieger
Dim I A IntegerbZxz.net
Dir: CP As Ixub.c
Dirn DP As Douule
Tir? Ep As Dxubre
Dir: FP As Double
Iin J Ax Deubie
Dirn Q An Dxuble.
J)m ss A.Duuble
D)in X As [ouble
Tint A As Doule
Lin B As Ixuble
Iim C As Douhk:
Dim D) As Touble
Dim XI.WD As Do-iblt.
Dirn Y_Coord As Single
Dirri STRESs As Douhle
Din S As Dothle
Jhm T () A, Ixuhle
，剪切应力
，画山俏与实测应力（扭矩）值的差值平方和，W（1）高低温两段务Diut w O As Inuble
测量值同回归直线偏差平方利的最小值。Dim K () As Duble
Dim G (O A: Double
Dim Y ) A: Deuble
D:m 7. () As Double
高温段的四归直线斜率a1
低温段的回归直线料率12
，高温段的国归直线截距b1
，低温段的向归直线距6h2
Private Suh CMalcuale:lieck Ori Error Resume Next
Adoelel.Rerardsut.MoveFirst
WaileNo Adode.Reordsct.EoF
ReDin Prestrvu T (N)
SY/T 0522--2008
ReLi Preserve STRESS (N)
ReDim Preserve S (N)
T (N)-DataGridl.Colurins (1)STRESS (N) =ala(irid1.(Cnlumns (2)S (N) =Log (STRESS (N))
Adodel Recordset. MoveNext
DoEvcnts
ReDinl Presurve W (2 * N).
ReDim Prescrvc K (2 * N)
RelimPreserveG(2*N)
ReTim Preserve Y (2 * N)
ReDim I'reserve Z (2 * N)
For I- 2 To - 2
. -L-1
CP - 0: DP = 0: EP = 0: FP = (Far J = Tol
CP - CP + TJ) -2: DP = DP I SCJD): EP = FF S(D) * T(J): FP = FP + T(J)Next j
L) -(DP # FP - I EP) /(FP2 - 1 CP)Y(L) = (EP * FF - CP ＊ DP) / (FP 2 - CP)W(L) = )
Forl =Tul
W(L) - W(L) + (SJ) - K(L) * T)Next J
CP - 0: DP - 0. EP = 0: FP = 0For J = I-- 1 ToN
Y(L)) * 2
CP -(F + TCD):2: P = DP + S(D): EP -EP + SCJ) × T(J>: FP - FP + T(J)Next J
G(L) - (DP * FP - Q EP) / (FP 2 - Q .CP)Z(L) = (EP * FP - CP * DP) / (FP~2ForJ［
Q * CP
W(L) - W(I) (S(D) - G(I) T(I) - Z(L)) 2Next J
Next I
Far I - 2 To I.
If w(1) W(J)Then Gara 390
SS - + 1
X = WJ): A - K): B - G): = Y(D: D - z)4
SY/T0522—2008
W(J) = W(I): K(D) - K(13- G(J) - G(-): Y(J) = Y(I): Z(J) = Z(1)W(1) - X: K(1) =A: G(1) - B: Y(1) = C: Z(1) = Dsoh: Nex 1
If Ss t Ther GoTo 42(l
SS - 2
42F：
IxA. Text - Fornat (A. \ U.OF\)txtB. Texl = Format (B, \ . oo\)txtl:. Tex = Fornat (C, \ 0. 0o\)txtD. Tex1 = Format (D, . M)\)XLWI) = (Y (1) - Z (1)) / (G(1) - K (1)txtXLWT). T'exl = Format (XLWD, :i 0.oo#):Y Caord = A * XIWT) + C
Enri Sub
Private Sub cirdDraw_ Cliek ()Ditn sev, tev, smax, smin,'tmax, tmin As SingleDim nsmax, zislin, ntmax, ntmin As IntegerDin I, J, m As Integer
Dir ynigh_min. yhigh_ mux, ylow_ nint, yluw_max As SingleDirn lurzia, Itrax, vsmin. vsinax As SingleLDirn dt, ds As Siugle
If N - ) Then Exit Sub
sax = s (1)
smin = s ()
tux - ()
-tmin- ↑(1)
For I-2Tom
Jf S (I) smax Then
smax = S (I)
Flself stiin S (I) Ther:
=S ()
End If
If ( trmax Theni
tmax = T (I)
ElscIf tmin : T (I) Thun
imin =T(I)
End Tf
Nex: I
sev - (smax - $inin) 2 10:
1ev =(tmax
min）10#
Tnt (sraax/ttt)
nsmax-
SY/T 0522—2608
nsmin = Int (smin / 10)
vsmax-(nstmax +1)*10
vsmin = nsmin * 1()
If nsmax - Then
nsmax = Int (smax)
vslx = nsmax -
If nsmin - Then
nsmin = Int (smin)
vsmir = nsinin
End If
ntmax - Ini (umax / 10)
ntmin -Int (umin/10)
ds =(vsmax- vsnin) / 10
stwip =(5640640)/ (vsmax-vsimin)Itmin - ntmin * 10
[tmax=(ntinax+1)×10)
di -(ltmax -Itmin) / 10
ttwip =(5760 -720)/ (ltmax-ltmin)w.Ceptin = Forrnat (vsmin,\ 0.00\)vl. Capticn = Frormat (vsinin - ds, \ o. no\)v2. Caption - F'nrmat (vsmin + 2 x ds, \ 0. 00\)v3. Caption = Forilu (vsmin + 3 * ds, \ 0.00\)v4. Caption = Format (vsirin + 4 × ds. \ o.00\)v5. Captint - Format (vsmin + 5 x ds, \ 1.(0\)vh. (aptiun = Furmat (vsmin + 6 * ds, \ D. (0\)v7.Caption = Format (vsmin + 7 * ds, \ 0.00\)v8, Capion - Format (vsmin - 8 * ds, \ 0.00\)W.Caption - Format (vstnin - 9→ds,\ 0.00\)vll. Caption = Frinal (vsmax, \ 0. thf\)L1. Caption = Itrnax
L9. Caplion = itmax - dt
I8.Caption - itmax - 2 x dt
1.7. Caption = limax - 3 dt. Caption = Itmax -4 × cli
L5. Caprior = Itax - 5 * dt
L4. Caption = ltmex
[3.Caption - Itmax-7* dt
L2. Caption -- Itmax -
$兴dt
L1.Captian - ltmax
Lo. aption - itmin
Dim xlinelrrinHigh As DoubleDim xlitnctminlow As Jouhle
Dim xlinetnuixHigh As DouhleDirr. xinetmaxl.ow As DuublexlinetrinHigh - XLWD - dt
xliwiminLow = unin
xlinet:xITigh-lrex
xlinetmaxl.ow=XIWT)+d:
yh-gn_min = A × xlireiminIligh + Cyhigh_max-A*xlinermaxHigh -Cylow_ min - R * xlinetminl.nw + Dylowtnax=BxxlinetmaxLowFD
Dim nHigh As Integer
Diri mtJligh As Intcgcr
Diri nil.ow As Integer
[in mtLow A: Integer
Dirn gt As Integer
For 1 - 0 To 10
li（(xlineminHigh=(lumax
ntHigh I
Encl 1
SY/T0522—2008
* d) And (xlinetminHigh :(ltmax- (I - 1) * ch)))I((xlineiminlow = (ltmax - I * dt)) And (xlineuainlw _ (itrnux - {I -) × clt)))ntlow = I
Erac If
If ((xlineluraixIligh= (lunax -J dt))And(xlinetmaxHigh(ltmex - (1 + 1) di)))miHigh = 「
End If
If ((xlineulaxLow-(ltex - * dti)And (xlineiraxlow (liraxLow -I
End If
(I + 1) dt)))
II((XI.WD-(ltmax
I*d))And(XIWD(ltmax-(I-1)dt)))Thengt =
End If
If XLWD Itnax Then
MsgBux”析蜡点在坐标轴之外！\Els:If XIWD Itmin Then
Msgcx”析蜡点在坐标之外！
End If
SY/T0522—2008
Dim puintxminHigh As Tang
Din pointxmaxTHigh As Long
Din pointxminlow A.s Iang
Din pointxmaxlow A: Long
puintximinHigh - 720 + 500 * ntHigh + 500 * ((ltmax - ntHigh * dt)xlinetrminHigh) / (dl)pxsintxminLow=720 1 500*ntlow +5u)*((ltmax-ntLow cli)xlinetminlaw) (et)
poinixmaxHigh = 720:+:500 * mtlligh + 500 * ((Jurnixmtligh dt) xlinetmax-
High)/(du)
2ointxmaxlow = 720 + 500 * rmntIxw + 500 * ((ltmaxmtLow*dt)xlireunaxl.ow)/(dt)Din pointmid As I.ong
pointmid = 720 + 500 * gt. + 500 * <Dim YY () A Long
ReDim XX (N) As Long
ReDim YY (N) As Long
Dim kt As Inleger
Dim K A: Integer
For K = 1 T, N
Fot I = To li
H （T(K) =\(tmax
kr = 1
End If
Next I
XX(K)=720+500*k
Dim nyl As Integcr
Dim ry2 As Integer
Dim ny3 As Inleger
Dim ny4 As Integer
Dirn nys As Inicger
* dt) - XIWD) / (dt)
I * dt)) And (T(K) (itmax - (I 1) *dt))) The500 * ((ltrnax
kt dt). T(K)) / (d)
For 1 = ( To ll)
I ((yhigh inini vsmin + I * ds) And (yhigh_min - (vsmin 1 (I + 1) * ds))) Thenny1 - I
I ((yligh nux wstein / I x ds) And (yhigh inex = (vsmin + (I -1) × ds)))Then
y2 = T
End If
$Y/T 0522—2008
If ((ylowminvaminI*ds)And (yluw_mir-(vsmin-(I)ds)))Thenny3=J
Fnd If
If ((ylow_max vsnin + I # ds) And (ylow max - (vsmin 1 (1 - 1) * ds))) Thenny4 - I
End If
((Y_Coordvsmin + 【 * ds) And (Y Coord = (vsmin + (I + 1) × ds))) Thennys = 1
Dim kkkkk As Long
Dim pointylAs Laug
Dim printy2 As Lorng
Dim pointy3 As I.ong
Din piniy4 As Long
kkkkk = 5
pointyl = 5ri4 - kkkkk ny1 - kkkkk * (yhigh_min (vsnin - nyl * ds)) / (ds)
Fuinuy2 - 5640 - kkkkk ny2 - kkkkk * (yhigh rnax -(vsmin 1 ny2 da))/ (ds)
poinuy3 = 5640kkkkk * ny3 = kkkkk # (ylnw_min - (vsmin + ny3 * ds))/ (ds)poimly4 = 5-1 - kkkkk * ny4 - kkkkk* (ylow_maxDim y6 A. Inieger
Far K -I Te N
For I= (i To 10
(vsrrin + ny4 ×ds))/(ds)
I ((S(K) > vsmin + I × ds) And (S(K) = (vsmin. + (I -) * ds}}) Then
nyt- I
Fnel If
Nexi 1
YYPicturel. Cls
Pirturel. AuroRedtaw = True
Pieturei.Line (yointxminl.ow, pointy3).-(pointxanaxLow, ppinty4). vbBlucPicturel. Line (pointxrinHigh. poin:yt) -(rointxrnaxHigth, poitiy2), vhBlueDin pointys As Long
pxinty5 - 5640) - kkkkk * ny5 kkkkk * (Y Coari - (vsmin + nys × ds)) / (eds)Pieure1.1une (720, pointy5) -(poinirnid, pbinty5), RGt <10n. 1o0, 150)Picute1.Ine (pointmid. 564) -(prinirmid, pointy3). RGB (ttK), 100, 150)Pieiurei.FillColor -bRed
Pir:turcl.Filstyle-
Picturel.Cirele（pointrnia.pointy5)，25，vbRed9
小提示：此标准内容仅展示完整标准里的部分截取内容，若需要完整标准请到上方自行免费下载完整标准文档。