0 Members and 2 Guests are viewing this topic.
Define LibPub convert(str,str2)=Prgm:©convert("value","unit"): Unit conversion:::Local out,num,expr1,expr2:setMode(4,3)::If getType(str)≠"STR" or getType(str2)≠"STR": error("argument")::If inString(str&str2,"+")≠0 or inString(str&str2,"-")≠0: error("syntax")::©No dimension:Local none:1→none::©Length units:Local ang,au,cm,fath,fm,ft,in,km,ltyr,m,μ,mi,mil,mm,nmi,pc,rod,yd,å:1.*^(*√(2))→m:1.−10*m→ang:149597900000*m→au:0.01*m→cm:1.8288*m→fath:1.−15*m→fm:0.3048*m→ft:0.0254*m→in:1000.*m→km:9.4605284048815*m→ltyr:1.−6*m→μ:1609.344*m→mi:2.54−5*m→mil:0.001*m→mm:1852.*m→nmi:3.08567816*m→pc:5.0292*m→rod:0.9144*m→yd:1.−10*m→å:::©Area units:Local acre,ha:4046.8564224*m^(2)→acre:10000.*m^(2)→ha:::©Volume units:Local cup,floz,flozuk,gal,galuk,l,ml,pt,qt,tbsp,tsp:2.365882365−4*m^(3)→cup:2.95735295625−5*m^(3)→floz:2.84130625−5*m^(3)→flozuk:0.003785411784*m^(3)→gal:0.00454609*m^(3)→galuk:0.001*m^(3)→l:1.−6*m^(3)→ml:4.73176473−4*m^(3)→pt:9.46352946−4*m^(3)→qt:1.47867647813−5*m^(3)→tbsp:4.92892159375−6*m^(3)→tsp:::©Time units:Local day,hr,μs,minute,ms,ns,s,week,yr:^(*√(3))→s:86400.*s→day:3600.*s→hr:1.−6*s→μs:60.*s→minute:0.001*s→ms:1.−9*s→ns:604800.*s→week:31556925.9747*s→yr:::©Velocity units:Local knot,kph,mph:0.514444444444*((m)/(s))→knot:0.277777777778*((m)/(s))→kph:0.44704*((m)/(s))→mph::©Temperature units:Local θk,θc,θf,θr:^(*√(5))→θk:θk→θc:0.555555555556*θk→θf:0.555555555556*θk→θr::©Luminous intensity units:Local cd:^(*√(7))→cd:::©Amount of substance units:Local mol:^(*√(11))→mol:::©Mass units:Local amu,gm,kg,lb,mg,mton,oz,slug,ton,tonne,tonuk:^(*√(13))→kg:1.6605402−27*kg→amu:0.001*kg→gm:0.45359237*kg→lb:1.−6*kg→mg:1000.*kg→mton:0.028349523125*kg→oz:14.5939029372*kg→slug:907.18474*kg→ton:1000.*kg→tonne:1016.047*kg→tonuk:::©Force units:Local dyne,kgf,lbf,n,tonf:((kg*m)/(s^(2)))→n:1.−5*n→dyne:9.80665*n→kgf:4.44822161526*n→lbf:8896.44323052*n→tonf:::©Energy units:Local btu,cal,erg,ev,ftlb,j,kcal,kwh,latm:n*m→j:1055.05585262*j→btu:4.1868*j→cal:1.−7*j→erg:1.60217733−19*j→ev:1.35581794833*j→ftlb:4186.8*j→kcal:3600000.*j→kwh:101.325*j→latm:::©Power units:Local w,kw,hp:j*s→w:745.699871582*w→hp:1000.*w→kw:::©Pressure units:Local atm,bar,inh2o,inhg,mmh2o,mmhg,pa,psi,torr:((n)/(m^(2)))→pa:101325.*pa→atm:100000.*pa→bar:249.08891*pa→inh2o:3386.38815789*pa→inhg:9.80665*pa→mmh2o:133.32236*pa→mmhg:6894.75729317*pa→psi:133.322368421*pa→torr:::©Kinematic viscosity units:Local st:1.−4*((m^(2))/(s))→st:::©Dynamic viscosity units:Local p:0.1*((kg)/(m*s))→p:::©Frequence units:Local ghz,hz,khz,mhz:((1)/(s))→hz:1000000000.*hz→ghz:1000.*hz→khz:1000000.*hz→mhz:::©Current units:Local a,ma,μa,ka:^(*√(17))→a:1000.*a→ka:0.001*a→ma:1.−6*a→μa:::©Charge units:Local coul:a*s→coul:::©Potential units:Local v,volt,mv,kv:((w)/(a))→v:v→volt:0.001*v→mv:1000.*v→kv::©Resistence units:Local kω,mω,ohm,ω:((v)/(a))→ω:1000.*ω→kω:1000000.*ω→mω:1.*ω→ohm:::©Conductance units:Local mho,mmho,siemens,μmho:((1)/(ω))→siemens:1.*siemens→mho:0.001*siemens→mmho:1.*siemens→siemens:1.−6*siemens→μmho:::©Capacitance units:Local f,nf,pf,μf:((coul)/(v))→f:1.−9*f→nf:1.−12*f→pf:1.−6*f→μf:::©Magnetic field strength units:Local oe:79.5774715459*((a)/(m))→oe:::©Magnetic flow units:Local wb:v*s→wb:::©Magnetic flow density units:Local t,gs:((wb)/(m^(2)))→t:1.−4*t→gs:::©Inductance units:Local henry,mh,nh,μh:((wb)/(a))→henry:0.001*henry→mh:1.−9*henry→nh:1.−6*henry→μh:::©Constants:Local c,cc,g,gc,h,k,μ0,μb,me,mn,mp,na,q,rb,rc,rdb,vm,ε0,σ,φ0:299792458.*((m)/(s))→c:8987551787.37*((m)/(f))→cc:9.80665*((m)/(s^(2)))→g:6.6742−11*((m^(3))/(kg*s^(2)))→gc:6.6260693−34*((kg*m^(2))/(s))→h:1.3806505−23*((j)/(θk))→k:1.25663706144−6*((n)/(a^(2)))→μ0:9.27400949−24*a*m^(2)→μb:9.1093826−31*kg→me:1.67492728−27*kg→mn:1.67262171−27*kg→mp:6.022141523*((1)/(mol))→na:1.60217653−19*coul→q:5.291772108−11*m→rb:8.314472*((j)/(mol*θk))→rc:10973731.5685*((1)/(m))→rdb:0.022413996*((m^(3))/(mol))→vm:8.85418781762−12*((f)/(m))→ε0:5.6704−8*((kg)/(s^(3)*θk^(4)))→σ:2.06783372−15*wb→φ0:::©Units defined. Do the conversion:::Try: expr(str)→expr1: expr(str2)→expr2:Else: error("syntax"):EndTry:((expr1)/(expr2))→num:If abs(angle(num))>10^(−5) and abs(angle(num)-π)>10^(−5): error("inconsistent"):::real(num)→num:expr("Disp """&string(num)&" · "&str2&""""):EndPrgm
Shouldn't it be enough to refresh the libraries? I don't know much about TI Basic, though