From 627a8943856c70ef12232e5dbaa1397587198f98 Mon Sep 17 00:00:00 2001
From: Martin Michalec <martin@michalec.dev>
Date: Sun, 22 Feb 2026 06:18:43 +0300
Subject: add RS274/NGC samples

---
 res/nist/expressions.nc | 48 ++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)
 create mode 100644 res/nist/expressions.nc

(limited to 'res/nist/expressions.nc')

diff --git a/res/nist/expressions.nc b/res/nist/expressions.nc
new file mode 100644
index 0000000..68e7c16
--- /dev/null
+++ b/res/nist/expressions.nc
@@ -0,0 +1,48 @@
+n0010 g21 g1 x3 f20 (expression test)
+n0020 x [1 + 2] (x should be 3)
+n0030 x [1 - 2] (x should be -1)
+n0040 x [1 --3] (x should be 4)
+n0050 x [2/5] (x should be 0.40)
+n0060 x [3.0 * 5] (x should be 15)
+n0070 x [0 OR 0] (x should be 0)
+n0080 x [0 OR 1] (x should be 1)
+n0090 x [2 or 2] (x should be 1)
+n0100 x [0 AND 0] (x should be 0)
+n0110 x [0 AND 1] (x should be 0)
+n0120 x [2 and 2] (x should be 1)
+n0130 x [0 XOR 0] (x should be 0)
+n0140 x [0 XOR 1] (x should be 1)
+n0150 x [2 xor 2] (x should be 0)
+n0160 x [15 MOD 4.0] (x should be 3)
+n0170 x [1 + 2 * 3 - 4 / 5] (x should be 6.2)
+n0180 x sin[30] (x should be 0.5)
+n0190 x cos[0.0] (x should be 1.0)
+n0200 x tan[60.0] (x should be 1.7321)
+n0210 x sqrt[3] (x should be 1.7321)
+n0220 x atan[1.7321]/[1.0] (x should be 60.0)
+n0230 x asin[1.0] (x should be 90.0)
+n0240 x acos[0.707107] (x should be 45.0000)
+n0250 x abs[20.0] (x should be 20)
+n0260 x abs[-1.23] (x should be 1.23)
+n0270 x round[-0.499] (x should be 0)
+n0280 x round[-0.5001] (x should be -1.0)
+n0290 x round[2.444] (x should be 2)
+n0300 x round[9.975] (x should be 10)
+n0310 x fix[-0.499] (x should be -1.0)
+n0320 x fix[-0.5001] (x should be -1.0)
+n0330 x fix[2.444] (x should be 2)
+n0340 x fix[9.975] (x should be 9)
+n0350 x fup[-0.499] (x should be 0.0)
+n0360 x fup[-0.5001] (x should be 0.0)
+n0370 x fup[2.444] (x should be 3)
+n0380 x fup[9.975] (x should be 10)
+n0390 x exp[2.3026] (x should be 10)
+n0400 x ln[10.0] (x should be 2.3026)
+n0410 x [2 ** 3.0] #1=2.0 (x should be 8.0)
+n0420 ##1 = 0.375 (#1 is 2, so parameter 2 is set to 0.375)
+n0430 x #2 (x should be 0.375) #3=7.0
+n0440 #3=5.0 x #3 (parameters set in parallel, so x should be 7, not 5)
+n0450 x #3 #3=1.1 (parameters set in parallel, so x should be 5, not 1.1)
+n0460 x [2 + asin[1/2.1+-0.345] / [atan[fix[4.4] * 2.1 * sqrt[16.8]] /[-18]]**2]
+n0470 x sqrt[3**2 + 4**2] (x should be 5.0)
+n0480 m2
-- 
cgit v1.3