Historical Document · 1981
A US Air Force Materials Laboratory report (AFWAL-TR-81-4074, August 1981) by Won J. Park of Universal Energy Systems: composite-materials formulas programmed on the TRS-80 Pocket Computer.
UNIVERSAL ENERGY SYSTEMS INC DAYTON OH F/G 1174 RADIO SHACK TRS-80 POCKET COMPUTER SOLUTIONS TO: COMPOSITE MATERETC(U) AUG 81 WJ PARK G 8618" 79-6-5125 UNCLASSIFIED AFWAL-TR-B1-4074 loD - ? ADWA105 173 AFWAL-TR- 81-4074 RADIO SHACK TRS-80 POCKET COMPUTER SOLUTIONS TO COMPOSITE MATERIALS FORMULAS ADA105173 WON J. PARK UNIVERSAL ENERGY SYSTEMS, INC. DAYTON, OHIO 45432 AUGUST 1981 FINAL REPORT FOR PERIOD JANUARY 1981-MAY 1981 Approved for Public Release; Distribution Unlimited MATERIALS LABORATORY AIR FORCE WRIGHT AERONAUTICAL LABORATORIES AIR FORCE SYSTEMS COMMAND WRIGHT-PATTERSON AFB, OHIO 45433 NOTICE When Government drawings, specifications, or other data are used for any purpose other than in connection with a definitely related Government procurement operation, the United States Government thereby incurs no responsibility nor any obligation whatsoever; and the fact that the Government may have formulated, furnished, or in any way supplied the said drawings, specifications, or other data, is not to be regarded by implication or otherwise as in any manner licensing the holder or any other person or corporation, or conveying any rights or permission to manufacture, use, or sell any patented invention that may in any way be related thereto. This report has been reviewed by the Office of Public Affairs (ASD/PA) and is releasable to the National Technical Information Service (NTIS). At NTIS, it will be available to the general public, including foreign nations. This technical report has been reviewed and is approved for publication. S. W. TSAI, Project Engineer & Chief Mechanics and Surface Interactions Branch Nonmetallic Materials Division FOR THE COMMANDER (8), F.2D. CHERRY, Chief Nonmetallic Materialy¥ Division "If your address has changed, if you wish to be removed from our mailing list, or if the addressee is no longer employed by your organization please notify AFWAL/MLBM _, W-PAFB, Ohio 45433 to help us maintain a current mailing list. Copies of this report should not be returned unless return is required by security considerations, contractua) obligations, or notice on a specific document. SECURITY CLASSIFICATION OF THIS PAGE (When Data Entered) READ INSTRUCTIONS BEFORE COMPLETING FORM AFWALATR-81~4974 { 19 REPORT DOCUMENTATION PAGE }F—RERORT eR 2. GOVT ACCESSION NO 3 t)- 4a0r RECIPIENT'S CATALOG NUMBER 13 4. TIPLE (ame Oubrrrrey ) Radio Shack TRS- -3f Pocket Computer Solutions 5. TYPE OF REPORT 4 PERIOD COVERED January 1981 - May 1981 + PERFORMING O2G. REPORT NUMBER to Composite Materials Formulas , 7 AUTHOR(s) Won J. Park 8. CONTRACT OR GRANT NUMBER(S) F33615-79-C-5125 </ 9. PERFORMING ORGANIZATION NAME 4ND AODRESS Universal Energy Systems Inc. Dayton, Ohio 45432 10. PROGRAM ELEMENT, PROJECT. TASK IMBERS AREA & WwW Wd) oni Dr 11. CONTROLLING OFFICE NAME ANO ADDRESS Materials Laboratory (AFWAL/MLBM) Air Force Wright Aeronautical Laboratories Wr*scht-Patterson, AFB, OH 45433 ( 1 August, 1981 yy ~ Ow. IM SEE FETT from Controlling Final rept. Jan-May 81, b/ Once) | 15. SECURITY 22 (of this repor_-— Unclassified [ 15a, CECLASSIFICATION DOWNGRADING SCHEDULE SLATEMEN ToL this Report) _ - A Approved for public release; distribution un Timited 17. DISTRIBUTION STATEMENT (of the abstract entered 1 Block 20, if different from Report) 18. SUPPLEMENTARY NOTES BASIC Programming Composite Materials 19. KEY WORDS (Continue on reverse side if necessary and identify by block number) Properties of Undirectional and Laminated Composite In-Plane and Flexural Stiffness and Strength 20. ABSTRACT (Continue on reverse side If necessary and identify by block number) This volume contains the description and instructions of the use of Radio Shack TRS-80 Pocket Computer for the key calculations of the stiffness and strength of symmetric laminated composites. The magnetic cassette tapes contain the required programming in the language of BASIC. With the aid of tape recorder for loading the program into TRS-80, instant calculation can be made for practical use. The formulas and equation numbers used in the programming have been derived in a book entitled, Introduction to Composite FORM JAN 73 1473 EDITION OF ' NOV 65 1S OBSOLETE oD, UNCLASSIFIED 399943 sit SECURITY CLASSIFICATION OF THIS PAGE (When Dora Entered) SECURITY CLASSIFICATION OF THIS PAGE(When Date Entered) 20. ABSTRACT Materials, coauthored by S. W. Tsai and H. T. Hahn, published by Technomic Publishing Company, Westport, CT, July 1980. SETUBITY CLASS EID ATION OF pee FOREWORD This report was prepared in the Mechanics and Surface Interactions Branch (AFWAL/MLBM), Nonmetallic Materials Division, Materials Laboratory, Air Force Wright Aeronautical Laboratories, Wright-Patterson AFB, Ohio. The work was performed under Contract F33615-79-C-5125 » Project UES 117. The time period covered by this report was from January to May 1981. Dr. Won J. Park was a senior scientist from Universal Energy Systems, Inc. and Professor of Mathematics and Statistics at Wright State University. The equations and table numbers which appear in the flow charts are the same as in Introduction to Composite Materials, co-authored by S. W. Tsai and H. T. Hahn, published by Technomic Publishing Company, Westport, CT, in July 1980. Those who want to receive the programmed magnetic cassette tape should contact Dr. Stephen W. Tsai, AFWAL/MLBM, Wright-Patterson AFB, Ohio 45433, Tel: 513-255-3068. | Accesston For Unannouncea i Justification ~ | Distributi on/ | Availability Cores Ayvats ed or Dis Special | | NTIS GRA&I ee DTIC TAB ~ ! \ELECT= pe. DTIC OCT 6 19813, 3 D SECTION iV. TABLE OF CONTENTS USER GENERAL INSTRUCTIONS CONTENTS OF PROGRAMS PROGRAM 1. STIFFNESS 1. User Instructions for Program 1 a. Loading Program 1 b. Operation for Program 1 PROGRAM 2. STRENGTH 1. User Instructions for Program 2 a. Loading Program 2 b. Operation of Program 2 CONCLUSION 12 13 13 13 20 SECTION | USER GENERAL _ INSTRUCTIONS {1) The program language for TRS-80 Pocket Computer is BASIC and the elementary part of BASIC program instructions are given in the Radio Shack instruction manual - Catalog Number 26-3501, which usually comes with TRS-80 Pocket Computer. (2) It is noted that the instructions for loading and recording of the program using the magnetic cassette tape can be found in page 74-76 and page 90-94 in the instruction manual. (3) Two programs, Program 1 and Program 2, are recorded in our magnetic cassette tape with the following characteristics. : Tape Counter Name* File Name reading Program 1 "PGM-1" 0-47 Program 2 "PGM-2" 50-88 * See the Table of Contents + Tape counter reading in the tape recorder. (4) Composite Material Constants listed in (a) and (b) below are inputed in the programs. For a different material constants it is needed to change the input directly on the programs. (a) Program Step 20 in Program 1. **A = 18169 <> EY S = 10.3E9 + Ey D = 280E-3 + Vy F = 7.17E9 <> E. H = .125E-3 hy **This material constants are for the composite material 1300/5208. ot i (b) Program Step 300 in Program 2. Q = 1.5E9 <> X W = 1.569 «+ X' E = 4066 + Y R = 246E6 «+ Y' T = 6866 «++ S$ (5) Once the computation of program 1 was completed and when the loading of program 2 is executed in TRS-80 pocket computer, the data stored in the fixed memories (A - Z memory) will be erased and the data stored only in the flexible memories (A(-) memory) will be remaining in the computer. Din na ae wo SECTION II CONTENTS OF PROGRAMS Each of Program 1 and Program 2 can be divided into 3 sub-programs, named "A", "B" and "C". These sub-programs perform a specific composite material computation as follows: (a) Program 1 "A": Properties of Unidirectional Composites "B": In-Plane Stiffness of Symmetric Laminates "C": Flexural Rigidity of Symmetric Sandwich Plates (b) Program 2 "A": Properties of Unidirectional Composite "B": In-Plane Strength of Symmetric Laminates "C": Flexural Strength of Symmetric Sandwich Plates It is also noted that the sub-program "A" can be utilized by pressing the keys | SHFT||A}], “B" by} SHFT}|B | and "C" by | SHFT || C (see the operations in page 6 and pagz 13). winnie SECTION III PROGRAM 1. STIFFNESS PROGRAM / Eng. Const r 50° 50g | Eg. li2 | a a Invariants t U; 2 PT 7 Eq 431 | 1 $4 540 n : Ay 4344 lable 53, — + ' ble 4 44 Eq. 364! £q. 565, Aij/h ajj* £q. 364 ! £q. 365 4 agh fe | Wi ~! , t TP G2, n2 BY ------ > ee h : oo 4 1. a. User Instructions for Program 1 Loading Program 1. (a) (b) (c) (d) (e) Connect the cassette interface to the tape recorder and attach TRS-80 computer to the cassette interface. The type counter of the tape recorder should be set at zero. Turn on TRS-80 (press fon} ) and set DEG and PRO modes. Press play key PLAY of the tape recorder. > Operation (press) Display CCW O FWA CLOAD "PGM-1" A Se) WW ENTER, Note that during the execution of loading, the mode changes from "PRO" to "RUN" and back to "PRO" when the execution is completed. When the loading of Program 1 is completed, the tape recorder stops automatically, but it is needed to press Stop/Eject key, STOP/EJECT , in the tape recorder. mrp ey Operation of Program 1. (a) Press (=| or 2 | several times to check that the program is loaded. (b) Press | MODE | twice to change the mode from PRO to DEF. (c) Perform the following operations - Sample problems. Display Operation Remarks HFT fl *Beep 1 [suey B] ANGLE = a PLY NO. ANGLE = E] O EwreR [ of / 907 J, PLY NO. See ** ANGLE = El re R indicates no more angle input. Beep 2 Gee] CORE PLY NO. [d) enteR) UAGLE = 6] B) kre PLY NO. ANGLE = 6 Bare olf o 90 [-- PLY NO. = fi) Ene See ** ANGLE = R) ENTER] Beep 3 *Beep sounds indicate the completion of computations. ** should continue to input the angle and ply no. if there is additional ply layers. pats = a eee Program 1. Memory Storage Key-Board Memories Key A B Cc Key A B c Key A B c * * + 3 Q Via Yip A Ey; Ug Zz Ayy/h 12D, ,/h + —¥ ‘y W Von Yop S Ey» U, xX Ago/h 12D55/h f—— * “WE —F iE V3q V3p D ys U, Cc Ayo/h 12Dj9/h 3 R * * F Eo, u, v Aeg/h 12D¢_/h * * 3 3 T Van Van G Agg/h 12D9¢ /h B Ayg/n 12D) ¢/h | Y det (A, ; det(D; ; H hy N n, n U * * J M m I * K h* Core ply 9 9; 9; L no. P sum of | sum of n n. i i A(-) - Memories A(-) A B Cc A(-) A B c A(-) A B c * 27 Qx 36 * * 45 4) * 28 vy 37 * * 46 bo5 * 29 | Oy 38 * * a7 Jy * 30 Q, 39 aj,h 48 66 * * 31 Yaa 40 Agoh 49 dg * * 32 Von 41 ayoh 50 dog 33 * * 42 aget 51 | h* 7 34 * * 43 argh 52 ; 35 * * 44 aggh 53 *denotes control variable 7 U. = (0, +U.),. Ts = HT. - Ts) 2 oo eee cee erent AR Procram 1. Computation Problem | After "“B” [ of / 90? J, Key-Board Memories Key Key i key Q 0 A | 4.94877866E10 z | 9.607864876E10 W 1 S| 2.688043108E10 x | 9.607864876E10 E 0 D | 8.573249004E10 C 289692440 R F | 1.971043108E10 v 7170000000 i T 0 G 0 B 0 i t Y H 000125 N U J m | 1.00448143 1 K 0 L Pp A(«)-Memories a(.) | A(-) A(-) 27: |1.818111383E11) 36 45 28 |1.034615873E10| 37 46 29 2896924444 38 a7 30 7170000000 39 | 1.041761056E-11 48 31 0 40 | 1.041761056£-11 49 32 0 41 | -3.141075674E-13 50 33 42 | 1.39470014E-10 51 34 43 0 52 35 44 0 53 8 Procram 1, Computation Problem After “C” 0° sof Key-Board Memories Key Key Key Q 75 A 4.94877866E10 Z 1.603780163E11 W 1 5 2. 688043 108E10 X 3.177928123E10 E 0 D 8.573249004E10 C 2896924440 R F 1.971043108E10 V 7170000000 ' T 0 G 0 B 0 Y H 000125 N U J M I K 6. 66666666E-10 0 L 0 Pp A(e)-Memories ACs) A(-) AC) | 27. |1.818111388E11} 36 45 | 6.245552406E-12 28 11.034615873E10| 37 46 | 3.15894148E-11 29 2896924444 38 47 |-5.693298497E-13 30 7170000000 39 | 1.041761056E-11 48 | 1.394700139E-10 ! 31 0 40 {| 1.041761056E-11 49 0 | 32 0 41 |-3.41075694E-13 50 0 33 42 { 1.39470014E-10 51 34 43 0 52 35 44 0 53 10 20 30 40 50 60 70 80 85 90 110 120 130 14¢ 150 160 170 180 190 200 210 220 230 240 245 250 260 270 280 290 300 310 "PGM-1" “AN: CLEAR A=181E9, S=10.3E9, D=280E-3, F=7.17E9, H=-125E-3 M=1/(1-D*D*S/A) A(27)=M*A, A(28)=M*S, A(29)=M*D*S, A(30)=F A=1/8*(2A(27 )+2A(28)+4A(29)), S=1/8*(A(27 )+A(28)-2A(29)+4A( 30) ) D=1/2*(A(27)-A(28)), F=1/8*(A(27)+A(28)-2A(29)-4A(30)) : BEEP 1 END “ge PAUSE "IN-PLANE STFFNSS" P=0, Q=0, W=0, E=0, T=0, R=500, U=1 INPUT "ANGLE="; 0 (here O is the capital letter 0 IF 0<=180 GOTO 140 and not the number zero) IF Q>180 GOTO 180 INPUT "PLY NO.="3 N P=P+N Q=Q+N*COS(20), W=W+N*COS(40), E=E+N*SIN(20), T=T+N*SIN(40) GOTO 110 Q=Q/P, W=W/P, E=E/P, T=T/P A(31)=Q, A(32)=E GOTO 500 A(39)=A(33), A(40)=A(34), A(41)=A(35), A(42)=A(36), A(43)5A(37), A(44)=A(38) BEEP 2 END “ce PAUSE "FLEX. RIGIDITY" Q=0, W=0, E=0, T=0, R=500, U=2, P=0 INPUT "CORE PLY NO.="3 L P=L INPUT "ANGLE="; 0 IF 0<=180 GOTO 310 IF 0>180 GOTO 360 INPUT "PLY NO.="3 N UIT gg PI A oy 320 330 340 350 360 370 380 385 390 400 410 500 510 520 530 540 550 P=P+N Q=Q+(PA3-(P-N)A3)*C0S(20), W=W+(PA3-(P-N)a3)*COS(4Q) E=E+(PA3-(P-N)A3)*SIN(2Q), T=T#(Pa3~-(P-NJA3)*SIN(40) GOTO 280 T=Pa3-La3 Q=O/I, W=W/T, E=E/I, T=T/I GOTO 500 K=3/12*1*HA3 A(45)=A(33), A(46)=A(34),A(47)=A(35), A(48)=A(36), A(49)=A(37), A(50)=A(38) A(51)=K : BEEP 3 END Z=A+S+Q*DtW*F , X=A+S-Q*DHW*F, C=A-S-W*F, V=S-W*F, BSE*D/2+T*F, G=E*D/2-T*F Y=Z*X*V+2C*G*B-X*B*B-V*C*C-2*G*G A(33)=(X*V-G*G)/Y, A(34)=(Z*V-B*B)/Y, A(35)=(B*G-C*V)/Y A(36)=(Z*X-C*C)/Y, A(37)=(C*G-X*B)/¥, A(38)=(C*B-2*G)/¥ IF U=1 GOTO 210 IF U=2 GOTO 385 11 SECTION IV PROGRAM 2. STRENGTH PROGRAM 2 Ny /h (4) M, 2 ' y eM | ky 61 & — table 2? + £8 510 | —_ “es - = y Mo Eng. Const mM, GG) 7300-5208 §(Z) fq Zi: 6 7/5 4 i Table 2 fy M § (G;) fg. 728 _y . 802 | 6 | £9 8107. | t ! User Instructions for Program 2 Loading Program 2. Procedure (a), (b), (c) and (e) are same as in Program 1. (d) Operation (press) Display COORDS. WA CLOAD "PGM-2" Operation of Program 2. Steps (a) and (b) are same as in Program 1 (c) Perform the following operations - Sample problems. Display Operation Remarks A ANGLE = 0) Beep 1 N1-M/H = N2-M/H = N6-M/H = Beep 2 R+ = 6.81882008E8 ENTER R- = 1.10770531£09 | Display Operation Remarks ML = ENTER M2 = 0 M6 = 0} {ENTER z= @ Beep 2 R+ = 7.91979781E02 ENTER R- = 1.13704881E03 ANGLE = 9 oO Beep 1 N1-M/H fl N2-M/H Qo N6-M/H | Rt = 3.73395515E08 : R- = 2.26881887E09 Display Operation Remarks ML = a Me = a M6 = a z= 0 @ Bal EI ENTER R+ = 8.35694320E02 R- = 4.80924818E03 ° % -001 ce 90, +0005 15 ; i } Program 2, Memory Storage Key~Board Memories Key B C Key B c Key B Cc Q xa | X A Bee | Sx Z tk, W Xb] Xx! 5 Gy | Sy x ey | ky E Y Y D By | Sy c ey | kg R y' Y' F ss &.. V P, Re} Py R+ T 5 5 G | 6, B q, R-| q, Re Y XX xx» 7 H Gy G, N * * U Fwy | Fy J wivn tom, " I F | Fy K Novn | M, 0 Fy 1 Fy L navn | Mg P aa RY A(e)-Memories Ne B c a)! a te |c AC) Boi Cc 27 36 45 ay 28 37 46 4,3 29 38 47 445 30 39 | an 48 dep ; : 31 40 ano 49 tig : 32 41 ay 50 dog 33 e1(0;) | May] 42 age 51 ht 34 e9(9;) Ma.) 43 ay 52 36 eble;) | Meo,yh 4a ang 53 16 nt oe ‘ * ab ee Lee hen ba A Program 2. Computation Problem 0° “une oupne 4 A", "BY" and “C” 001 oO Key-Board Memories 90, — | +0005 Key Key Key Q A 12004 .38352 Z W S 10680.65201 X E D -3069. 103205 Cc R F 11117.84169 V — T G 60. 64699548 B Y H 216.5964124 N U J M 0 or 90 I K 0 L Pp A(e)-Memories A(-) A(-) A(-) 27 36 45 | 6.245552406E-12 28 37 46 | 3.151894148E-11 29 38 47 —_| -5.693298497E-13 30 39 | 1.041761056E-11 48 | 1.394700139E- 10 31 40 | 1.041761056E-11 49 32 41 |-3.141075674E-13 50 33 42 | 1.39470014E-10 51 34 43 52 35 44 53 10 20 30 40 50 60 70 80 81 82 85 90 95 100 110 120 130 140 150 160 170 190 200 201 202 203 210 220 230 240 250 260 270 "PGM-2" wan PAUSE "INPUT ANGLE" INPUT "ANGLE="; M BEEP 1 END »pe PAUSE "IN-PLANE STRENGTH" INPUT "NI-M/H="3 J INPUT "N2-M/H="3 K INPUT "N6-M/H="3 L N=1 Z=A(39)*3 + A(41)*K + A(43)*L X=A(41)*0 + A(40)*K + A(44)*L C=A(43)*0 + A(44)*K + A(42)*L V=(Z+X)/2, B=(Z-X)/2 A(33)=V4B*COS(-2M) + C/2*SIN(-2M) A(34)=V-B*COS(-2M) - C/2*SIN(-2M) A(35)=-2B*SIN(-2M) + C*COS(-2M) IF N=1 GOTO 290 IF N=2 GOTO 280 END nce PAUSE "FLEX. STRENGTH" INPUT "Ml="5 J INPUT “M2="3 K INPUT "M6="5 L INPUT "Z="3 Y N=2 Z=A(45)*0 + A(47)*K + A(49)*L X=A(47)*0 + A(46)*K + A(50)4#L C=A(49)*J + A(50)*K + A(48)*L 2=Z/A(51), X=X/A(51), C=C/A(51) GOTO 110 280 290 300 310 320 330 340 350 360 370 380 390 400 405 410 415 420 430 A(33)=A(33)*Y, A(34)=A(34)*Y, A(35)=A(35)*Y P=-1/2 Q=1.5E9, W=1.5E9, E=40E6, R=246E6, T=68E6 Y=1/G/W, U=1/E/R, I=1/Q-1/W, O=1/E-1/R P=P*/(Y*U) A=Y*A(27 22 + 2P*A(27)*A(29) + U*A(29)A2 S=Y*A(29)A2 + 2P*A(29)*A(28) + U*A(28)a2 D=¥*A(27)*A(29) + P*(A(27)*A(28)+A(29)a2) + U*A(29)*A(28) F=(A(30)/T)a2, G=1*A(27) + O*A(29), H=1*A(29) + O*A(28) Q=A*A(33)*A(33) + 2D*A(33)*A(34) + S*A(34)*A(34) + F*A(35)*A(35) W=G*A(33) + H*A(34) V=-W/2/Q + / (W*W/4/Q/Q + 1/Q) B=W/2/Q + ¥ (W*W/4/0/Q + 1/0) : BEEP 2 USING "###. #HHHHHHHA" PRINT "R=": V USING "###. ########A" PRINT “R-="; B END SECTION V CONCLUSIONS The description and instruction of the use of Radio Shack TRS-80 nocket computer for the key calculations of the stiffness and strength of symmetric laminated composites are presented in this Paper. With the computer packages that were programmed, instant calculations can be made for practical use. + U.S, GOVERNMENT PRINTING OFFICE: 1981—757-002/79 20 AD-A105 173 UNCLASSIFIED RADIO SHACK TRS-80 POCKET COMPUTER SOLUTIONS TO COMPOSITE MATERIALS FORMULAS(U) UNIVERSAL ENERGY SYSTEMS INC DAYTON OH F33615-79-C-5125 Wed PARK AUG BI AFWAL-TR-81-4074 Gots ae NL -_———oae Fea —— ee Figs i WS Ms = il Ik oo] MICROCOPY RESOLUTION TEST CHART NATIONS. BURESU SF STAND ARES DES "SUPPLEMENTARY . f ee ee ee ee ‘ ' * { ‘ « ) , ‘ . ~ eee ee ~ ! ry i ww . | - 6 . 2 “- a “INF ORMATION wee me ee eee mee i | o4 t 4 H Li — ane = : ct DEPARTMENT OF THE AIR FORCE AIR FORCE WRIGHT AERONAUTICAL LABORATORIES (AFSC) WRIGHT-PATTERSON AIR FORCE BASE, OHIO 45433 arm or: MLBM (W. J. Park, 513-255-6685) suBsect: Correction of an Error in AFWAL-TR-81-4074 To: 1. We are trying to contact anyone who might have received our technical report, AFWAL-TR-8)-4074, "Radio Shack TRS-80 Pocket Computer Solutions to Composite Materials Formulas", because we have found a typo error in the report. Teich ina Sa, neon notian Fyn. Ale S/'72 2. Please make the following correction in the program: Page 11, Line 8 from the top, 385 K= yp *1*H 3, i.e. 7s should be ze in the program step 385. WON J. P, Visiting Scientist Mechanics and Surface Interactions Branch