Advanced Search

MaplePrimes Questions

factor of a polynomial ...

Asked by: gaurav_rs 65
polynomial factor
April 05 2018
0  8


 

> 

restart;
> 

Digits:=50;
> 

A11:= 1.0000000000000000000000000000000000000000000000000*10^(-7)*(-2.5371361080198636732473763516755733087783841018170*10^8515*y^52-2.5682916864364461018876089817027829349729972598145*10^8511*y^118-8.4747208167823896652789620415242113024646500383584*10^8475*y^156-7.0973392025624720825652840212522978368268373080519*10^8514*y^110-8.8052634112991425064821529334897431676429996585193*10^8504*y^31-1.6472736182931730318373390809274526418048821840783*10^8515*y^109-3.4915488631639337623561469549167018169698449760097*10^8516*y^105-1.8648897040502425673332564918257100737272347061207*10^8504*y^30-1.7350350044631380327296789440528743348277795652204*10^8506*y^33-2.4402743405185212194691411556528521403537441901346*10^8516*y^55-4.0714341045744099661015191696314839899399825641016*10^8491*y^15-1.2448510727169172443541597142261710648571818634985*10^8490*y^146-2.2769347278615925887334921880003704106200930647502*10^8518*y^98-4.1875154960616508784147371031658177346824585674863*10^8493*y^17-6.8908510205423224604237562530919308400658046098227*10^8518*y^65-8.0705757255759766519585958706737861776653196868557*10^8515*y^107-2.1234522662689238596130937707990549717374387500852*10^8494*y^142-4.6757486544282170861175940883663855408524031383409*10^8513*y^113-5.6256767384686469294547974274654974293947541346854*10^8487*y^148-2.3667794156402717849832357737043058826502430856228*10^8501*y^134-1.1955708738478973602304171305150038469305944735032*10^8513*y^46-1.2229433916279605188228472869508020737406276934003*10^8482*y^7-1.0359942900497464263463322634590397630995748789812*10^8519*y^66-7.3577937250552680213618842893731191171017237168564*10^8502*y^28-1.6780317940142468912677977158676729074792728705946*10^8520*y^79-1.0188879426769871779634856274674561388204588547021*10^8499*y^23-8.3834163867972974773322872823619870147258375964774*10^8498*y^137-8.7167696030066179229415400068223274105756753084368*10^8473*y^157-2.5423845331789200034600726713334929841949530920620*10^8479*y^154-3.8400819852144312141390565045108971739848198770878*10^8494*y^18-1.5967261576416053607752429820872991323335743262311*10^8520*y^78-1.0175740692585689531634424955890114976014444308933*10^8518*y^61-2.4285179995148629407580354176987125130661349445523*10^8501*y^26-9.9591230938294084010283929867041070209088721794711*10^8519*y^74-1.5124785750379412355186078281009850256857725039212*10^8509*y^38-1.3696257334801547432715188212364024825978277580525*10^8518*y^99-2.5043379550164697208863253414438885954940319418237*10^8510*y^120-2.6305035680296659521217994891132781709179981823953*10^8519*y^92-6.4633168857441661801397078657885868645527618896321*10^8512*y^115-5.4017137062835482229400862860704710101104939466346*10^8477*y^155-1.3319332479266630416544055381399156457205375789742*10^8520*y^76-1.1229179453936158801565711524134745656617998399217*10^8515*y^51-2.1072238939760510496168542795319210517882197759574*10^8509*y^122-7.4202951194571591382703904653143254672490997668970*10^8483*y^151-3.8070289285557325159584243346313284671324915495170*10^8500*y^135-1.1039925581103150720522042406500486542915736245074*10^8520*y^86-5.6617914522620010790945778522914661973615369528464*10^8510*y^41-1.6087035160973756036538832079523009248794530721987*10^8491*y^145-1.4850201031906675776350324581492012684281688447293*10^8498*y^22-1.5146247410262645573925305579471723277055334370925*10^8519*y^67-4.7211130001373051878950913154719403710636491284680*10^8480*y^6-1.6530002518788994941149248059829590520008440377562*10^8520*y^82-1.7047076469980128563965847960657802574607166189462*10^8516*y^106-2.1535689236782065779546222373046347806024179149085*10^8519*y^68-1.7663207202025704123021189232952843065338109601207*10^8511*y^42-2.0054000346149665950873656769091881277646008431218*10^8514*y^49-8.7980985658203695061909911148317791080293037920173*10^8518*y^95-6.6382089342334567702605185897161035295052107532885*10^8499*y^24-5.2423518701418206080645845528109724107178201134724*10^8519*y^71-2.5005223984780390224009659120569911266411465016141*10^8517*y^102-2.9166995984685295180483355964884005809318120438676*10^8507*y^35-5.5605332423183301781370124657024028252864513225132*10^8515*y^53-4.2088985508608984037637955818873668034650441141989*10^8508*y^37-1.5359069780830356990250444855818636390995287737421*10^8487*y^11-4.8195822055982315209243519558327594854332125953476*10^8514*y^50-7.4019159776239374282920917712985331824056305640757*10^8509*y^121-1.1824401371065279253129270148658783843985808299790*10^8516*y^54-5.7699445263820038176602320228433347310150065071114*10^8518*y^96-4.8887240826161304314145695217669095642625562448079*10^8516*y^56-9.3168096457369483705678128915607768202734995258500*10^8519*y^87-7.6483335053880959242217872221711779939205126053655*10^8519*y^88-2.8022165140012359383220386299165583012323933610511*10^8518*y^63-8.7913174849933209946633264469576789417889752795771*10^8488*y^147-6.1070602577931150981002852101247677893073469678402*10^8519*y^89-6.6735204940436023143379559279002699661221027971978*10^8519*y^72-3.7038607578150625427768021537592932141372135512900*10^8515*y^108+5.5995397939405705863936427820385249633853690301901*10^8421*y^159-4.3799087536966483665257287911378520187315931817599*10^8512*y^45-9.4337845613405718940130376244112818126880382165350*10^8480*y^153-4.4016195590145096005766570015038486034582368219020*10^8471*y^158-1.4784004951305251483287425910074636246579062530163*10^8520*y^77-1.1676033897795360110462286752509022111562435500029*10^8520*y^75-4.7427135181787991184688543830207217422380205833472*10^8519*y^90-3.5818759543146989618794907784153306342212103904257*10^8519*y^91-2.8768350368005885940563302395281705469054862585455*10^8482*y^152-3.6771857043660158298381532799555738376579808022118*10^8518*y^97-5.7742267895039022888493018177602123584240907866086*10^8508*y^123-1.5218640168300510004670286762333676500821162581119*10^8508*y^124-6.9363266130432307646160571603392977489800453447226*10^8516*y^104-3.8549456737127999631950059294088326187118239169420*10^8507*y^125-1.3038646941427179585479412972113396840849763203455*10^8519*y^94-9.3769183236089634533707582015234272852123699634161*10^8506*y^126-2.1883460511492724399923503091958445837748647554809*10^8506*y^127-4.8952355695591150781154733643349486659924454852842*10^8505*y^128-1.0485551218896142863897772812320674499053506074930*10^8505*y^129-2.1483004849606144673542914705607906743103507356628*10^8504*y^130-1.5494046860190940893117310239564235431335253582146*10^8479*y^5-4.2050892248314891927169507900332495837852587131883*10^8503*y^131-7.8538509212710903676476053761137885299117479777654*10^8502*y^132-1.7679296011804914111899945823594272494083899795581*10^8513*y^114-1.3977330303040222916262119370925154156250920192924*10^8502*y^133-2.2836218310348946748292247113705163976110465439789*10^8512*y^116-1.6533707860628046530984037048564661559444860961959*10^8485*y^150-1.7738267900460782472328912396328729755803273367139*10^8496*y^140-1.3676977983447018389059938263870520777868757472621*10^8502*y^27-1.7532220610894821901402812335568196588780524656718*10^8510*y^40-2.9516667478247717303744755604240227679518544503104*10^8489*y^13-2.0078485219641074088681384788655152200468572797253*10^8495*y^141-7.2534968017593560796900029165663885808889467407042*10^8506*y^34-1.8782944849703674516724096576717626326317341794424*10^8519*y^93-2.0907666515043372491230443764285994608560169686906*10^8493*y^143-2.6808899325124839556461459330466132992445220875319*10^8496*y^20-1.7962835711332494336805796222040147543604919397749*10^8517*y^58-5.4474384367082808317163737539358816103803871321611*10^8484*y^9-1.5571340726161882570376111526003454631767695961990*10^8520*y^83-3.2958720940671047883146026860724984669547118316376*10^8517*y^59-1.4687727415575590757685715836381595286522117449742*10^8497*y^139-1.5344448441567496276049482049576739361813653354745*10^8472*y-4.0062327156227432382072256857028086598174510645193*10^8519*y^70-2.2256208759316108462191745825128758956786705696656*10^8488*y^12-1.7128080720010109342300618533017903391406104656571*10^8518*y^62-1.4488310233892170018677437784196556238400754716621*10^8474*y^2-4.4566101716291020698717085074274573116469890550923*10^8518*y^64-4.2029603531877473602300653127904760668035481584082*10^8477*y^4-1.7159339796472553785782565251223997167618655958886*10^8520*y^80-8.0018392438184895700350129431383523489160676243144*10^8517*y^100-1.1431132947377835933677909314512473142342468129873*10^8498*y^138-1.5528557895104117505629838315428185662885043206980*10^8512*y^44-5.3259299922124925079252469156846992302211340211063*10^8511*y^43-1.1961940078561649410725379838699228379084312338078*10^8514*y^112-8.2650702947572812374443391862411033157750240871144*10^8519*y^73-3.6038519328959043764932476220790958383056626568968*10^8490*y^14-5.8750222885796028432029457209659433624366593508487*10^8517*y^60-2.9782247314797054440053943823121072327807111764507*10^8519*y^69-1.4271577212742115454194606820736918306650395799998*10^8520*y^84-5.2419710499572071559459392125912520936103065428996*10^8509*y^39-9.0470847079462863373002288403969299088803805903436*10^8475*y^3-1.7073689675569899357965868260045611920484368126906*10^8520*y^81-2.7490545183768481300696110547122587420207975070651*10^8483*y^8-8.0870222079134394054578641820960280470472182895804*10^8513*y^48-9.5092124980645835527948721888861109860959780909706*10^8516*y^57-1.9088786071022477512000956890347726124864762562306*10^8492*y^144-8.1665400133683419929504658676911027201350987281122*10^8510*y^119-7.7940149703420578302211347620617495161349846282540*10^8511*y^117-1.2726020138589118131640895055500859385419846765556*10^8520*y^85-4.1137060724962539927628645399979725855947084575515*10^8500*y^25-2.9613776979262276712567720748534124677278327491945*10^8514*y^111-3.9886813366620949017604872009396705017047367343796*10^8505*y^32-9.6339764896810740918288183849113614094086813551150*10^8485*y^10-4.5397243965554587696124387458818609498482834229720*10^8517*y^101-8.0610496604773945424526841585659432841153157298199*10^8469-3.1595859599995844431190300667470894936598803935830*10^8513*y^47-5.8069799798859938188773381248178913031371004331946*10^8499*y^136-3.3066505703809297774777128515048686047829738531131*10^8495*y^19-1.1289228780398689439823389755153400672408049690863*10^8508*y^36-4.2748301589688548612528628462694982603680131567960*10^8492*y^16-2.0515105530842760733607137620543330754932084577092*10^8497*y^21-1.3368969018951640582663135748352287399549274065000*10^8517*y^103-3.7856405631183749770547245709288279462381186137537*10^8503*y^29-3.2342616324171613158346212734129357416916941462362*10^8486*y^149)/(1.0275320415803315156196412938338297681984560269404*10^8497*y^142+7.2074738611024839760485010033121948546764089498432*10^8518*y^104+2.6344438538915235729584862169224178942113917471059*10^8510*y^124+7.7269427784996328753131864828788890154577015432686*10^8517*y^54+4.7966099112549557496065971311467469066323121080261*10^8521*y^72+1.6436508656270743624235442722662834838296535349398*10^8498*y^20+5.9824900435438360423741179078260472329081981399211*10^8521*y^73+2.2098453249044266402295296299205061265834207600204*10^8492*y^14+3.3626028213644035385119266184572602921456492299404*10^8513*y^43+8.8921037481327278629779623137100880211832513990260*10^8497*y^141+3.6945739111819195537576336659929529415396506770667*10^8518*y^105+3.7941538977962517035078446396214257700633494829187*10^8512*y^120+1.0541972911293401511194135342970822107799699817148*10^8521*y^67+3.7085701075566606251056192363279443498764949476841*10^8489*y^149+4.9979182196421627680361556344726038720598428302025*10^8471+3.1047310225787945050404664917181829065483165557314*10^8516*y^50+1.8104804085503941007388809493822301053732738117012*10^8491*y^13+7.7733956025329698702125971974426483871941166399221*10^8519*y^100+1.3099563433049268843432208209963728307431666384118*10^8520*y^99+9.2432144294312316337701603700407799123041506911315*10^8492*y^146+4.0186134326152853844568075500234225284493692059100*10^8521*y^90+1.2003957641549743643238011718197752112074303760662*10^8513*y^119+2.8410138724121332923328140261773053008121154044396*10^8521*y^70+1.8120729667637843979231000903077339813711665016491*10^8509*y^35+9.7664977715290799289625191591367315212861368134672*10^8505*y^131+4.7565647016520711836685914813771702731486825295248*10^8506*y^130+7.2310841481197099276130489747226712991769831922515*10^8498*y^140+2.1450670719313925617992560870512326526851079332332*10^8520*y^98+7.1685445687757441212253327263089295436292976190471*10^8520*y^66+2.7795704224406471877575269914403802745252444667200*10^8514*y^45+8.5065099316590626530904280547438369500879248936853*10^8514*y^115+1.0819026411423377435552369695725582377091055605334*10^8514*y^117+1.0979097119284617833685450821856738351400471178695*10^8503*y^135+2.5275577823614247543384564872692369233334811410927*10^8502*y^25+6.0524534823776202410765271166756707959326406239820*10^8485*y^152+9.5016865118190072974349026904388235385173314551993*10^8473*y+2.3537052432857573642087675584528278486338092168194*10^8496*y^18+1.2011260673965961157678046451268643439535656115324*10^8522*y^78+6.8559785692320127923934091076443163243297733806306*10^8519*y^61+1.4931717305679235382204313601714427892359329573002*10^8503*y^26+7.2611516234013660704887268529525715768505841891315*10^8521*y^74+3.9392773616453875295022066077873404994159597961433*10^8519*y^60+2.0984767769519903504457345197792883639123300524168*10^8521*y^69+3.5406511839848893315250048897056467446289985089317*10^8516*y^111+8.3005918410147984589715785219696067523000663580617*10^8516*y^110+2.5938519642259676919395942297323864800231598895776*10^8479*y^4+3.6199522318931850871132044809426211103701628911392*10^8517*y^53+2.1996317650667973324413185153557592503934210114469*10^8519*y^59+4.4815194705296061179749323920109151590200406543259*10^8519*y^101+3.4036731316363395134433986501641371998250934597991*10^8511*y^122+3.4137807356717198819905753805294505715589603344067*10^8520*y^97+6.9231381528206205275504939041809637733465286868266*10^8509*y^125+2.6203111139728421961105970771308512942641685230453*10^8494*y^16+8.9483839713345256189519376133794905552649446494345*10^8521*y^86+1.0209248652370776293535300104667332313758445264337*10^8522*y^85+5.5399377255048165810477683124597258614642830258662*10^8499*y^139+3.5977605850912099796035195620407722716854980172752*10^8504*y^133+3.0494823097799289792703915275798781836769876102014*10^8520*y^64+4.7411309382792058998933459781265135885941311822752*10^8520*y^65+1.9178874156536490997317738637809129304845933985707*10^8505*y^132+3.5579613504222455233778530562551513807743559313230*10^8512*y^41+1.1252777152344925161272215786999893685637524934365*10^8495*y^144+3.7423139100265445428376966713621559765838165224834*10^8521*y^71+7.2581939877238253461285429597636828288378753215357*10^8516*y^51+2.4673712478186244222706213348009578633571053812535*10^8507*y^32+9.8288363037702820352859372803690272741574768297768*10^8513*y^44+1.6456894435440850658132474743354962225072115888013*10^8517*y^52+2.2646876458404861436283294587774176880990906994146*10^8488*y^150+8.5767750424729333610942330083836124591623720785213*10^8521*y^75+4.5314184478372590521573509046449359583606526167416*10^8504*y^28+7.4425166109529191193610700414644269162537659530512*10^8491*y^147+1.2247680159291484198326128501009567353449812523225*10^8522*y^83+4.4994769543565358222700988404272035883696791246800*10^8508*y^34+3.6666868538377650157945270695147354903612610250699*10^8513*y^118+9.4459956116496298167719675594215836122403939438439*10^8510*y^38+7.6081883818184656560271083922421172801856887214631*10^8514*y^46+1.2418952730347433284886011597905633927433886046207*10^8487*y^151+1.1335068553516361573539198312896033204049596934866*10^8522*y^84+3.2802157029332176918284621595346028285744073633154*10^8511*y^39+2.6237575992674271949172743197804944766724045455994*10^8510*y^37+9.4287726018893849207301211294752648772510718653650*10^8488*y^11+2.0269429215413387783133914986924474229891894935076*10^8497*y^19+7.0252466943446900380908915724593033693782135003392*10^8509*y^36+2.2363532434813158648131520688137066789398018028374*10^8474*y^159+1.1030750375033038764413326740132666331679335603480*10^8522*y^77+1.7809307769583624288811821533648490114451346289466*10^8502*y^136+9.1101698040516934751828427450818017439068241205251*10^8499*y^22+8.4158500402942200364452790976478268511672719572183*10^8503*y^27+9.5527967836685984998760066014663912712543569817831*10^8480*y^5+3.0851785965928879932810683819172748836008297716393*10^8514*y^116+5.5004929506311425165226677875477147739795447324754*10^8490*y^148+3.2202726296840308889492066139169825865962128583293*10^8518*y^56+1.2729436822330691813383520842185827599720877360344*10^8522*y^79+5.4400914385970619894575068231890907627662062051147*10^8506*y^31+2.7437948525440440137673417702536528754184324864036*10^8501*y^137+8.9608602503957842737264640694924739962139585100348*10^8475*y^2+4.0762093528286484193149238561357820472521958182258*10^8501*y^24+6.2902888314336454706498764394967942193011934023575*10^8518*y^57+1.3130127461826903678468576710850676252639231742988*10^8522*y^80+5.1150660995145144164515512914458391377087209573272*10^8521*y^89+1.6512694019675846646896369400167762107103346503986*10^8521*y^93+1.8858809652312525161093008362677460265731835707425*10^8517*y^109+1.3656609738974251164173996772033917600693168819339*10^8490*y^12+1.1597889143796090923973421771091781880297909710802*10^8520*y^62+1.6009226631427703061997032007753629978783291798093*10^8518*y^55+1.5415117389448964562781648660869805458937159828479*10^8478*y^157+1.9072637806168205018646653245201082653632823343413*10^8520*y^63+5.2809149250741208119144719573104453976441542132832*10^8520*y^96+1.8379824248114010276251322234410231911325783706753*10^8518*y^106+1.7498103785744154782034654828699275349303713253374*10^8509*y^126+6.3343222005333053453383203465110576681321347673540*10^8521*y^88+9.8594601638024021649514742294579378703873138654051*10^8521*y^76+1.3649022207876381276274745466840784658363572679454*10^8519*y^103+4.0078910351917299979823538947299589976156333591206*10^8500*y^138+2.5096781351045862251530908985101998092618054337366*10^8519*y^102+3.0714206772721181022712123271929076700264359749755*10^8521*y^91+5.5892566283611823400295522611435334084941322616829*10^8477*y^3+1.3181553417574193846454100528651841315451358605821*10^8522*y^81+2.9081536634637798678413746274705142738881885540116*10^8482*y^6+1.2879456712573791936105153983633547417235850936543*10^8522*y^82+1.5079930947895303179227714550055067345256686409380*10^8521*y^68+1.6906990036177003100932766018730939708326260693080*10^8485*y^8+5.1765436875141541654448593354680931722725190769576*10^8515*y^48+1.2581077823445390958296709827798258816658964133691*10^8499*y^21+5.9173519544570613927641307851335252490263615584906*10^8487*y^10+9.9128536441906719553305522214653622743244111341774*10^8507*y^128+1.1508458912062016184942568224431060106404407254938*10^8506*y^30+2.9811912504739566440260503946632074689766792788518*10^8481*y^155+3.3479462154460389206042397307690166340488983707216*10^8486*y^9+1.1571959974318628153577689242830343408240072481709*10^8512*y^121+2.5666208688642699675598307281903655949038342503711*10^8495*y^17+1.1934237003867097853029496941368825337755466368182*10^8519*y^58+1.1126031073836656908626482231451365583917808606282*10^8496*y^143+7.6384475840158124348329311316470647123934931323763*10^8479*y^156+2.2687771700563513529295953149038498940322333074518*10^8515*y^114+5.8557395412076321882119163497430089066891894347034*10^8515*y^113+1.4631595518927878296068106446107229549978736863399*10^8516*y^112+2.2834997392331659980851239366426290132977771581594*10^8521*y^92+7.5269376713605583845118113670284137902756151728226*10^8483*y^7+6.2532756388309742865553911299573565063259994385706*10^8500*y^23+2.0164246688802714718084594080461770911781785325594*10^8515*y^47+9.5544260649966913099435662829778503430999793934915*10^8482*y^154+4.1537080254350054854816761895314871309145992976382*10^8517*y^108+8.8716419753677731379982195802139147245523336407415*10^8517*y^107+2.2946302162430477400169519696558605097579171348735*10^8476*y^158+1.0993620549982798650933760574381939319316641367135*10^8512*y^40+1.0747235963274405899956074421648477654447087494663*10^8508*y^33+6.4389149200392426079107685289469750462283336842779*10^8503*y^134+1.0592646945465765033746586511207237258110401365522*10^8494*y^145+7.9419141887633594211221581043736001603573511979057*10^8520*y^95+1.0682870557789215831858735810482028286163225383669*10^8472*y^160+9.6487248698864223321065544988263891762436297686770*10^8510*y^123+7.6322938220989725411633523154165343131737763980327*10^8521*y^87+1.1612963162708548642944927465260222081789100774591*10^8521*y^94+2.3336970919234164775881104793312250836490336865026*10^8505*y^29+1.1125223740087102854670048695994301971764951365104*10^8513*y^42+2.2180167924495251774028369170270990768283882635699*10^8507*y^129+2.4960008754258160642458955406877861116816308381931*10^8493*y^15+2.5881241389016227353803719520763808027645200941600*10^8484*y^153+1.2876747669917078755139780993325314786408188080132*10^8516*y^49+4.2502164133706408795384785345737206936179170745107*10^8508*y^127):
> 

 

