Lab 2: tcl and otcl Scripts

2.a. Fractorial Computation
Program in tcl to obtain the value of 10! = 10 * 9 * ... * 1?

Create lab2a.tcl:

proc Factorial {x} {
    set result 1
    
      ... FILL IN ...

    return $result
}

set result [Factorial 10]
puts "$result"

prompt>ns lab2a.tcl
3628800

2.b. Multiplying and Dividing
Program in otcl to multiply or divide integer and real numbers.

Create lab2b.tcl:

Class Real

Real instproc init {x} {
    $self instvar value_
    set value_ $x
}

Real instproc multiply {x} {
      ... FILL IN ...    
}

Real instproc divide {x} {
    $self instvar value_
    puts [expr $value_ / [$x set value_]]
}


Class Integer -superclass Real

Integer instproc divide {x} {
      ... FILL IN ...    
}

set realA [new Real 12.3]
set realB [new Real 0.5]

$realA multiply $realB
$realA divide $realB

set integerA [new Integer 12]
set integerB [new Integer 5]

$integerA multiply $integerB
$integerA divide $integerB
    
    

prompt>ns lab2b.tcl
6.1500000000000004
24.600000000000001
60
2...2

2.c. Multiplying Complex Numbers (a+bi)

References:

• The main VINT/ns page
• The tcl documentation page
• The otcl tutorial page