User bio
404 bio not found
Member since Apr 14, 2022
Posts:
Replies:
I simplified the code a bit for testing:
ROUTINE ztest23
Version() quit 20250613
;
; do init^ztest22(100) ; in one irissession
;
; in another irissession:
; do test^ztest23()
;
test(N=1E7) public {
do runOne^ztest23("convertInRunFar",N,.dt1),
runOne^ztest23("convertInBigMacFar",N,.dt2)
write $fnumber(dt2-dt1*100/dt1,"",2)_"% difference",!
}
runOne(pLabel,N=1E7,&dt) public ; kill dt do runOne^ztest23("convertInRunFar",1E7,.dt)
{
if pLabel="convertInRunFar" {
set comment="looping $$convertIn^ztestLib (far)"
}else{
set comment="%New^ztestBigMac, looping $$convertIn^ztestLib (far)"
set convertName=$$%New^ztestBigMac()
}
set convertIny=$zconvert("Маленькая умная Коричневая Лиса прыгает через лежащую сонную Пятнистую Собаку","o","UTF8")
set dt0=$zhorolog for i=1:1:N set convertInx=""
set dt0=($zhorolog-dt0)
set dt1=$zhorolog for i=1:1:N set convertInx=$$convertIn^ztestLib(convertIny,"UTF8")
set dt=($zhorolog-dt1-dt0)*1E6,dt=dt/N
write pLabel,?30,$fnumber(dt,"",3),?45,comment,!
}
IRIS 2025.1 CE
I made 4 launches in a row - the result fluctuates greatly:
USER>set N=1E7 do runOne^ztest22("convertInRunFar",N,.fields) set dt1=$get(fields("dt")) do runOne^ztest22("convertInBigMacFar",N,.fields) set dt2=$get(fields("dt")) w $fn(dt2-dt1*100/dt1,"",2)_"% difference",!
convertInRunFar 0.473 looping $$convertIn^ztestLib (far)
convertInBigMacFar 0.478 %New^ztestBigMac, looping $$convertIn^ztestLib (far)
1.13% difference
USER>set N=1E7 do runOne^ztest22("convertInRunFar",N,.fields) set dt1=$get(fields("dt")) do runOne^ztest22("convertInBigMacFar",N,.fields) set dt2=$get(fields("dt")) w $fn(dt2-dt1*100/dt1,"",2)_"% difference",!
convertInRunFar 0.474 looping $$convertIn^ztestLib (far)
convertInBigMacFar 0.598 %New^ztestBigMac, looping $$convertIn^ztestLib (far)
25.99% difference
USER>set N=1E7 do runOne^ztest22("convertInRunFar",N,.fields) set dt1=$get(fields("dt")) do runOne^ztest22("convertInBigMacFar",N,.fields) set dt2=$get(fields("dt")) w $fn(dt2-dt1*100/dt1,"",2)_"% difference",!
convertInRunFar 0.461 looping $$convertIn^ztestLib (far)
convertInBigMacFar 0.597 %New^ztestBigMac, looping $$convertIn^ztestLib (far)
29.70% difference
USER>set N=1E7 do runOne^ztest22("convertInRunFar",N,.fields) set dt1=$get(fields("dt")) do runOne^ztest22("convertInBigMacFar",N,.fields) set dt2=$get(fields("dt")) w $fn(dt2-dt1*100/dt1,"",2)_"% difference",!
convertInRunFar 0.511 looping $$convertIn^ztestLib (far)
convertInBigMacFar 0.551 %New^ztestBigMac, looping $$convertIn^ztestLib (far)
7.88% difference
USER>
I'm afraid we can't do without the WRC.
Certifications & Credly badges:
Vitaliy has no Certifications & Credly badges yet.
Global Masters badges:
Vitaliy has no Global Masters badges yet.
Followers:
Following:
Vitaliy has not followed anybody yet.
I would like to see a small code example to understand how to help you.
According to the documentation%Projection.AbstractProjection, there is a parameter DisableMulticompile and methods EndCompile, QueueClass. Do you somehow use them in your code?