### Related

##### coth-solve-tanh

eq1:kappa*(tau=k*at/l...

solve([eq1],[t]);

Calculate

##### coth-linsolve

eq1:x*b = coth(ax);

linsolve([eq1],[x]);

Calculate

##### coth-plot2d

d:coth(x);

plot2d([d], [x,-1,1]);

Calculate

##### coth-linsolve-tanh

eq1:kappa*t=(da*dt-la...

eq2:t=k*da*dt/lambda*...

linsolve([eq1,eq2],[t]);

Calculate

##### coth-sqrt

y = coth(sqrt(x));

Calculate

##### coth-solve-tanh

eq1:(kappa*tau=at-lam...

eq2:tau=k*at/lambda*t...

solve([eq1,eq2],[t]);

Calculate

##### coth-plot2d

d:coth(x);

plot2d([d], [x,-20,20]);

Calculate

##### coth-linsolve

eq1:x*b = coth(ax);

linsolve([eq1],[x]);

Calculate

##### coth-linsolve-tanh

eq1:kappa*tau=(da*dt-...

eq2:t=k*da*dt/lambda*...

linsolve([eq1,eq2],[t]);

Calculate

coth (1);

Calculate

### coth

Run Example
```(%i1)residue ((pi*cot(pi*z)*coth(pi*z)**2/(z^4)), z, -2);
(%o1)                                  0
(%i2)  residue ((pi*cot(pi*z))/(z*(z+2)), z, 0);
1
(%o2)                                 - -
4
(%i3) ```
Run Example
```eq1:kappa*(k*at/lambda*tanh(k*l)-k*t*coth(2*k*l))=(at-lambda*t)*la;
at k tanh(k l)
(%o1)    kappa (-------------- - k coth(2 k l) t) = la (at - t lambda)
lambda
(%i2) solve([eq1],[t]);
at la lambda - at k kappa tanh(k l)
(%o2)            [t = ---------------------------------------]
2
la lambda  - k kappa coth(2 k l) lambda
(%i3) ```
Run Example
```residue (1/(s), s, 0);
(%o1)                                  1
(%i2)  residue ((pi*cot(pi*x)*coth(pi*x*a)^2)/x**4, x, 1);
(%o2)                                  0
(%i3) ```

Help for Coth