triangularwedge - > restart; >

Info iconThis preview shows pages 1–2. Sign up to view the full content.

View Full Document Right Arrow Icon
> restart; > phi:=C*(r^2*(alpha-theta)+r^2*sin(theta)*cos(theta)- r^2*cos(theta)^2*tan(alpha)); := φ C ( ) + - r 2 ( ) - α θ r 2 ( ) sin θ ( ) cos θ r 2 ( ) cos θ 2 ( ) tan α > sr:=simplify(1/r*diff(phi,r)+1/r^2*diff(phi,theta,theta)); := sr - 2 C ( ) - + + + - ( ) cos α α ( ) cos α θ ( ) sin θ ( ) cos θ ( ) cos α ( ) sin α ( ) cos θ 2 ( ) sin α ( ) cos α > trt:=simplify(-diff((1/r*diff(phi,theta)),r)); := trt - 2 C ( ) - + + ( ) cos α ( ) cos θ 2 ( ) cos α ( ) cos θ ( ) sin α ( ) sin θ ( ) cos α > st:=simplify(diff(phi,r,r)); := st 2 C ( ) - + - ( ) cos α α ( ) cos α θ ( ) sin θ ( ) cos θ ( ) cos α ( ) cos θ 2 ( ) sin α ( ) cos α > theta:=0; := θ 0 > eq1:=st+q/b; := eq1 + 2 C ( ) - ( ) cos α α ( ) sin α ( ) cos α q b > solnset:=solve({eq1},{C}); := solnset { } = C - 1 2 q ( ) cos α b ( ) - ( ) cos α α ( ) sin α > assign(solnset); > C; - 1 2 q ( ) cos α b ( ) - ( ) cos α α ( ) sin α > theta:='theta'; := θ θ > sr; q ( ) - + + + - ( ) cos α α ( ) cos α θ
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
Image of page 2
This is the end of the preview. Sign up to access the rest of the document.

Page1 / 5

triangularwedge - > restart; >

This preview shows document pages 1 - 2. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online