*************************************************************** Here is a simple program that draws a three-dimensional surface on the HP-48SX. I have included both the program and a graphic object containing the final result. I am certain that the program can be dramatically improved in a variety of aspects. Some variables of interest: v1 = the width of the base v2 = the length of the base v3 = the top of the curve v4 = from left margin to base v5 = from top margin to base I would appreciate it if someone would post this to the handhelds group since I seem unable to do so. Dr. Eric Hall (ebh@pollux.seas.smu.edu) *************************************************************** The following directory contains the program and grpahic object and needs to be converted after downloading with the ASC program. %%HP: T(3)A(R)F(.); "69A20FF7FA80000000407425058440E1B20F8800040003800000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000E700000000000000000000000000000008B83000000000000000000 0000000000006055000000000000000000000000000000940C00000000000000 000000000000000831A230000000000000000000000000000408080000000000 0000000000000000000E4200E000000000000000000000000000010001000000 0000000000000000000000819054910000000000000000000000000042040042 000000000000000000000000002420000600000000000000000000000000F001 8A09000000000000000000000000080800202800000000000000000000000008 0148008410000000000000000000000004300200022000000000000000000000 0002021004003000000000000000000000000340804158400000000000000000 0000008D84001001C00000000000000000000000400024000420000000000000 0000000000E0100000000100000000000000000000002329010A209300000000 00000000000008100000808000000000000000000000000C3400402002440000 00000000000000000648420800080E0000000000000000000001800012000021 00000000000000455555DF019000001008500000000000008AAAAA6012048005 4184A00000000000000555DFF0200020400402410000000000000AAAEF034421 00100010F200000000000004557F148008040000488500000000000008AA9168 084001000001CA000000000000005566811102400AA2042510000000000000AA 9812200000A008200A2000000000000045232402901800008097500000000000 008A44404000020000020CA00000000000000598888424800000084E51000000 0000000A231110010005551001B2000000000000045422090020400040287500 000000000008A84420480010000184EA00000000000000519042000500000410 E510000000000000A229001240000000429B2000000000000045029480008AAA A008C7500000000000008A40002010200002012CA0000000000000059421040A 000008240F510000000000000A29480180000000809CB2000000000000045212 40200455500A427500000000000008A4801A005100051029CA00000000000000 5125800500000041843510000000000000AA482050000000041ACA2000000000 000045120500AAAAAA204125500000000000008AA0508A0000008A049AA00000 0000000005558A2000000000AA45510000000000000AAA20045555555500AAA2 000000000000045555510000000055555500000000000008AAAAAAAAAAAAAAAA AAAA000000000000005555555555555555555510000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000000A800307433443 0D9D20E163233920100000000000003033920100000000000008033920100000 00000000103392010000000000000103392010000000000000304B2A24B2A24B 2A21C432D6E20206713D6E20206723D6E20206733D6E20206743D6E20206753D 6E20200713D6E20200723D6E201084E16324B3C1634E1EFE0247A20E4A205100 00000000000000000E4A20510000000000000000000B21300F2E14B2A2D6E202 067130A132D6E2010954B2A2D6E202067230A132D6E201085D6E201095D6E202 0671350FA1ED2A2EEDA1DBAA14E5A1EEDA1DBAA1ED2A250FA14E5A190DA1CA4B 19C2A276BA1D6E201085D6E2020672350FA1ED2A2EEDA1DBAA14E5A1EEDA1DBA A1ED2A250FA14E5A190DA1CA4B19C2A276BA1EEDA1D6E20206733EEDA1D6BB1D 6E201085D6E20109576BA1D6E2020674376BA145632D6E2020071397632DCC02 D6E201095D6E2020675376BA145632D6E2020072397632DCC029C2A2DBBF178B F145632D6E20108497632DCC020A132D6E201015D6E20200713E4A2051000100 0000000000000EEDA1D6E20200723D6E20101590DA1E4A205100010000000000 00000EEDA1ED2A2387C1443E1C4232D6E201085ED2A250FA178BF1D6BB13CE22 279E1AFE22D9D20D6E20200713E4A20510001000000000000000EEDA1D6E2020 0723D6E2010849C2A276BA190DA1E4A20510001000000000000000EEDA1ED2A2 387C1A13E1B21305DF22C4232C4232EF53293632B2130EE30" ***************************************************************** the end. *****************************************************************