PLC Benchmarking

kamenges said:
You and I have somewhat different views on the quantity inferred by "slightly".
Click to expand...
Probably. :) Since the numbers are there, people can draw their own conclusions.

kamenges said:
The logic posted above is running at 103 msec in the L71. What are you seeing?
Click to expand...
I have packed the PLC away for today. Maybe I get time to do it tomorrow.

edit: In S7, "TRUE" and "FALSE" are keywords.
 
1756-L85E v28

MathTest : 6.0
IndexTest : 3.7
BitwiseTest : 2.6


Tried to attach the RSLogix file, but it was too big.
 
Last edited:
Revised numbers on updated tests for
1769-L18ER v24

MathTest : 348.0
IndexTest : 131
BitwiseTest : 148


I have to say that I was surprised the L24ER was faster. I was thinking the L18 and L24 had the same processor, only more memory and embedded IO.
 
Last edited:
Archie said:
After seeing the differences in indexing arrays and ANDing, I think the test should be revised:

Math Test stays the same:
Code: 
FOR i:=0 TO 99999 DO
	DINTResult:=(Real1*Real2);
END_FOR;
Click to expand...

@Archie
What values are you using defaulting Real1 and Real2 too?

Running Math Test on an NJ101
Real1 and Real2 set at 0
32ms
Real1 and Real2 non-zero
89ms
 