> 

factor(A11);

Warning,  computation interrupted

  
> 

 

50

 (1)
> 

 

> 

 

> 

``


 

Download factor_puz.mw

Dear Maple users,

I am struck with a polynomial. Is there a way to factor it ?

work sheet is attached.

 

regards,

 

solve the equation......

Asked by: mehran rajabi 120
solve
April 05 2018
0  8

Hi every body: 

How can I solve this equation with maple? assuming x>0

eq:=-44.51913564*sinh(sqrt(x))*x^5*sin(sqrt(x))*cos(0.6232678986e-1*x)+5.872275982*x^(11/2)*cosh(sqrt(x))*sin(sqrt(x))*cos(0.6232678986e-1*x)+5.872295982*x^(11/2)*sinh(sqrt(x))*cos(sqrt(x))*cos(0.6232678986e-1*x)-0.1e-5*x^6*sinh(sqrt(x))*sin(sqrt(x))*cos(0.6232678986e-1*x)+11465.08352*x^6*cosh(sqrt(x))*cos(sqrt(x))*cos(0.6232678986e-1*x)-0.10000e-4*x^(11/2)*sin(sqrt(x))*cos(sqrt(x))*cos(0.6232678986e-1*x)+.1246535797*cosh(sqrt(x))*x^4*cos(sqrt(x))*cos(0.6232678986e-1*x)+158.9969129*x^(9/2)*sinh(sqrt(x))*cos(sqrt(x))*cos(0.6232678986e-1*x)-94.84329962*cosh(sqrt(x))*x^5*cos(sqrt(x))*sin(0.6232678986e-1*x)-0.2e-2*x^7*sinh(sqrt(x))*sin(sqrt(x))*sin(0.6232678986e-1*x)+0.4000e-2*x^(13/2)*cosh(sqrt(x))*sin(0.6232678986e-1*x)*sinh(sqrt(x))+0.10000e-4*x^(11/2)*cosh(sqrt(x))*sinh(sqrt(x))*cos(0.6232678986e-1*x)-158.9969129*cosh(sqrt(x))*x^(9/2)*sin(sqrt(x))*cos(0.6232678986e-1*x)+38209.64552*sinh(sqrt(x))*x^6*sin(sqrt(x))*sin(0.6232678986e-1*x)-3761.932636*x^(13/2)*cosh(sqrt(x))*sin(sqrt(x))*sin(0.6232678986e-1*x)-3761.924636*x^(13/2)*sinh(sqrt(x))*cos(sqrt(x))*sin(0.6232678986e-1*x)-0.4000e-2*x^(13/2)*sin(sqrt(x))*cos(sqrt(x))*sin(0.6232678986e-1*x)-2.*10^(-7)*x^(13/2)*cosh(sqrt(x))*sin(sqrt(x))*cos(0.6232678986e-1*x)-11465.08352*x^6*cos(0.6232678986e-1*x)+.1246535797*x^4*cos(0.6232678986e-1*x)-94.84329962*x^5*sin(0.6232678986e-1*x)+0.1e-5*x^6*cosh(sqrt(x))^2*cos(0.6232678986e-1*x)-0.1e-5*x^6*cos(sqrt(x))^2*cos(0.6232678986e-1*x)+0.3e-5*cosh(sqrt(x))^2*x^6*sin(0.6232678986e-1*x)-0.2e-2*x^7*cos(sqrt(x))^2*sin(0.6232678986e-1*x)+0.2e-2*x^7*cosh(sqrt(x))^2*sin(0.6232678986e-1*x)+2.*10^(-7)*x^(13/2)*sinh(sqrt(x))*cosh(sqrt(x))*cos(0.6232678986e-1*x)+2.*10^(-7)*x^(13/2)*cos(sqrt(x))*sin(sqrt(x))*cos(0.6232678986e-1*x)-2.*10^(-7)*x^(13/2)*sinh(sqrt(x))*cos(sqrt(x))*cos(0.6232678986e-1*x)+1.159305284*10^5*cosh(sqrt(x))*x^(11/2)*sin(sqrt(x))*sin(0.6232678986e-1*x)-1.159305284*10^5*x^(11/2)*sinh(sqrt(x))*cos(sqrt(x))*sin(0.6232678986e-1*x)-8.359616334*10^6*x^7*cosh(sqrt(x))*cos(sqrt(x))*sin(0.6232678986e-1*x)+8.359616334*10^6*x^7*sin(0.6232678986e-1*x) = 0

