Xử lý, phân tích tài liệu trọng lực biển của khu vực vùng biển Đông Việt Nam nhằm nghiên cứu địa chất vùng biển

Xử lý, phân tích tài liệu trọng lực biển của khu vực vùng biển Đông Việt Nam nhằm nghiên cứu địa chất vùng biển Xử lý, phân tích tài liệu trọng lực biển của khu vực vùng biển Đông Việt Nam nhằm nghiên cứu địa chất vùng biển Xử lý, phân tích tài liệu trọng lực biển của khu vực vùng biển Đông Việt Nam nhằm nghiên cứu địa chất vùng biển Xử lý, phân tích tài liệu trọng lực biển của khu vực vùng biển Đông Việt Nam nhằm nghiên cứu địa chất vùng biển

I dll!!i!ll!l!i!lt"_._illmmni_.~~!iI!1!I!!"~ IIII~~lIImm~IiIiIif~~R~"~m;tJ!!W'WJlmlli~1J!~Ii\I!!I!!:. ~~ ~ -" , " i BO GIAO Dl)C VA DAO TAO VIl;N £),.;\1 HOS:; QUaC GIA TP HO CHf MINH TRUcJNG E>AIHOC KHOA HOC TV NHIEN TPHCM ~~ BAo cAo KfiOA HQC E)eTai Nghien CLlu Cap TrUongNom 1997-;?~ I xii Li, PB.iHTieRTiJ Lft,.G LJjCDm cUliHO V81c limo 1m _1111 I , BH NGB_ IA caAT '" - ~ 8m PGS U ~'c1nhD{li - CluJ nhi?m PTS Tr{]n\'an Nht;1c KS lid Ngoc Bao / ~ TP liD CHi lvuNH -1997 - 1998 ~ \,,ii /' "~ Clrn!lm~l (~l!jcJ11r-:Jc;4~]cN.l!){]:l~rl1cNg (!{J!R 4dV (!(}lc.-I!~/-\)fIl.NJ:N() \ Pdfc:fjl/-' h ( Khac voi plu(ong phap c1jacliftn va (lja (tit?n, (to c1~eIrqllg Itre Irell m~( dftl, IIhDII n9c tn(0ng quail s:H Ire II m~( drll, ngLc(Jita kh{)IIg xa y dl,fllg eltCQcb:lll phall bu ella 1'ong mQt mi;itciit c1jacha't, tac mi;itph5ng xoz (z la dQ sau) bdi VI tnColig 'I ug I~tckhi chuy€n xu6ng khong gian du'oi, gi;ipcac (1i€mdi;icbit?t, la dj v~t, khie'n tlllh 1t lien tlJc va gioi IIQibj pha VO, bai to:111la kh611gchlnh, ke'l qlla ehuy611InC()lIgla InCollg ii, khong sl't dl.l1lg(tL(Qc, TllJoUg hQp t11.(ongdo dl(QCtren mi;it c1a't,vi dl.1dj tl1l(0l1gtn;>ngIlrc, faxftp XI b?illg Rt bi€u th((c toan hqc, tftt nhien la gftn dung, thi no kh6ng phai la c6ng th(Ccv~l Iy lIell I,.""."""""","""',,,""""""""""""""",.' ","'",','.I,rl"'" _ r , "" If) " ,',.",,', , "'."."'"" '",V,"K""""I/","r:.".,r""','.or ~ ""I"""/'/I/""/L"","""""""I::;""",1"""1"""""",/""""",'1 "A' , 1"" """, Trang tru()ng hmax) or (bd=l) then writelnC %% Nhap Sai!'); Until (bdl); writeC# Nhap he so giam gia tri Gradient lue toan pban (luy thua 10): '); readln(reduee); Wzx:=O; Wzz:=O; ,Ghmax:=O; q;Wz[j,i]::::O; Assign(F,Ten(l]); Rewrite(f); Assign(F2,Ten[4]); Rewrite(F2); Assign(F1,Ten[6]); Rewrite(F1); Write(F2,'z/x',#9); For i:=l to bn Write(F2,(i 1)*KchCh:3,#9); For j::::O to bd Begin Write(F2,.1*Kcach:3, #9); GtbU]:=O; z:=.1*Kcach; For i:=l to bn Writeln(F2); begin x:=(i-1)*Kcach; For k::::l to N , begin alfa:=k*Pi/L; smooth:=sqr(sin(k*pi!N)/(k*pi/N)); W zx:= VIIzx+alfa *Exp(alfa* z)*( -a[k]*sin(alfa *x)+b[kJ*cos(alfa *x))*smooth; W zz:= W zz-t-alfa'~Exp(alfa'~z)*(a[k]*cos(alfa'rx)+b[k]*sin( Stlfa*x))*smooth; vVzU,i]:= W zfj,iJ+Exp(alfa,j