1 / 15

MSCR Results in Oklahoma

Summary of MSCR test results in Oklahoma, including data reporting and rounding, trends observed, and conclusions drawn. The Excel macro function used for computing MSCR grade is also explained.

thompsond
Download Presentation

MSCR Results in Oklahoma

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript


  1. MSCR Results in Oklahoma Kenneth Ray Hobson, P.E August 25, 2011 SEAUPG Webinar

  2. Summary • Data • Reporting / Rounding • Trends • Conclusions • Excel Macro Function • TA Instruments

  3. Data ER% = ASTM D 6084, 77 oF, RTFO

  4. Data ER% = PG 70-28 Min. 65, PG 76-28 Min. 75

  5. Reporting / Rounding • Data in Excel File Reported, Not Rounded • Computations Used Full Values • AASHTOTP 70-4, 8.1.3. • Percent Recovery Data in Red: Vs.

  6. Reporting / Rounding • Percent Recovery Data in Red: • 9.1.2. PG Grade to nearest 0.1 oC? Shown as -1.945 by TA Instruments, -2 in spreadsheet

  7. Reporting / Rounding

  8. Trends PG 76-28 = PG 64-28 E

  9. Trends PG 70-28  PG 64-28 E

  10. Trends PG 64-22  PG 64-22 S

  11. Trends • Most PG 70-28’s and All PG 76-28’s Grade as PG 64-28 E • Jnr3.2 > 4.0 kPa-1 (4 of 12 PG 64-22) • Not PG 64-22 S • Jnr3.2< 0.0 kPa-1 (8 of 12 PG 76-28)

  12. conclusions • R3.2 Limit Needed for: PG 70-28 and PG 76-28 - (60 Min. and 80 Min.?) • Other PG Grade Data Needed for R3.2 Limits • Do Not Round Computations Except for Limit Comparisons

  13. Excel Macro Function Function MSCRGrade(PG As String, TestTemp As Double, Jnr32 As Double, JnrDiff As Double) As String Dim iTestTemp As Double, iJnr32 As Double, iJnrDiff As Double Dim sColdTemp As String, suffix As String Application.Volatile iTestTemp = Round(TestTemp) sColdTemp = Split(PG, "-")(1) iJnr32 = WorksheetFunction.Round(Jnr32, 2) iJnrDiff = WorksheetFunction.Round(JnrDiff, 1) Select Case (True) Case iJnr32 < 0.5 And iJnrDiff <= 75: suffix = "E" Case iJnr32 <= 1 And iJnrDiff <= 75: suffix = "V" Case iJnr32 <= 2 And iJnrDiff <= 75: suffix = "H" Case iJnr32 <= 4 And iJnrDiff <= 75: suffix = "S" Case Else suffix = "NA" End Select If suffix = "NA" Then MSCRGrade = "" Else MSCRGrade = "PG " & iTestTemp & "-" & sColdTemp & " " & suffix End If End Function

More Related