//------------------
//
// reliability.sci
//
// author: gerd d-h
// first: april-15, 2004
// last: april-10,2005
//
// idea: some auxiliary functions for the computation of aspects
// of reliability
//
//---------------------------------------
//  Constants
//
// e = 2.71828...
// pi = 3.14159...
//
//-------------------------------------

function y=reliability(t,lambda),y=exp(-lambda*t),endfunction

function y=unreliability(t,lambda),y=1-reliability(t,lambda),endfunction

function y=lambda1(rel,time), y = -1 * (log(rel)/time), endfunction

function y=reltime(rel,lamb), y = -1 * (log(rel)/lamb), endfunction

//z=[1:1:10],for k=1:1:10, z(k)=lambda1(0.3678794,k*100), end