foo1=cas("approx(1/100)")
foo2=cas("approx(1/1000)")
print(foo1,foo2)
print(foo1(),foo2())

cas("OnePropZTest \">\",0.05,12,100")
pval=cas("approx(prob)")
print(pval)
print("probablility: "..pval)

pval=cas("approx(prob)")()

require("cas")

tabkl={}
tabzgp={}
l={}
s={}

function round(n,m)
foo=cas.fround(n,m)(0)
return foo
end

print("KRZYWA STATECZNOSCI\r-------------------//\rJesli gestosc wody jest niestandartowa to przejdz na obietosc:\r V=D/(ro*1,003) \r------------------------\rWejdz to danych hydrost. i odczytaj:\rT:")
T=input()
print(T .. "\rZm:")
zm=input()
print(zm .. "\rZg (tabela masowa):")
zg=input()
print(zg .. "\rCzy istnieja powierzchnie swobodne cieczy? \r(T[1],N[0])")
pyt=waitkey()-48

    // Returns a handle on the folder "dirName"
d = io.folder(dirName)

    // Returns true if this folder exists
b = d:exists()

    // Creates the folder (does nothing if it already exists)
    // Raises an error in case of failure
d:create()

    // Removes the folder
    // Raises an error in case of failure
d:remove()

    // Rename the folder
    // Raises an error in case of failure
d:rename(name)

    // Returns the folder's name    
s = d:name()

    // Returns a table of strings with this folder's files names
t = d:content()



    // Returns a handle on the first file matching the search criteria's
    // or nil if no file was found
f = io.findf(folder,name)

    // Returns a handle on the next file matching the same criteria's,
    // or nil if no file was found
f = io.findn()



    // Returns a handle on the file "folderName/fileName"
f = io.file(folderName,fileName)

    // Returns true if this file exists
b = f:exists()

    // Create or initialize the file, by specifying its header
    // (application name, data name, major version, minor version)
    // Raises an error in case of failure
f:create(app, type, majv, minv)

    // Removes the file
    // Raises an error in case of failure
f:remove()

    // Renames the file (or move it)
    // Raises an error in case of failure
f:rename(dirName,fileName)

    // Makes a copy of the file in "dirName/fileName"
    // Raises an error in case of failure
f:copy(dirName,fileName)

    // Returns the header (as a table), the folder name, the name, the size of the file
h = f:header() // h = { app=s1, type=s2, majv=s3, minv=s4 }
s = f:folder()    
s = f:name()
n = f:size()

    // Opens the file. Mode =
    //    'r' -> Reading (can read numbers, strings, tables, booleans, or nil)
    //    'w' -> Writing (the file's content is erased first)
    //    'a' -> Appending (write at the end of the file's content)
    //    'b' -> Binary data's (Reading only; contains large data like sprites etc)
    // Raises an error in case of failure
f:open(mode)

    // Writes some things in the file (modes 'w' or 'a' only)
    // You may actually write a table with numbers, strings, booleans, or embedded tables;
    // but there cannot be functions, userdatas or threads in it
f:write(sth_1,sth_2,...)

    // Reads "n" things in the file (mode 'r' only)
sth_1,sth_2,...,sth_n = f:read(n)
b = f:eof()    // Returns true if the end of the file was reached (nothing more to read)

    // Access to a binary "slot" (mode 'b' only)
    // Those "slots" contains binary data that cannot be directly use in a Lua program,
    // but they can be passed to a C function to draw a sprite, or create another font etc
slot_i = fb:get(i)
slot_i = fb[i]

    // Closes the file
f:close()

require "io"

f = io.file("main","test")
if f:exists() == false then
  f:create("MyApp","MyData")
end

f:open('w')
f:write(1.23456, true, "hello!")
f:close()

require "io"

f = io.file("main","test")

f:open('r')
print( f:read(3) ) -- prints "1.23456   true   hello!"
f:close()

require "io"

f = io.file("main","test")
f:open('r')

-- a first way to print each element of the file:

i = f:read()
while i ~= nil do
  print(i)
  i = f:read()
end

-- a better way to do the same thing:

while f:eof() == false do
  print( f:read() )
end

-- and even better:

for i in f:content() do
  print(i)
end

f:close()

-- prints each couple of data's in the file
for i1, i2 in f:content(2) do
  print(i1, i2)
end

require("cas")
f=cas("sin(x)")
print(f)
print(f(2))

require("string")
function Printf(form,...)
print(string.format(form,unpack(arg)))
return
end
export{Printf=Printf}

require("string")
function FPrintf(file,form,...)
file:write(string.format(form,unpack(arg)))
return
end
export{FPrintf=FPrintf}

require("string")
function FPrintf(file,form,...)
file:write(tonumber(string.format(form,unpack(arg))))
return
end
export{FPrintf=FPrintf}