tnx ... 

batch file and directory...

Asked by: taro 505
terminal
April 05 2018
1  2

Hello people in mapleprimes,
I have two files: a batchfile named test.command, and a mpl file,
both in <<my home directory>>.

And, the codes written there are, for the test.command,

/Library/Frameworks/Maple.framework/Versions/2017/bin/maple test.mpl > output.txt

And, for the mpl file,

1+1;
diff(x^2,x);
int(x^3,x);

The test.command was made executable with chmod u+x  test.command, in advance.

From my home directory, I can run the test.command, and obtain output.txt with the result of the calculation of 
the mpl file. The above things have no problem. 

My question is a following.

When I moved the two files, the batch file and the mpl file, to /Users/myname/Desktop/maple_test, 
I cannot get maple to exhaust the appropriate output.txt but an error message, saying it could not read the mpl file.
What should be done to the contents of two files?

I hope you will teach me about this.

Thanks in advance.

taro

 

 

 

How to plot phase portrait?...

Asked by: Yee Voon 20
ode detools differential-equations
April 05 2018
0  2

Phase_potrait.mw
Hello, anybody knows how to plot phase potrait for disease free equilibrium?

> 

restart
> 

interface(imaginaryunit = I)

I

 (1)
> 

with(DEtools), with(linalg)
> 

