#!/usr/athena/bin/perl

$r1 = $ARGV[0];
$r2 = $ARGV[1];

$ra = 10*$r1/($r1+10);
$rp = $r2/($r2+$ra);

$vp = ($rp*30)-15;

print("Vplus (v0=15v): $vp\n");

$rb = 10*$r2/($r2+10);
$rp = $rb/($r1+$rb);
$vp = ($rp*30)-15;

print("Vplus (v0=-15v): $vp\n");