Results + code for S7-1517F
Code: 
CASE "TestType" OF
    1:  //indexed multiply with non-zero data - 19ms
        FOR #diIndex := 0 TO 99999 DO
            "dbResult".arData[#diIndex] := REAL_TO_DINT("dbData1".arData[#diIndex] * "dbData2".arData[#diIndex]);
        END_FOR;
        
    2:  //non indexed multiply with non-zero data - 14.5ms
        #rData1 := 100.0;
        #rData2 := 1000.0;
        FOR #diIndex := 0 TO 99999 DO
            #diResult := REAL_TO_DINT(#rData1 * #rData2 );
        END_FOR;
        
    3:  // some trig functions - 13.5ms
        #rData1 := 0.1;
        #rData2 := 0.2;
        FOR #diIndex := 0 TO 99999 DO
            #diResult := REAL_TO_DINT(TAN(#rData1) * TAN(#rData2));
        END_FOR;
        
    4:  //non indexed multiply with non-zero data, more calcs, for loop smaller - 14.2ms
        #rData1 := 1000.0;
        #rData2 := 100.0;
        FOR #diIndex := 0 TO 9999 DO
            #diResult := REAL_TO_DINT(#rData1 * #rData2);
            #diResult := REAL_TO_DINT(#rData1 * #rData2);
            #diResult := REAL_TO_DINT(#rData1 * #rData2);
            #diResult := REAL_TO_DINT(#rData1 * #rData2);
            #diResult := REAL_TO_DINT(#rData1 * #rData2);
            #diResult := REAL_TO_DINT(#rData1 * #rData2);
            #diResult := REAL_TO_DINT(#rData1 * #rData2);
            #diResult := REAL_TO_DINT(#rData1 * #rData2);
            #diResult := REAL_TO_DINT(#rData1 * #rData2);
            #diResult := REAL_TO_DINT(#rData1 * #rData2);
        END_FOR;
        
    5:  //non indexed divide with non-zero data - 14.9ms
        #rData1 := 1000.0;
        #rData2 := 100.0;
        FOR #diIndex := 0 TO 99999 DO
            #diResult := REAL_TO_DINT(#rData1 / #rData2);
        END_FOR;
        
    6:  //non indexed multiply with zero data - 7.5ms
        #rData1 := 0.0;
        #rData2 := 0.0;
        FOR #diIndex := 0 TO 99999 DO
            #diResult := REAL_TO_DINT(#rData1 * #rData2);
        END_FOR;
        
    7:  //Boolean logic - 1ms    
        FOR #diIndex := 0 TO 99999 DO
            #boolvar_1 := (#boolvar_2 AND #boolvar_3) OR (#boolvar_4 AND #boolvar_5); // logic --(=)
            IF (#boolvar_6 AND #boolvar_7) THEN
                #boolvar_10 := TRUE; // logic --(S)
            END_IF;
            IF (#boolvar_8 OR #boolvar_9) THEN
                #boolvar_10 := FALSE; // logic --(R)
            END_IF;
        END_FOR;
        
    8:  //Bitwise operation - 1ms
        FOR #diIndex:=0 TO 99999 DO
            #diResult := #diIndex AND 2730; //* Every other bit FOR 12 bits
        END_FOR;
        
    9: //bubble sort - 26ms
        #Result[0] := 2;
        #Result[999] := -1;
        
        REPEAT
            #swapped := 0;
            FOR #diIndex := 1 TO 999 DO
                IF (#Result[#diIndex - 1] > #Result[#diIndex]) THEN
                    #Temp := #Result[#diIndex];
                    #Result[#diIndex] := #Result[#diIndex - 1];
                    #Result[#diIndex - 1] := #Temp;
                    #swapped := 1;
                END_IF;
            END_FOR;
        UNTIL (NOT #swapped)
        END_REPEAT;
        
    10:  //initialise array of data to non-zero values
        FOR #diIndex := 0 TO 99999 DO
            "dbData1".arData[#diIndex] := DINT_TO_REAL(#diIndex) / 100.0;
            "dbData2".arData[#diIndex] := DINT_TO_REAL(#diIndex) / 50.0;
        END_FOR;
        
        
END_CASE;
 
Results + code for S7-319F


Code: 
FUNCTION fc1:VOID
VAR_TEMP
    i:INT;
    iIndex:INT;
    diIndex:DINT;
    diResult:DINT;
    TestType, temp:INT;
    rData1,rData2:REAL;
    swapped:BOOL;
    boolvar_1:BOOL;
    boolvar_2:BOOL;
    boolvar_3:BOOL;
    boolvar_4:BOOL;
    boolvar_5:BOOL;
    boolvar_6:BOOL;
    boolvar_7:BOOL;
    boolvar_8:BOOL;
    boolvar_9:BOOL;
    boolvar_10:BOOL;
    Result:ARRAY[0..999] OF INT;
    
END_VAR
testType:=9;
CASE TestType OF
    1:  //indexed multiply with non-zero data - 85ms
        FOR iIndex := 0 TO 9999 DO
            FOR i:=0 TO 9 do
             "dbResult".diData[iIndex] := REAL_TO_DINT("dbData1".arData[iIndex] * "dbData2".arData[iIndex]);
            end_For;
        END_FOR;
        
    2:  //non indexed multiply with non-zero data - 21ms
        rData1 := 100.0;
        rData2 := 1000.0;
        FOR diIndex := 0 TO 99999 DO
            diResult := REAL_TO_DINT(rData1 * rData2 );
        END_FOR;
        
    3:  // some trig functions - 160ms
        rData1 := 0.1;
        rData2 := 0.2;
        FOR diIndex := 0 TO 99999 DO
            diResult := REAL_TO_DINT(TAN(rData1) * TAN(rData2));
        END_FOR;
        
    4:  //non indexed multiply with non-zero data, more calcs, for loop smaller - 14.0ms
        rData1 := 1000.0;
        rData2 := 100.0;
        FOR diIndex := 0 TO 9999 DO
            diResult := REAL_TO_DINT(rData1 * rData2);
            diResult := REAL_TO_DINT(rData1 * rData2);
            diResult := REAL_TO_DINT(rData1 * rData2);
            diResult := REAL_TO_DINT(rData1 * rData2);
            diResult := REAL_TO_DINT(rData1 * rData2);
            diResult := REAL_TO_DINT(rData1 * rData2);
            diResult := REAL_TO_DINT(rData1 * rData2);
            diResult := REAL_TO_DINT(rData1 * rData2);
            diResult := REAL_TO_DINT(rData1 * rData2);
            diResult := REAL_TO_DINT(rData1 * rData2);
        END_FOR;
        
    5:  //non indexed divide with non-zero data - 25ms
        rData1 := 1000.0;
        rData2 := 100.0;
        FOR diIndex := 0 TO 99999 DO
            diResult := REAL_TO_DINT(rData1 / rData2);
        END_FOR;
        
    6:  //non indexed multiply with zero data - 21ms
        rData1 := 0.0;
        rData2 := 0.0;
        FOR diIndex := 0 TO 99999 DO
            diResult := REAL_TO_DINT(rData1 * rData2);
        END_FOR;
        
    7:  //Boolean logic - 20ms    
        FOR diIndex := 0 TO 99999 DO
            boolvar_1 := (boolvar_2 AND boolvar_3) OR (boolvar_4 AND boolvar_5); // logic --(=)
            IF (boolvar_6 AND boolvar_7) THEN
                boolvar_10 := TRUE; // logic --(S)
            END_IF;
            IF (boolvar_8 OR boolvar_9) THEN
                boolvar_10 := FALSE; // logic --(R)
            END_IF;
        END_FOR;
        
    8:  //Bitwise operation - 18ms
        FOR diIndex:=0 TO 99999 DO
            diResult := DWORD_TO_DINT(DINT_TO_DWORD(diIndex) AND dw#16#aaa); //* Every other bit FOR 12 bits
        END_FOR;
        
    9: //bubble sort - 456ms
        Result[0] := 2;
        Result[999] := -1;
        
        REPEAT
            swapped := 0;
            FOR diIndex := 1 TO 999 DO
                IF (Result[diIndex - 1] > Result[diIndex]) THEN
                    Temp := Result[diIndex];
                    Result[diIndex] := Result[diIndex - 1];
                    Result[diIndex - 1] := Temp;
                    swapped := 1;
                END_IF;
            END_FOR;
        UNTIL (NOT swapped)
        END_REPEAT;
        
    10:  //initialise array of data to non-zero values
        FOR diIndex := 0 TO 9999 DO
            "dbData1".arData[diIndex] := DINT_TO_REAL(diIndex) / 100.0;
            "dbData2".arData[diIndex] := DINT_TO_REAL(diIndex) / 50.0;
        END_FOR;
        
        
END_CASE;
end_function
 
chelton said:
@Archie
What values are you using defaulting Real1 and Real2 too?

Running Math Test on an NJ101
Real1 and Real2 set at 0
32ms
Real1 and Real2 non-zero
89ms
Click to expand...
That's an interesting finding I never would have expected. I was testing with values at 0. I will revise the math test and run my tests again.
 
LD, I will use your code for performing my further tests.

Btw, looks like a 1517 easily beats a 319, except for boolean logic !
Have you tested with optimized or non-optimized blocks ?
 
LD..... Can you post a complete part number or a link to the PLC you tested with. I'm interested in checking out the specs. It looks like quite a fast PLC.
 
geniusintraining said:
The strange thing is the 319f has a part number of a 318 :confused:
Click to expand...
Indeed that is strange. But that is how it is (was). My guess is they planned for a CPU above 319, but then they would run out of numbers since there are only 3 available digits in their system. The PLC above 319 never became reality. Just my (conspiracy) theory.

For your information, list price for the 319F is approx 5700 €, and 1517F is approx 5300 €.
 
I only reran the non-indexed math test with non-zero numbers. That came in at 298 msec on the L71. This compares with roughly 280 msec for the same test with zero values. Since they were that close in total time I didn't try any of the other variants.

Rockwell is obviously not performing an optimization that other manufacturers are. The S7-1517 shows a 2:1 difference in scan time for zero versus non-zero values.

Keith
 

Similar Topics

M
HOW to communicate with OPTIX and Mitsubishi's Q Series PLC?? PLEASE HELP ME
HOW to communicate with OPTIX and Mitsubishi's Q Series PLC?? PLEASE HELP ME
Replies
0
Views
15
MIIN
M
S
Plc power indicator on but run and error indicators off
Hello..I am new to Plc.I have Mitsubishi Melsec Fx3Ga-40MR PLC controlling a machine for packing powder.Currently the Plc has issue which power...
Replies
1
Views
54
parky
P
K
use Simotion D ethernet port as gate to access S7-1500 plc program
Can we use a Simotion D455 ethernet port x127 as a gate, to access S7-1500 plc Tia Portal program ? In the Simatic manager, we used Netpro to do...
Replies
2
Views
68
mk42
M
J
cheap dual pump water booster simulation build parts PLC VFD PID
Hi, I would like to assemble a simulator/practice booster pump system that uses PID to maintain steady water pressure under various outlet demands...
Replies
0
Views
62
JoeM61
J
C
Tank water level scaling in PLC
I want to measure the tank level and get the sensor output to the PLC. Below are the details : Tank Height =0 - 3m, the sensor is stalled 0,2m...
Replies
12
Views
430
drbitboy
drbitboy
Back
Top Bottom