k := .5; tau := .95; mu := 0.1e-1; pi := 116.1; `&vartheta;` := 0.8e-2; phi := 0.25e-2; `&epsilon;` := 0.2e-2; rho := 0.5e-1; beta := 0.115e-1; chi := 0.598e-2; q := .5; eta := .2; delta := .1; alpha := 0.57e-1; p := .2; Upsilon := 1.2
> 

lambda := k*tau*(C(t)*Upsilon+I(t))/(S(t)+V(t)+C(t)+I(t)+R(t))
> 

sys := {diff(C(t), t) = rho*lambda*S(t)+rho*`&epsilon;`*lambda*V(t)+(1-q)*eta*I(t)-(mu+beta+chi)*C(t), diff(I(t), t) = (1-rho)*lambda*S(t)+(1-rho)*`&epsilon;`*lambda*V(t)+chi*C(t)-(mu+alpha+eta)*I(t), diff(R(t), t) = beta*C(t)+q*eta*I(t)-(mu+delta)*R(t), diff(S(t), t) = (1-p)*pi+phi*V(t)+delta*R(t)-(mu+lambda+`&vartheta;`)*S(t), diff(V(t), t) = p*pi+`&vartheta;`*S(t)-(lambda*`&epsilon;`+mu+phi)*V(t)}

