CODESYS 瀹炴垬锛氳挋鐗瑰崱缃楁柟娉曡�＄畻鍦嗗懆鐜� 螤

鏃犲績椋炴壃

寮曡█

鍦ㄥ伐涓氳嚜鍔ㄥ寲涓�锛屾帉鎻�CODESYS鐨勭粨鏋勫寲鏂囨湰锛圫T锛夎��瑷�鏄�鎻愰珮缂栫▼鑳藉姏鐨勫叧閿�銆傛湰鏂囧皢浠嬬粛濡備綍浣跨敤 CODESYS 缂栧啓涓�涓�绋嬪簭锛岄�氳繃钂欑壒鍗＄綏鏂规硶杩戜技璁＄畻鍦嗗懆鐜囷紙蟺锛夈�傚府鍔╃敤鎴峰湪瀹炶返涓�瀛︿範鍜岀悊瑙�ST璇�瑷�鐨勫熀鏈�姒傚康鍜屽簲鐢ㄦ柟娉曘��

1绋嬪簭璁捐�℃�濊矾

鍒╃敤闅忔満鐐瑰湪鍗曚綅姝ｆ柟褰�涓�鐨勫垎甯冿紝浼扮畻鍥涘垎涔嬩竴鍦嗙殑闈㈢Н锛屼互姝よ�＄畻蟺銆�

2绋嬪簭浠ｇ爜

[AppleScript] 绾�鏂囨湰鏌ョ湅 澶嶅埗浠ｇ爜

FUNCTION_BLOCK FB_CalculatePi
VAR_INPUT
    NumPoints : DINT := 10000; // 鎬绘ā鎷熺偣鏁�
END_VAR
VAR_OUTPUT
    PiEstimate : REAL; // 鍦嗗懆鐜囦及璁″��
END_VAR
VAR
    PointsInsideCircle : DINT; // 鍦嗗唴鐐硅�℃暟
    i : DINT; // 寰�鐜�璁℃暟鍣�
    x, y : REAL; // 闅忔満鐐圭殑x, y鍧愭爣
    Seed : DINT := 12345; // 闅忔満鏁扮�嶅瓙
END_VAR

// 绾挎�у悓浣欑敓鎴愬櫒
FUNCTION LCG : REAL
VAR
    A : DINT := 1664525;
    C : DINT := 1013904223;
    M : DINT := 2147483647;
END_VAR
Seed := (A * Seed + C) MOD M;
LCG := REAL(Seed) / REAL(M);

(*
鐗堟湰璁板綍锛�
鐗堟湰          鏃ユ湡           浣滆��
 V1         2024-5-3       宸ユ帶鑰佺帇
 V2         2024-10-10     宸ユ帶鑰佺帇
*)


FOR i := 1 TO NumPoints DO
    // 鐢熸垚闅忔満鐐�
    x := LCG();
    y := LCG();
    
    // 妫�鏌ョ偣鏄�鍚﹀湪鍦嗗唴
    IF (x * x + y * y) <= 1.0 THEN
        PointsInsideCircle := PointsInsideCircle + 1;
    END_IF
END_FOR

// 璁＄畻蟺鐨勪及璁″��
PiEstimate := 4.0 * REAL(PointsInsideCircle) / REAL(NumPoints);
PointsInsideCircle := 0;

3浠ｇ爜杩愯��

鍙� 100000 鐐癸紝杩愯�岀粨鏋滀负 3.14232銆傚�炲姞鐐规暟鍙�浠ヤ娇缁撴灉鏇村姞绮剧‘銆�

4浠ｇ爜瑙ｉ噴

鍙橀噺瀹氫箟锛�

• NumPoints锛氱敤浜庢ā鎷熺殑鎬荤偣鏁般��
• PiEstimate锛氳�＄畻寰楀埌鐨勫渾鍛ㄧ巼浼拌�″�笺��
• PointsInsideCircle锛氳惤鍦ㄥ渾鍐呯殑鐐圭殑鏁伴噺銆�
• x銆亂锛氱敓鎴愮殑浼�闅忔満鐐圭殑鍧愭爣銆�
• Seed锛氱敤浜庣敓鎴愪吉闅忔満鏁扮殑绉嶅瓙銆�
  
  

鏍稿績閫昏緫锛�

• 浣跨敤绾挎�у悓浣欑敓鎴愬櫒鐢熸垚浼�闅忔満鏁般��
• 妯℃嫙闅忔満鐐癸紝缁熻�¤惤鍦ㄥ崟浣嶅渾鍐呯殑鐐规暟銆�
• 璁＄畻蟺鐨勪及璁″�硷細蟺 鈮� 4 脳 (鍦嗗唴鐐规暟 / 鎬荤偣鏁�)銆�
  
  

5搴旂敤鍦烘櫙

閫傜敤浜庢暟鍊艰�＄畻鍜岄殢鏈烘ā鎷熺殑鏁欏�﹀満鍚堬紝甯�鍔╃悊瑙ｅ渾鍛ㄧ巼璁＄畻杩囩▼銆�

6寮�婧愮増鏈�璇存槑

璇ョ▼搴忛伒寰�寮�婧愬師鍒欙紝浠讳綍浜洪兘鍙�浠ヤ娇鐢ㄣ�佷慨鏀瑰拰鍒嗗彂姝や唬鐮併�傚湪浣跨敤鍓嶅簲杩涜�屽厖鍒嗙殑娴嬭瘯锛屼慨鏀逛唬鐮佹椂锛岃�风�夋寔鍒嗕韩绮剧�烇紝灏嗘偍鐨勬敼杩涘拰鎴愭灉杩涜�屽垎浜�锛屼互渚挎洿澶氫汉鍙楃泭銆�

鎬荤粨

閫氳繃鏈�娆＄粌涔狅紝鎮ㄤ笉浠呯啛鎮変簡CODESYS ST璇�瑷�鐨勫熀鏈�璇�娉曪紝杩樻帉鎻′簡濡備綍浣跨敤钂欑壒鍗＄綏鏂规硶杩涜�屾暟鍊艰�＄畻銆傝繖鏍风殑瀹炶返鍙�浠ユ湁鏁堟彁鍗囩紪绋嬫妧宸э紝涓鸿В鍐虫洿澶嶆潅鐨勮嚜鍔ㄥ寲闂�棰樺�犲畾鍩虹��銆