614
« on: January 07, 2011, 04:06:11 PM »
Thanks Tom for the help with ScriptBasic. I understand your reluctance to invest any time with Windows. I have only visited my Windows XP partition twice in the last few months. It becomes obvious that Windows is a bloated kludge with more layers than an onion. Linux just works and I'm not always pulling out my wallet to upgrade a package or pay for another year of subscription services. I hope Microsoft wakes up to the fact that their screwed knowing that people have an option outside their monopoly. I posted your MathTest script so others can get an idea what your enhancements bring to the table. My plan over the next month or so is to put in place a solid source control system. I'm still looking at all the options. I don't want to do this more than once.
'
' Given the starting value of 34 degrees, calculate radians.
' Given the radian value, calculate TAN, COTAN, SECANT and COSECANT.
' Given the TAN, COTAN, SECANT and COSECANT values,
' calculate the ATAN, ACTAN, ASECANT and ACOSECANT.
'
degval = 34
radval = RAD(degval)
zerval = 0
tanval = TAN(radval)
cotval = COTAN(radval)
secval = SECANT(radval)
cseval = COSECANT(radval)
ataval = ATAN(tanval)
actval = ACTAN(cotval)
aseval = ASECANT(secval)
acoval = ACOSECANT(cseval)
hsinv = HSIN(radval)
hcosv = HCOS(radval)
htanv = HTAN(radval)
hsecv = HSECANT(radval)
hcosc = HCOSECANT(radval)
hcotv = HCTAN(radval)
print "\nThe following 8 functions accept radians as their argument, so we "
print "use the\nnew RAD() function to convert ",degval," degrees to ",radval," (",str$(radval),") radians.\n\n"
print "Tangent\t\tCotangent\tSecant\t\tCosecant\n"
print "TAN() \t\tCOTAN() \tSECANT() \tCOSECANT()\n"
print tanval," \t",cotval,"\t",secval," \t",cseval,"\n"
print str$(tanval)," \t",str$(cotval)," \t",str$(secval)," \t",str$(cseval),"\n\n"
print "Arctangent\tArccotangent\tArcsecant\tArccosecant\n"
print "ATAN() \tACTAN() \tASECANT()\tACOSECANT()\n"
print ataval," \t",actval," \t",aseval," \t",acoval,"\n"
print str$(ataval)," \t",str$(actval)," \t",str$(aseval)," \t",str$(acoval),"\n\n"
print "There are 6 Hyperbolic functions. They also accept radian arguments.\n\n"
print "H-Sine\t\tH-Cosine\tH-Tangent\n"
print "HSIN()\t\tHCOS() \tHTAN()\n"
print hsinv," \t",hcosv," \t",htanv,"\n"
print str$(hsinv)," \t",str$(hcosv)," \t",str$(htanv),"\n\n"
print "H-Secant\tH-Cosecant\tH-Cotangent\n"
print "HSECANT()\tHCOSECANT()\tHCTAN()\n"
print hsecv," \t",hcosc," \t",hcotv,"\n"
print str$(hsecv)," \t",str$(hcosc)," \t",str$(hcotv),"\n\n"
Show Posts