{diff(C(t), t) = 0.2375e-1*(1.2*C(t)+I(t))*S(t)/(S(t)+V(t)+C(t)+I(t)+R(t))+0.4750e-4*(1.2*C(t)+I(t))*V(t)/(S(t)+V(t)+C(t)+I(t)+R(t))+.10*I(t)-0.2748e-1*C(t), diff(I(t), t) = .45125*(1.2*C(t)+I(t))*S(t)/(S(t)+V(t)+C(t)+I(t)+R(t))+0.90250e-3*(1.2*C(t)+I(t))*V(t)/(S(t)+V(t)+C(t)+I(t)+R(t))+0.598e-2*C(t)-.267*I(t), diff(R(t), t) = 0.115e-1*C(t)+.10*I(t)-.11*R(t), diff(S(t), t) = 92.88+0.25e-2*V(t)+.1*R(t)-(0.18e-1+.475*(1.2*C(t)+I(t))/(S(t)+V(t)+C(t)+I(t)+R(t)))*S(t), diff(V(t), t) = 23.22+0.8e-2*S(t)-(0.950e-3*(1.2*C(t)+I(t))/(S(t)+V(t)+C(t)+I(t)+R(t))+0.125e-1)*V(t)}

 (2)
> 

DEplot(sys, [S(t), V(t), C(t), I(t), R(t)], t = 0 .. 50, S = 0 .. 2, V = 0 .. 2, C = 0 .. 2, I = 0 .. 2, R = 0 .. 2, [[S(0) = 0, V(0) = 0, C(0) = 0, I(0) = 0, R(0) = 0]], stepsize = .1, linecolour = blue, thickness = 1, arrows = slim)

