%
' container
targetContainer = true
targetContainerHeadline = "Laser textured discs improve marine engine performance"
targetContainerUrl = "/news-archive/2022/laser-textured-discs-improve-marine-engine.htm"
%>
<% splitKeywords = Split("Alumni and Development;Research;Edinburgh;External;Article;Institute of Photonics and Quantum Sciences;Engineering and Physical Sciences;2022", ";")
splitCategoryKeywords = Split("Audience:Alumni and Development;Audience:Research;Campus:Edinburgh;News/events audience:External;PageType:Article;Research Institute:Institute of Photonics and Quantum Sciences;School:Engineering and Physical Sciences;System:2022", ";")
bannedList = "Noticeboard*News*Article*External*2023*2022*2021*2020*2019"
whitelistKeywords = Array("Alumni and Development", "Athena Swan", "Business and Industry", "Conferences", "Graduate Apprenticeships", "Graduation", "Open Days", "Public Engagement", "Research")
whitelistTheme = Array("Brewing and Distilling", "Design thinking", "Earth and Marine", "Health and care", "Lyell Centre", "Mathematical and Computer Sciences", "National Robotarium", "Panmure House", "Social Inclusion", "Sustainability and Net Zero")
metaKeywords = ""
for each x in splitCategoryKeywords
tempCatKey = Split(x, ":")
tempCategory = tempCatKey(0)
tempKeyword = tempCatKey(1)
tempSchool = ""
tempResearch = ""
tempSubject = ""
' campus
if tempCategory = "Campus" then
funnelbackGscope = funnelbackGscope & "|" & "campus-" & LCase(Replace(tempKeyword, " ", ""))
' brand
elseif tempCategory = "School" then
if tempKeyword = "Edinburgh Business School" then
tempSchool = "ebs"
elseif tempKeyword = "Textiles and Design" then
tempSchool = "tex"
end if
if tempSchool <> "" then
funnelbackGscope = funnelbackGscope & "|" & "brand-" & tempSchool
end if
' research
elseif tempCategory = "Research Institute" then
funnelbackResearch = funnelbackResearch & "|" & tempKeyword
' subject
elseif tempCategory = "Subject" or tempCategory = "Subject area" then
funnelbackSubject = funnelbackSubject & "|" & tempKeyword
' generic
'elseif instr(bannedList, tempKeyword) = 0 then
else
for each z in whitelistKeywords
if tempKeyword = z or instr(tempKeyword, z) > 0 or instr(z, tempKeyword) > 0 then
dataKeywords = dataKeywords & "|" & z
%><%
exit for
end if
next
for each z in whitelistTheme
if tempKeyword = z or instr(tempKeyword, z) > 0 or instr(z, tempKeyword) > 0 then
dataKeywords = dataKeywords & "|" & z
%><%
exit for
end if
next
end if
next
if funnelbackGscope = "" then
funnelbackGscope = "campus-uk"
else
funnelbackGscope = Replace(funnelbackGscope, "Edinburgh Business School", "ebs")
funnelbackGscope = Replace(funnelbackGscope, "Textiles and Design", "tex")
end if
funnelbackGscope = funnelbackGscope & "|featured-article"
funnelbackKeywords = dataKeywords
useCreated = "2022-04-27"
useCreatedPretty = "27 Apr 2022"
if "" <> "" then
useCreated = ""
useCreatedPretty = Right("", 2) & " " & MonthName(CInt(Mid("", 6, 2)), true) & " " & Left("", 4)
end if %>
A laser-textured friction disc could reduce maintenance costs and downtime for the biggest ships sailing on the oceans.
Man Energy Solutions tested laser-textured friction discs on its two-stroke engines on two ships sailing from Europe to Asia.
Friction discs transfer power in engines and act as a safety device. They need to sustain a precise amount of friction: too much and the gear can be overloaded, too little and there could be premature slippage.
Currently, discs are treated with a thermal spray coating to help them create friction. However, this method isn't as precise as the engine and the industry need.
Scientists from Heriot-Watt University in Edinburgh worked with Man Energy Solutions and TRD Surfaces in Denmark to develop a new laser-texturing process for the discs.
The innovation was funded through the European Union SHARK project, which aims to industrialise laser texturing.
Professor Duncan Hand from Heriot-Watt University said: “Using lasers means we can create precise, uniform and replicable textures on the discs.
“We used laser pulses to experiment with different patterns, shapes, spacing and depths, with the aim of creating a new surface that would have a good grip on its counterpart.”
The high-friction concept was combined with a surface hardening process, carried out by TRD Surfaces. It effectively freezes the textured surface to ensure it doesn't deform when it comes into contact with its counterpart.
The technique was tested extensively in the laboratory at Heriot-Watt and then on a specialist demonstrator.
Hand said: “We achieved a much higher and more reproducible friction coefficient than we had expected.
“Improving the performance of the discs means significant savings on maintenance costs, which the shipping industry will welcome.”
Jesper Vejlø Carstensen from Man Energy Solutions said: “We needed a better solution for one of our high-friction components.
“After joining forces with Heriot-Watt and TRD Surfaces, we now have a precise, controllable and reproducible solution. As a vital add-on, we can perform non-destructive quality control of every part, and are installing the laser surface textured high friction discs in engines ”
MAN Energy Solutions have commercialised the innovation with TRD Surfaces as the supplier of the laser textured friction discs.
<% if "Key info - Contact" = "Key info" then %>
<% ADname = ""
if ADname <> "" then %>
<%
if ADname <> "" then
Set oCon = Server.CreateObject("ADODB.Connection")
sUser = "cn=opentextuser,cn=Users,dc=hw,dc=ac,dc=uk"
sPassword = "Fr56+Mx"
oCon.Provider = "ADsDSOObject"
oCon.Open "ADProvider", sUser, sPassword
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
'sDomainADsPath = "LDAP://dc06.hw.ac.uk:389/DC=hw,DC=ac,DC=uk"
sDomainADsPath = "LDAP://LDAP-ED.hw.ac.uk:389/DC=hw,DC=ac,DC=uk"
sProperties = "givenName,SN,displayName,title,mail,telephoneNumber,facsimileTelephoneNumber,department,physicalDeliveryOfficeName,hwCampus"
oCmd.CommandText = "<" & sDomainADsPath & ">;(&(objectCategory=person)(objectClass=user)(sAMAccountName=" & ADname & "));" & sProperties & ";subtree"
oCmd.Properties("Page Size") = 100
Set rs = oCmd.Execute
While Not rs.EOF
fullName = rs("givenName") & " " & rs("SN")
displayName = rs("displayName")
email = rs("mail")
phone = rs("telephoneNumber")
jobTitle = rs("title")
department = rs("department")
roomNumber = rs("physicalDeliveryOfficeName")
campusName = rs("hwCampus")
rs.MoveNext
Wend
rs.Close
oCon.Close
Set rs = Nothing
Set oCon = Nothing
end if
%>
<% else
fullName = "Sarah McDaid"
email = "sarah@mcdaidpr.co.uk"
phone = ""
jobTitle = ""
end if
' international phone format
if phone <> "" then
if Left(phone,2) = "01" then
phone = Replace(phone,"01","+44 1")
end if
end if
' lower-case email
if email <> "" then
email = LCase(email)
end if
%>
<% if fullName <> "" then
if template = "course" then %>
<% end if
end if %>
<% else %>
<% end if %>
<%
' Force aside tag on main page
customFeatured = "yes"
%>
<%
function getRobots()
getRobots = "index"
end function
function getCanonical()
getCanonical = "https://www.hw.ac.uk/news-archive/2022/laser-textured-discs-improve-marine-engine.htm"
end function
function getPreload()
getPreload = ""
getPreload = ""
getPreload = ""
end function
function getMeta()
tempMeta = tempMeta & ""
tempMeta = tempMeta & ""
tempMeta = tempMeta & ""
tempMeta = tempMeta & ""
tempMeta = tempMeta & ""
tempMeta = tempMeta & ""
tempMeta = tempMeta & ""
tempMeta = tempMeta & ""
tempMeta = tempMeta & ""
if "" = "" then
tempMeta = tempMeta & ""
if "2022-04-27" <> "2024-03-18" then
tempMeta = tempMeta & ""
end if
else
tempMeta = tempMeta & ""
end if
tempMeta = tempMeta & tempKeywords
getMeta = tempMeta
end function
%>