
iîs\›  ã               @   s…   d  d l  Z d  d l Z d d d „ Z d d d d d d d	 „ Z d d d d
 d „ Z d g d d d d d „ Z d d d „ Z d S)é    NFc             C   sŸ   |  t  j t  j t  j } | r› t j t  j t  j t  j t  j d |  t  j t  j t  j d |  t  j t  j t  j d t  j d ƒ } | | f S| S)Né   )	ÚkÚc0ÚVÚrohÚnpÚsqrtÚs_V0Ús_c0Ús_V)ÚV0Ú
usikkerhetÚmÚavvik© r   úS/Users/vegardjervell/Documents/4_semester/termo/reduksjonspotensiale_lab/regning.pyÚ	molalitet   s    j
r   é   i*  g{®Gáz„?c       	      C   s  t  | d d ƒ\ } } |  t j | t j t j | d t j | ƒ ƒ } | r t j t j d t j t j t j | d t j | ƒ ƒ t j d d t j | t j | ƒ t j | | d t j | d t j | t j	 d ƒ } | | f S| S)Nr   Tr   )
r   r   ÚRÚFr   Úlogr   Ús_EÚs_TÚs_p)	ÚEÚTÚpr   r   r   Ús_mÚverdir   r   r   r   ÚE_merket   s    6œ
r   c             C   sG   t  j |  ƒ } | rC t  j | d t  j |  ƒ d ƒ } | | f S| S)Nr   )r   r   )r   r   r   Úxr   r   r   r   Úx_points   s
    $
r!   gš™™™™™¹?c             C   sÀ   t  |  ƒ t |  ƒ } t j | d t j | t j d ƒ } | r¼ t j t j d t j | t j d ƒ | d t j | d t j | d t j d ƒ t j d ƒ } | | f S| S)Nr   é
   )	ÚsumÚlenr   r   r   r   r   r   r   )ÚT_pointsÚaÚs_ar   r   ZA_verdiZA_avvikr   r   r   ÚA"   s    )0=
r(   c             C   sˆ   t  |  d d ƒ\ } } t j d t j t j | ƒ t j d ƒ ƒ } | r„ t j d d t j | ƒ | | d ƒ } | | f S| S)Nr   Tr   r"   r   éþÿÿÿ)r   r   Úexpr   r(   r   r   )r   r   r   r   r   r   r   r   r   Úmidlere_aktkoeff,   s    0,
r+   )	Únumpyr   Ú
konstanterr   r   r   r!   r(   r+   r   r   r   r   Ú<module>   s
   