Error, (in DEtools/DEplot/WhichPlot) More than two dependent variables - please indicate the desired scene.

  
> 

``


 

Download Phase_potrait.mw
 

> 

restart
> 

interface(imaginaryunit = I)

I

 (1)
> 

with(DEtools), with(linalg)
> 

k := .5; tau := .95; mu := 0.1e-1; pi := 116.1; `&vartheta;` := 0.8e-2; phi := 0.25e-2; `&epsilon;` := 0.2e-2; rho := 0.5e-1; beta := 0.115e-1; chi := 0.598e-2; q := .5; eta := .2; delta := .1; alpha := 0.57e-1; p := .2; Upsilon := 1.2
> 

lambda := k*tau*(C(t)*Upsilon+I(t))/(S(t)+V(t)+C(t)+I(t)+R(t))
> 

sys := {diff(C(t), t) = rho*lambda*S(t)+rho*`&epsilon;`*lambda*V(t)+(1-q)*eta*I(t)-(mu+beta+chi)*C(t), diff(I(t), t) = (1-rho)*lambda*S(t)+(1-rho)*`&epsilon;`*lambda*V(t)+chi*C(t)-(mu+alpha+eta)*I(t), diff(R(t), t) = beta*C(t)+q*eta*I(t)-(mu+delta)*R(t), diff(S(t), t) = (1-p)*pi+phi*V(t)+delta*R(t)-(mu+lambda+`&vartheta;`)*S(t), diff(V(t), t) = p*pi+`&vartheta;`*S(t)-(lambda*`&epsilon;`+mu+phi)*V(t)}

