31 lines
1.1 KiB
Text
31 lines
1.1 KiB
Text
[ $ "bigrat.qky" loadfile ] now!
|
|
|
|
[ 5 9 v* ] is r->k ( n/d --> n/d )
|
|
[ 1/v r->k 1/v ] is k->r ( n/d --> n/d )
|
|
|
|
[ 45967 100 v- ] is r->f ( n/d --> n/d )
|
|
[ -v r->f -v ] is f->r ( n/d --> n/d )
|
|
|
|
[ 5463 20 v- ] is k->c ( n/d --> n/d )
|
|
[ -v k->c -v ] is c->k ( n/d --> n/d )
|
|
|
|
[ k->r r->f ] is k->f ( n/d --> n/d )
|
|
[ f->r r->k ] is f->k ( n/d --> n/d )
|
|
|
|
[ r->k k->c ] is r->c ( n/d --> n/d )
|
|
[ c->k k->r ] is c->r ( n/d --> n/d )
|
|
|
|
[ f->k k->c ] is f->c ( n/d --> n/d )
|
|
[ c->r r->f ] is c->f ( n/d --> n/d )
|
|
|
|
[ $->v drop
|
|
2dup 10 point$ echo$
|
|
say " Kelvins is equal to" cr
|
|
k->c 2dup 10 point$ echo$
|
|
say " degrees Celcius" cr
|
|
c->f 2dup 10 point$ echo$
|
|
say " degrees Fahrenheit" cr
|
|
f->r 10 point$ echo$
|
|
say " degrees Rankine" cr ] is task ( $ --> )
|
|
|
|
$ "21.00" task
|