-
Notifications
You must be signed in to change notification settings - Fork 1
/
test.scm
37 lines (26 loc) · 1.29 KB
/
test.scm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
(import unitconv)
(define-unit-prefix milli second ms)
(define-unit-prefix milli volt mV)
(define-unit-prefix milli amp mA)
(define-unit-prefix nano amp nA)
(define-unit-prefix micro siemens uS)
(define-unit-prefix milli mole mM)
(define-unit-prefix micro farad uF)
(define-unit-prefix micro siemens uS)
(define-quantity CurrentDensity (/ Current Area))
(define-quantity CapacitanceArea (/ Capacitance Area))
(define-quantity ConductanceArea (/ Conductance Area))
(define-quantity Resistivity (* Resistance Length))
(define-unit milliamp-per-square-centimeter CurrentDensity (/ mA (* cm cm)) mA/cm2)
(define-unit microfarad-per-square-centimeter CapacitanceArea (/ uF (* cm cm)) uf/cm2)
(define-unit siemens-per-square-centimeter ConductanceArea (/ S (* cm cm)) S/cm2)
(define-unit ohm.cm Resistivity (* ohm cm) ohm.cm)
(define-unit amp-per-square-meter CurrentDensity (/ A (* m m)) A/m2)
(print milliamp-per-square-centimeter)
(print amp-per-square-meter)
(print (unit-convert amp-per-square-meter milliamp-per-square-centimeter))
(print Frequency)
(print (unit* millisecond hertz))
(print (quantity-int (unit-dims (unit* millisecond hertz))))
(print (unit-convert week second))
(print tesla)