<% ' 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 %>
" data-keywords="<%=funnelbackKeywords%>" data-research="<%=funnelbackResearch%>" data-subject="<%=funnelbackSubject%>" data-year="<%=Left("2022-04-27", 4)%>" data-imgAlt="boat" data-imgSrc="https://www.hw.ac.uk/news-archive/2022/img/boat2.jpg" data-imgCaption="">

Published:

Share:

<% newsWidth = 900 newsRatio = CInt("1070") / CInt("763") newsHeight = CInt(newsWidth / newsRatio) ' /news-archive/2022/img/boat2.jpg %> boat

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 %> <% else %>

<%=fullName%>

<% if jobTitle <> "" and jobTitle <> name then %>
Job title
<%=jobTitle%>
<% end if if phone <> "" then %>
Phone
<%=phone%>
<% end if if email <> "" then %>
Email
<%=email%>
<% end if %>
<% 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 %>