2013年8月1日木曜日

superbee

'Xojo
’引数r
'
  dim r1 as double
  dim r2 as double
  dim r3 as double
  dim rmax as double
  r1 = 0.0
  if 2*r>=1 then
    r2 =1.0
  else
    r2 = 2*r
  end if
  if r>2 then
    r3 =2
  else
    r3 = r
  end if
 
  if r1 >r2 then
    rmax = r1
  else
    rmax = r2
  end if
 
  if rmax > r3 then
    return rmax
  else
    return r3
  end if

0 件のコメント:

コメントを投稿