{diff(C(t), t) = 0.2375e-1*(1.2*C(t)+I(t))*S(t)/(S(t)+V(t)+C(t)+I(t)+R(t))+0.4750e-4*(1.2*C(t)+I(t))*V(t)/(S(t)+V(t)+C(t)+I(t)+R(t))+.10*I(t)-0.2748e-1*C(t), diff(I(t), t) = .45125*(1.2*C(t)+I(t))*S(t)/(S(t)+V(t)+C(t)+I(t)+R(t))+0.90250e-3*(1.2*C(t)+I(t))*V(t)/(S(t)+V(t)+C(t)+I(t)+R(t))+0.598e-2*C(t)-.267*I(t), diff(R(t), t) = 0.115e-1*C(t)+.10*I(t)-.11*R(t), diff(S(t), t) = 92.88+0.25e-2*V(t)+.1*R(t)-(0.18e-1+.475*(1.2*C(t)+I(t))/(S(t)+V(t)+C(t)+I(t)+R(t)))*S(t), diff(V(t), t) = 23.22+0.8e-2*S(t)-(0.950e-3*(1.2*C(t)+I(t))/(S(t)+V(t)+C(t)+I(t)+R(t))+0.125e-1)*V(t)}

 (2)
> 

DEplot(sys, [S(t), V(t), C(t), I(t), R(t)], t = 0 .. 50, S = 0 .. 2, V = 0 .. 2, C = 0 .. 2, I = 0 .. 2, R = 0 .. 2, [[S(0) = 0, V(0) = 0, C(0) = 0, I(0) = 0, R(0) = 0]], stepsize = .1, linecolour = blue, thickness = 1, arrows = slim)

Error, (in DEtools/DEplot/WhichPlot) More than two dependent variables - please indicate the desired scene.

  
> 

``


 

Download Phase_potrait.mw

 

 

General mathematics discussion forum...

Asked by: tsunamiBTP 292
April 04 2018
0  2

Does MAPLEPrimes or MAPLESoft host a discussion forum on mathematics in general?  I know this site generally supports troubleshooting & code application.  I have had a couple of instances where I have posted a question that gets no responses because the question may fall outside the perview or objectives of troubleshooting & code application.  Perhaps I should pose these questions elsewhere?

How to calculate an array using initial and final ...

Asked by: m_magooda 20
April 04 2018
1  2

Hello, 

I'm still new to maple, so I hope someone could help me out here

In the file attached I'm trying to generate equations depending on an array of values T[0 to m], of these I've the first T[0] and final T[m] values

before I set these 2 values, I got equations in T0 to T6 setting m=6, when i used the 2 values known i got the same equations only with T0 and T6 substituted, how do i solve them to get the rest of the T values, T1 , T2, and so on

 

thank you,


Download Advheat-ex52.mw

How do I create a function for this? ...

Asked by: slevy2 10
procedure vector index
April 04 2018
0  1

