Class Notes (838,786)
Canada (511,086)
York University (35,521)
ESSE 2470 (4)
all (4)
Lecture

eats_2470_report1.doc

10 Pages
172 Views
Unlock Document

Department
Earth, Space Science and Engineering
Course
ESSE 2470
Professor
All Professors
Semester
Winter

Description
qwertyuiopasdfghjklzxcvbnmqwertyuiopa sdfghjklzxcvbnmqwertyuiopasdfghjklzxc vbnmqwertyuiopasdfghjklzxcvbnmqwerty uiopasdfghjklEATS 2470­ INTRODUCTION TO  klzxcvbnmqwertyuiopasdfghjklzxcvbnmq Lab #1­ Check Tensor Identity wertyuiopasdfghjkThaslim G- 207 243 405 dfghjklzxcvbnmqwertyuiopasdfghjklzxcv bnmqwertyuiopasdfghjklzxcvbnmqwertyu iopasdfghjklzxcvbnmqwertyuiopasdfghjkl zxcvbnmqwertyuiopasdfghjklzxcvbnmqw ertyuiopasdfghjklzxcvbnmqwertyuiopasdf ghjklzxcvbnmqwertyuiopasdfghjklzxcvbn mqwertyuiopasdfghjklzxcvbnmrtyuiopasd fghjklzxcvbnmqwertyuiopasdfghjklzxcvb nmqwertyuiopasdfghjklzxcvbnmqwertyui opasdfghjklzxcvbnmqwertyuiopasdfghjkl CONTENTS CONTENTS.................................................................................................................................2 INTRODUCTION:........................................................................................................................3 SAMPLE CODE...........................................................................................................................3 Part 1- sample code.................................................................................................................3 .................................................................................................................................................5 Part 1- Output...........................................................................................................................5 Part 2- sample code.................................................................................................................7 Part 2- Output...........................................................................................................................9 CONCLUSION...........................................................................................................................10 INTRODUCTION: The main objective of this lab is to check the Tensor identity using a computer code (in FORTRAN). The identity for which the code needs to be tested is ε iεkpq= δ iδ jq- δ iδ jp The second part of the lab is also compute the epsilon function subroutine ε iεkijk SAMPLE CODE Part 1­ sample code program lab1_1 implicit none integer LHS, RHS integer del1, del2, del3, del4 integer eps1, eps2, delta, epsilo integer i, j, k, p, q open(1,file='eats2470.txt') !------------------------------------------------------ do i=1,3 do j=1,3 do p=1,3 do q=1,3 LHS=0 do k=1,3 eps1=epsilo(i,j,k) eps2=epsilo(p,q,k) LHS=LHS+(eps1*eps2) end do del1=delta(i,p) del2=delta(j,q) del3=delta(i,q) del4=delta(j,p) RHS=del1*del2-del3*del4 write(1,2000) i,"\t", j,"\t", p,"\t", q,"\t", LHS,"\t", RHS end do end do end do end do 2000 format(i10, A, i10, A, i10, A, i10, A, i10, A, i10) end !------------------------------------------------------ function epsilo(x,y,z) integer epsilo integer e,x,y,z e=(y-x)*(z-x)*(z-y) if (e==0) then epsilo=0 elseif (e==-2) then epsilo=-1 else epsilo=1 endif return end function delta(x,y) integer delta integer x,y if (x==y) then delta=1 else delta=0 endif return end Part 1­ Output i j p q LHS RHS 1 1 1 1 0 0 1 1 1 2 0 0 1 1 1 3 0 0 1 1 2 1 0 0 1 1 2 2 0 0 1 1 2 3 0 0 1 1 3 1 0 0 1 1 3 2 0 0 1 1 3 3 0 0 1 2 1 1 0 0 1 2 1 2 1 1 1 2 1 3 0 0 1 2 2 1 -1 -1 1 2 2 2 0 0 1 2 2 3 0 0 1 2 3 1 0 0 1 2 3 2 0 0 1 2 3 3 0 0 1 3 1 1 0 0 1 3 1 2 0 0 1 3 1 3 1 1 1 3 2 1 0 0 1 3 2 2 0 0 1 3 2 3 0 0 1 3 3 1 -1 -1 1 3 3 2 0
More Less

Related notes for ESSE 2470

Log In


OR

Join OneClass

Access over 10 million pages of study
documents for 1.3 million courses.

Sign up

Join to view


OR

By registering, I agree to the Terms and Privacy Policies
Already have an account?
Just a few more details

So we can recommend you notes for your school.

Reset Password

Please enter below the email address you registered with and we will send you a link to reset your password.

Add your courses

Get notes from the top students in your class.


Submit