SiePortal

The integrated platform for your product selection, buying and support workflow - bringing together Industry Mall and Online Support.

Products & Services
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
Support Support
{{(apiData.Support | filter:{'rank':1}:true)[0].title}} Support
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
MySiePortal MySiePortal
{{(apiData.MySiePortal | filter:{'rank':1}:true)[0].title}} MySiePortal
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
Cart ({{apiData.CartCount}})

Navigation

SCL sample program.

6/5/2013 3:05 PM	Rate (0)
Dob Posts: 40 Rating: (0)	Hi. Just trying to mess up with SCL, could anybody upload a code sample/program. Thanks.
Dob Posts: 40 Rating: (0)
Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users William_B

6/5/2013 6:04 PM	Rate (2)
smiffy Platinum Expert Joined: 1/17/2007 Last visit: 3/10/2025 Posts: 1557 Rating: (540)	Here is an example of a 2-D interpolator. I hope it helps. [code] FUNCTION_BLOCK FBXXX CONST NUM_DATA_PTS := 12; END_CONST VAR_INPUT X : REAL; END_VAR VAR_OUTPUT Y : REAL; END_VAR VAR TableData : STRUCT XData : ARRAY [0..NUM_DATA_PTS - 1] OF REAL := 800, 900, 1000, 1100, 1150, 1200, 1250, 1300, 1350, 1400, 1450, 1500; YData : ARRAY [0..NUM_DATA_PTS - 1] OF REAL := 0.553, 0.681, 0.786, 0.868, 0.901, 0.930, 0.953, 0.971, 0.986, 0.996, 1.000, 1.000; END_STRUCT; XIndex : INT; END_VAR BEGIN IF X < TableData.XData[0] THEN Y := TableData.YData[0]; ELSE IF X > TableData.XData[NUM_DATA_PTS - 1] THEN Y := TableData.YData[NUM_DATA_PTS - 1]; ELSE XIndex := 1; WHILE (XIndex < NUM_DATA_PTS) AND (X >= TableData.XData[XIndex]) DO XIndex := XIndex + 1; END_WHILE; Y := ((X - TableData.XData[XIndex - 1]) * (TableData.YData[XIndex] - TableData.YData[XIndex - 1]) / (TableData.XData[XIndex] - TableData.XData[XIndex - 1]) + TableData.YData[XIndex - 1]); END_IF; END_IF; END_FUNCTION_BLOCK [/code]
	Programming today is the race between software engineers building bigger and better idiot proof programs, and the universe producing bigger and better idiots. So far, the universe is winning...
Suggestion To thank Quote Answer
This contribution was helpful to 2 thankful Users pesraj OMKRIS2017

6/6/2013 6:04 PM	Rate (0)
Dob Posts: 40 Rating: (0)	Thank you.
Dob Posts: 40 Rating: (0)
Suggestion To thank Quote Answer

6/7/2013 3:18 PM	Rate (0)
Denilson Pegaia Platinum Expert Joined: 9/23/2005 Last visit: 3/14/2025 Posts: 4406 Rating: (1475)	Hi, take a look also at more
	Denilson Pegaia Siemens Industry Sector Technical Support
Suggestion To thank Quote Answer

2/1/2014 1:05 PM	Rate (0)
jeetendra Experienced Member Joined: 8/30/2010 Last visit: 1/21/2025 Posts: 31 Rating: (1)	Really Good One. Thanks.

Suggestion To thank Quote Answer