Hi everyone,

I'm trying to create a function that utilizes the index of a vector to preform the following:

 

Where x and y are both nx1 vectors.  I've tried using summation to no avail, as you can see below: 

Of course, it works when I do it this way, but it's incredibly inefficient if the vectors have a large number of rows:

 

Any help y'all can give me would be extremely appreciated!  Thank you kindly

Finding the value intersection between two lines i...

Asked by: MapleUser2017 175
geom3d line intersection
April 04 2018
0  2

Hi I am trying to get Maple to find for which value k two parametric lines intersect using geom3d package. Is that possible?

my code is as follows. 

restart; with(geom3d);

#First I define the the point and vector to construct the line l.

point(P, 1, 0, -2);
 
v := [1, 1, 2];
                    
line(l, {P, v});

Equation(l) = [1 + t, t, -2 + 2 t]
 

#Next I try to define the line m. 
line(m, [k*s+4, 2*s, 3*s], s)

but how (if possible to I get the line to take in the second paramter k? 

and if its possible? which syntax do I use in the intersection-command to get Maple to print out the value k? so it still uses the parameter s for the intersection? 

best regards 

Fred

Can I hide input in a Document Block with inline e...

Asked by: peter2108 95
input inline
April 04 2018
1  2

I want to include the result of an evaluation in a document block that is included in a workbook. It is easy to write sin(Pi) and obtatin sin(Pi)=0 in your document block. Howwever in the case below I want to preserve only y=x/3  removing the isolate(...) expression. Does anyone know if this can be done and if so how to do it?
 

> 

x = 3*y

x = 3*y

 (1)
> 

``

Here  is an inline evaluation of a previous formula isolate(x = 3*y, y) = y = (1/3)*xwhere we have an uneeded '=' sign which can be edited out easily. But is it possible to hide the formula that is evaluated leaving only the output inline and to do this only for the current document block?


Thanks for any help.

Download maple_query_document_blocks.mw

programming code for SPIN TOY PENDULUM...

Asked by: Vasanth kumar 0
plot homework
April 04 2018
0  7

please help me out with maple code/script for "SPIN TOY PENDULUM" using its differential equation..

vader pol limit cycle...

Asked by: josephrajck 5
April 04 2018
0  4

please help me out with maple code/script for vander pol limit cycle using its differential equation..

How do i solve hard spring ode in maple 2016....

Asked by: Rambozz 10
ode homework
April 04 2018
1  8

Step by step for laplace...

Asked by: ssn 0
step-by-step laplace-transform
April 04 2018
0  1

Hi!

 

Is it possible to get step by step solution for:

- Laplace

- taylor

- fourie

Thanks for answers!

Animation of train/hiker/tramper on a mountain. C...

Asked by: das1404 135
animation color cone
April 04 2018
1  4

cone_rail_track_Maple.mws

The attached program is of a point moving along a conical path of a cone, then doing a descent back to the start.   For values R=60, r=20, h=10 the animation seems to work reasonably well.  However when r=19 - only a small change - the development plot of the cone is only partially shown?   Also, I have some variables nameP1, nameP2 which I would like to alter the color of.  Howdo I do this?

  Any comments or help most appreciated. 

How to plot this Pde...

Asked by: 666 jvbasha 130
April 04 2018
0  2

restart;

PDEtools[declare]((f, g)(x), prime = x);

de1 := diff(f(x), x, x, x, x)-(H*H)*(diff(f(x), x, x))-R*(diff(f(x), x, x))*(diff(f(x), x))+R*(diff(f(x), x, x, x))*f(x);

de2 := diff(g(x), x, x)-(H*H)*g(x)-R*(diff(f(x), x))*g(x)+R*(diff(g(x), x))*f(x); R := 1; H := 1;

dd1 := {de1 = 0, de2 = 0, f(0) = 0, f(1) = 1, g(0) = 1, g(1) = 1, (D(f))(0) = 0, (D(f))(1) = 0};

r1 := dsolve(dd1, numeric, output = Array([0., 0.5e-1, .10, .15, .20, .25, .30, .35, .40, .45, .50, .55, .60, .65, .70, .75, .80, .85, .90, .95, 1.00]));

restart;

PDEtools[declare]((f, g)(x), prime = x);

de1 := diff(f(x), x, x, x, x)-(H*H)*(diff(f(x), x, x))-R*(diff(f(x), x, x))*(diff(f(x), x))+R*(diff(f(x), x, x, x))*f(x);

de2 := diff(g(x), x, x)-(H*H)*g(x)-R*(diff(f(x), x))*g(x)+R*(diff(g(x), x))*f(x); R := 5; H := 5;

dd1 := {de1 = 0, de2 = 0, f(0) = 0, f(1) = 1, g(0) = 1, g(1) = 1, (D(f))(0) = 0, (D(f))(1) = 0};

r2 := dsolve(dd1, numeric, output = Array([0., 0.5e-1, .10, .15, .20, .25, .30, .35, .40, .45, .50, .55, .60, .65, .70, .75, .80, .85, .90, .95, 1.00]));

odeplot({r1, r2}, [x, f(x)]);
print(`output redirected...`); # input placeholder
                f(x) will now be displayed as f
 

First 851 852 853 854 855 856 857 Last Page 853 of 2434