TIP: Click on subject to list as thread! ANSI
echo: quik_bas
to: MARK NETZEL
from: PAT PRIDGEN
date: 2004-08-25 21:04:00
subject: Pythagorean Triples

MN> I just linked into it the other day, so you can add one more person
  > to the list of people reading the echo.
  > I toy around with qb sometimes, and thought this echo might be
  > interesting.

Welcome to the echo. If you can find a few of us awake, you might actually
get an answer to your questions.

OH.. David, here is an update on the Windchill Formula

I found a more current one recently.

Forgive the VB format, but I switch back and forth between VBdos, and VB


Select Case vers$

Case "M"    'metric

 T = Val(txtTemp.Text)
 V = Val(txtSpeed.Text)

W = 13.13 + 0.62 * T - 13.95 * V ^ 0.16 + 0.486 * T + V ^ 0.16

  If W > T Then W = T

  txtChill.Text = Format$(W, "00.00") + " degs C"

Case "E"     'english

 T = Val(txtTemp.Text)
 V = Val(txtSpeed.Text)


W = 35.74 + 0.6215 * T - 35.75 * V ^ 0.16 + 0.4275 * T * V ^ 0.16

  If W > T Then W = T


  txtChill.Text = Format$(W, "00.00") + " degs F"


End Select




 -- SPEED 2.01 #2289: Blind people don't bungee jump, scares the dog too much
--- Platinum Xpress/Win/WINServer v3.0pr5a
* Origin: FidoTel & QWK on the Web! www.fidotel.com (1:275/311)
SEEN-BY: 633/267 270
@PATH: 275/311 10/345 106/1 2000 633/267

SOURCE: echomail via fidonet.ozzmosis.com

Email questions or comments to sysop@ipingthereforeiam.com
All parts of this website painstakingly hand-crafted in the U.S.A.!
IPTIA BBS/MUD/Terminal/Game Server List, © 2025 IPTIA Consulting™.