mehdi jafari

564 Reputation

13 Badges

7 years, 82 days

MaplePrimes Activity


These are answers submitted by mehdi jafari


restart;

 asal := proc(n)
local asal,m,s,i;
 if n<2 then
 m :=n/2+1;
 s:=m;
 print(m);
 else
 for i from 2 to n do
 if irem(n,i)=0 then
 print("asal değil");
 elif i = m then
 print("asaldir");
 fi;
 od;
fi;
 end proc;

proc (n) local asal, m, s, i; if n < 2 then m := (1/2)*n+1; s := m; print(m) else for i from 2 to n do if irem(n, i) = 0 then print("asal deÄŸil") elif i = m then print("asaldir") end if end do end if end proc

(1)

asal(1);

3/2

(2)

asal(5);

 

"asal deÄŸil"

(3)

 


Download corrected.mw

you can begin with maple help as Markiyan Hirnyk said or maybe you want to start with an ebook or tutorial like this link : 
www.math.mtu.edu/~msgocken/pdebook2/mapletut2.pdf
as soon as you start , you can ask your questions on this site and there are a lot of professions for answering your questions.
good luck


restart:

m:=10;# number of n[i]'s ,to put in the function #

10

(1)

P:=proc (M::list) local i ,S,f ;
for i to m do
f:=x->1+2*(1+x)^n[i];
S[i]:=plot(f(x),x=0..5);od:
return plots:-display(seq(S[i],i=1..m)):
end proc;

proc (M::list) local i, S, f; for i to m do f := proc (x) options operator, arrow; 1+2*(1+x)^n[i] end proc; S[i] := plot(f(x), x = 0 .. 5) end do; return plots:-display(seq(S[i], i = 1 .. m)) end proc

(2)

#example#

for i to m do
n[i]:=i:od:

M:=[seq](n[i],i=1..m);

[1, 2, 3, 4, 5, 6, 7, 8, 9, 10]

(3)

P(M);

 

 


Download plot.mw

i think dsolve is not solving the problem correctly . the asnwer is sth like this ans=0 , and since it IS zero , when evaluating the ode with the answer,it returns ode itself , maybe a bug in dsolve .


``

restart:

ode:=diff(y(x),x$2)+y(x);

diff(diff(y(x), x), x)+y(x)

(1)

dsolve(ode);

y(x) = _C1*sin(x)+_C2*cos(x)

(2)

eval(ode,%);

0

(3)

 

ode1:=diff(y(x), x)+2*tan(y(x))*tan(x)-1;

diff(y(x), x)+2*tan(y(x))*tan(x)-1

(4)

dsolve(ode1);

_C1+tan(x)/((1+tan(y(x))^2)*(1+tan(x)^2)/(tan(y(x))*tan(x)-1)^2)^(1/4)+(1/2)*(tan(y(x))+tan(x))*hypergeom([1/2, 5/4], [3/2], -(tan(y(x))+tan(x))^2/(tan(y(x))*tan(x)-1)^2)/(tan(y(x))*tan(x)-1) = 0

(5)

eval(ode1,%);

diff(y(x), x)+2*tan(y(x))*tan(x)-1

(6)

 

``


Download eval.mw


restart:

P:=proc ( n) ; expand((a+b)^n) ; end proc ;

proc (n) expand((a+b)^n) end proc

(1)

P(14);

a^14+14*a^13*b+91*a^12*b^2+364*a^11*b^3+1001*a^10*b^4+2002*a^9*b^5+3003*a^8*b^6+3432*a^7*b^7+3003*a^6*b^8+2002*a^5*b^9+1001*a^4*b^10+364*a^3*b^11+91*a^2*b^12+14*a*b^13+b^14

(2)

P(5);

a^5+5*a^4*b+10*a^3*b^2+10*a^2*b^3+5*a*b^4+b^5

(3)

 


Download proc.mw

here when i was answering,in the below section of this answer box , there IS a Subscribe term and under that,there is a small empty box,just mark it . good luck



restart; A := 4800222650537772063404778478071930463063047643976074698127740178315383344188569548970831692542160517635107939267608758873243688648318539982*alpha^90-21195458275569506638826674217367612986253112342696610456021731933913238222364414169166355124959800487104961313355271880417533441245941198232*alpha^89-95318339566686354918150856109656222283804258883623886965468800105898592759635640602509022496809397110952699514109234824097473807608998978436*alpha^88-129096111050162848798209690659546605978116587176652736692659191152414087411046459073220064542154949662057941602405932137022223257032653539420*alpha^87+1065908985594835134181377378088599781491149459745820108447106426844686440433400108583299932551987553495468362572902450711326739351199276385464*alpha^86+3940368231779917189933447157544786366769446801243056080695547799177329207573146027220232512582873949627877170484325732237815392182712753292132*alpha^85+2468028826123786371992152672124512914052265250411708185528999334228397161040518196845410159164150379502221004685546987605313976889175495727802*alpha^84-25569900858046160877600690420751671661954377007160305736012273683265469020672873312844563580229684898532215550917235721306375718989641090338988*alpha^83-82866550706164182658481511434445699768170562020872012742801691545754588243053302523632946093494679838103365643600286058042938965868522669349516*alpha^82-46658597763994946600024620445499116862768892523325766424760410618456329666141010279925786682663191971209080227047435540917039743440671356304132*alpha^81+380133761224868251611049809523953350197265371493993066336447427435153944232810245624988417285521014490623435951049320914358767405739504598821800*alpha^80+1165204346205048692041617931122761938131024084442288284394010485550328048035706383671790204889860290725278996176066898615714748463844664724252308*alpha^79+760519679954046886893008736191758051504776175666881256713321454048419928154810739306554047862796194622503464947973167794098826254095742256956734*alpha^78-3879446626113536351687059938126957155335067129416991331697910140989634383632039922166173788328393189598223109220639019817080524531889155105085268*alpha^77-12053695580251125601768107915849057272651140705350685522326822459536938517327565583238178728169349619890184076511231586288823340684875925802858400*alpha^76-9571123125553029702941467482966598035636393707014005879270664803033785411538595223713773504247687442206736904721422812190624249473942990285392944*alpha^75+28359191737550758061133798849651668867888194102519892405206182430628200632606034563740057086573456169679682173376809439176648387227348668328101050*alpha^74+95558130613178135710373729005022934261162178208597233723667582058377125037688895155085792258080387739261022362992293337466798524919153813359341976*alpha^73+91367440106288316101724506448089667463470724637392079764624301488015187843744872103777730010717494895558847587966167973148920733875777656153006246*alpha^72-148187295942384165903302892598039581526428138938766413278019939675938445341505674749325843453853436015139354691191098101977752374721359118883927428*alpha^71-590647360021545308047452539928621381093954749341289126595142317032805212913777033477152755199787607805347331839062577426435780500748298281282938804*alpha^70-667426352319170434371578079955619652189078363460958559978905450860119111158279207609658059020853551252495743695941402987613750204351139972265658148*alpha^69+513886493889657556671920377511766974219460089102117010110240814403952932317695776977261807432162198340751999413797922118490176486191607726365117158*alpha^68+2856035211752993807002779060966401223599511663763234001405010956637078808298685331650851790198015034702619868683251935284690216412595318616925170628*alpha^67+3761891345248986230911561313529374313431337347758269787776570520573749437457716393158765923713248130583251406182830673851597285678565222717900953906*alpha^66-779420997009274947803600428799642416495252831744022905281031939492806498838488455152519963655784797784735331236963681219379796196451359761215053852*alpha^65-10723160760722910199699460159619687132551036475941617922397704740521330667108447589049045742469573598572772211135736520490064171609579602615172199664*alpha^64-16376526359553411867621153072393554378684943174271151057554558115570472186791496768652372857883270243781703948962963110254565404154034242368700095608*alpha^63-2885161815022977500135081090269106235974070335602926845146437135055020033138516278562646766203728221078887878924149985314388692299005185661466662030*alpha^62+30776696134907357339152102630780710032719865290503039865994354520124034454851328526534895883857717291196633145090317294736606686261840989090537124976*alpha^61+54656282325760643094580694659282573848509096533992787954441385122314970407385436162409392164127266046731202437371772053178450773872306490084073749506*alpha^60+23591791431146339347541457376950881771825063442978153154195337671480773977904328611297293902492089895387107862024239457534382141221818792711348854316*alpha^59-67064089538563693367369430468538872679549017527445232358379749730965027265179846245872799793995549653872135391874591533203644159688632925915213225266*alpha^58-138430557108799263369988095164886637657526567177333401779933154249616101762222988154121680498553700330000252898616482571945228544459448279888689827284*alpha^57-77415632082233951780164446619990703042032031411345306952830591079767735363813787818576201756778536915076850984590587554484779218485436607749604008446*alpha^56+122124803947661035624302684959495540161135519233054630546568099056489280147742183428286976263818805756929829653612134787251396768174240163583382418824*alpha^55+272338067913899804232602783657576368484505447645706797770367252444539660959584813156459304084589222437647905172403705826797417166561998562460387895898*alpha^54+132207733083449771087437912099028163633259397253750788722136680779947175867509849333958811950348246284691076487171807031665486215258679820391815333632*alpha^53-272724330170917882422766836506847169170301095019244613542038886808610497595307146281656658022682824119452292135772129872235852309431805088552930983946*alpha^52-506313466935376304093544153876787799010576399321363025447702755270408152738300635859976849049353279811300461615742191005043667653176757275479489581668*alpha^51-85528408017901824352768954961608357556021353318420092126189032435510187244702582152730129898006777998833502781727328060214015869177210023602444561918*alpha^50+843720409586157176876876427992584860089601413236328696755677203782239661096513292205121672837464799127806424935975480670417753733476085547741233635948*alpha^49+1281995294511881631037849288823371677508362454952383689213574069331095301654214425303770082565231551296115263661201756111626000187666265021713381961698*alpha^48+187985936220677589715327470109499474392825412420791705505441682490471599720723581561623797238287051158716116641720794938880874584502920018394244587840*alpha^47-2161266352048923118081605107075079120167789729065724039073552638789491542976591177477522276652810498936691883701324330310193568337991266615825673719674*alpha^46-3714002117903828483762401874517824373812717860120199452831639214707946092938346143669763927178125537178045052688438661139178191716346603972064160429032*alpha^45-2101032057817444870963033802643677488017912546186169292740480355284161292004754320952185162883132639055184616725071781262714628606073449741395912671702*alpha^44+2844286998129179043861130820281457993833535735096799664612746594897218822297673852971458146060354222331305788819679797024287312254749461787631915384140*alpha^43+7896290272342469727829780740782587439539520068429509575092525048698549598458145744209175241738486362781349487031912825719243186157101955794950821135838*alpha^42+8311665906591618789940363755902520063110737767868100472165328639456202212575031225756999089193342294429554762134595874354290842381663244832418931607916*alpha^41+1800376115135954717687214990768499170919837712514527294130585273882581002431318681489586295357688913104863166611228797352117931722965971242516590205166*alpha^40-8687354992451486431921532768248661129881847388054605392716320252555087728642266003539988439425547145428632498176264057898561048070710802539078015278360*alpha^39-16147080553676471012904091099643075338308051719269828087936364923818112779028588085141657272257471332355953668753804748580137122823396002268643378749878*alpha^38-14308055779285285116173457616168371251970962175632420333918038197109260777313974869898904265937737988856925949392543417473449925495656015080438607281312*alpha^37-2529638682131332117972605521111857383030862820184001422891878842022727762142987269759830470262335682523265626955547454684909519174171705628080561760826*alpha^36+13026571367855726249382075366326034728193967741247712479125613882674936131226353025698005330909832425084037690783693053584180078066558323997650244852604*alpha^35+23042722596387473497461067131458034085300578559661333982836319789094306919149792132953680226489099299007115224999085404685568348990165546115418880082806*alpha^34+21037544686765409801361676804383238628536234277896290324677557173413042536546748260304058349801149995160280813019962053400850375014176363741464710524316*alpha^33+7578174237434479732290669333001268013180911449647836910517470321521428706549218294791944585927307021085869515610513807177275699133503919422779467144730*alpha^32-10082860715626901922153682663271012346451127160384620841351408596087876025877961330947658804046817637462161843476187736336052105818054596094492549198568*alpha^31-22548580313527956875835628529849606054841790856094533195812259378200257483155005304735907201308882997680268047663658458038448581012284297383412771601210*alpha^30-23859994427678422731667773439088191043443108111832317593033306927642234847502751344781532276819480976734950402533076337850048110029915479535639157185840*alpha^29-14525774449925231322916935667968109322122050129604173640192860023635319959617643881058184406890108182585078471628305195789716395996896425985394484774714*alpha^28-387140773499227596740527873448483045018715551306425384516953321218177715100691292638270859670006078192157403733131110458171945615556070545017961466268*alpha^27+11422949163009886463236277260758700023561611648894982013537755481427807109195988300224279003162767159349782717794391360653601055722313431381223684156428*alpha^26+16488811357130803008506289865850722833925622605716266439913088058682700011390768479149708884375178131798158067937302433040235723392776849460915074316284*alpha^25+14696888419734265333830131560887744191326186077897799060294393736803829193601260788144956123114537294418968788058587984904267960608024888030611431869370*alpha^24+9045305995506474643832385534393643016585320563146522882161200542499063116731306202857905190432825821526984166297029371700883643108409636277358587607924*alpha^23+3145559799717092115418058886710893099836419275850804734596394861066560306601529836136934656761253506429022942805683124729347449811728529399022217556406*alpha^22-737077067293398950522548131653925132390808479199420557525484758034869995683862919013940076488795293673981240199867092963849285293191583815550083439780*alpha^21-2191620181655207765415825230138208648054914524803265350720936103075970462752839194779946226502056819446507762233942662338433311690771109378590006380424*alpha^20-2008508272209707192670957467820256736005541882436175887127963479691991612396950535888158313065977275296583379451289076528461276232888313624798183059264*alpha^19-1224402779545502988629590064218241059413667562664761058643399010332918047100621273962705107767274318714890900421579871387643473417669768779523597373918*alpha^18-521896763290702821227715123214856893434677010771826156319352511889726999419838911362687680395747060150414954896122057518270907435280036212710805343416*alpha^17-125424179755618138577289606263659611302982987046790187740687082188328266450700719019657451813661441737887709646882847156785588413810488583307248803266*alpha^16+19190996591920353657798998196783229884873853277244630132858558527482363921445384159135648155096746478042018605562995395813743563587980596234395703948*alpha^15+38497509441754341031620732320400692387102154460331320078599854708146095799567766109612270856183604810469820745863276854983104300181293248035805475716*alpha^14+22650862375863233457763624230508449741300859533307449564862051120998291861405411737839112882859433360448285399742205811654457645507161942866316007164*alpha^13+8667074992309363655890489707549487305025202092226668014033562245016369067486793955020578789367458388982668314575873579963659078686729594270785316142*alpha^12+2514901982994985786229735990723152548399179394769133541405951062450580519000522365593733604172837018219159940964155142372226878123296179894916115540*alpha^11+782171639522951825234457788004519805945400402426524219868868186347282296935357421008459588396130648506180043519731197967498137845295360297098770752*alpha^10+411781085811419010479176597723339182982513522357316393857934791402081884229615765473097350265436166591589995504523494609120501247333338552629634156*alpha^9+255569394969596308484957966691712813267175574321940123104315688431456656426294366272717931373049090269905382861692922893974021322758226737725531572*alpha^8+128841334529775488311707687891386823976829608199123929879616005430637709483696245209926568668771059406571155257340136260641274298156075690269677308*alpha^7+49367428770475506464063335916096373376118136163262656802706789853910604780780757356807629211220371050801711754099675540255855253351580490474721058*alpha^6+14355590948787790872965211598234689828036013957953039997755929600170853772016757852737771926434624271784796021268560744588679494275110298267579140*alpha^5+3147277941245833418754450287241033450736794815362901565595275735039879578218340925985052658924952320534538314767607771626066145897853900474624940*alpha^4+507378325219207725814307237925340776005440114450496864317356529277442253999084381878674723050574126148805387934111084996133259638036450734512400*alpha^3+57005310753556266670651257415632886096947680568531070408889885460125684641904154008439176567078928296372852153334696664305555066350162673947200*alpha^2+3997331390500638178234477079713057799033282175246133719134640187130755596602887207850359505904670321292714253693663293139208878883249469979600*alpha+131882744620936310091789227236093390955409046088620375207095064621546387456236159888614686470425785542893458759274723979296872001930890097550 = 231552660351740135311517050201061211384310167270008143619798239295931905269983322073101165902375597684824398246113417242088722206876253847*alpha^90+90844730642297339190045329721083507217895517424434425513132607550747924478767765033191490096685588355258870190790653283682304397931866671*alpha^89-1365720047457789361991341862500375779697723707255644348274184550524467185607286119584809459943625815848716835598513492901062308916473634988*alpha^88-7546990871977265698732785362914616188361474023695685171934091967755770488470011575384024866858241445006566084704718457129310861242073131511*alpha^87-1930085994673124651936017372984395616381687972237472382805144816358305606941511297603458176875091688711749363118236211058671955864906691508*alpha^86+42901377246028263521228691989582006779830949699459383493511546819986375186007091927348467736327250040426981861012762819687615692088110305267*alpha^85+127140668487435399788304122858162488776991931793718069126031809555216902858799264151397095976644196218119804997953828357816883041238726143065*alpha^84+3898008639003325289091792746259784894658086263790974281321733443768546124962944851797387504439888598298746893610564222331568883912934359350*alpha^83-665484525754423458026227566257633725878627729131914635057289865559098751686268849920565354671077039226581878179272015865701161348047799913422*alpha^82-1424977613002106494217314822884341444592931792193327362530662888398240220035298958032598805064656582802902451140900414942523285592969277411620*alpha^81+314781632660646638354638311775764041126078494884853102262002126885953149222860321909672259694999421705501114353018777427405052738238551458572*alpha^80+6910410042538788506274665238765560585805057954334996284841417163452169484267800015088290092279899321182842118710815959584920345800700709173420*alpha^79+11745873048213979128075691255845495374656352676633672783059267512534490285236610592030057030640865159874066864385835327735007451938422165555619*alpha^78-5734885641066578136499616677696617402034433287833070662361243127676941220333252947628282418144797182190079269204079577049570549546457173927969*alpha^77-55282129556924990584081868140777428261499579992569944168276306280100370978423296953410977031986372134622174052427603678909755288645450196761482*alpha^76-78038713655885994769027106977707796156263576084162514596657938604930647022941193543393365909039694328804892300302188622642259006056879338609537*alpha^75+57388759586692637051340254435393153531565966170908695920662265193487473432724300631407372774280140426385339102172526522397016993262081926592545*alpha^74+372583767665642203623632680529458810804962227643254658963008787317931081107112545794172898650337644470111117007412163602849663881220775447225770*alpha^73+474514050614030221422887914952917190581467788289814835757372197340423100189472924110986389320775787459323039756391426879665528776225173924322557*alpha^72-369416229413681186238275635383748545516476679924541569121555416548590817913596272516230886575989131038145747761197097697667744007592379435966661*alpha^71-2209345772173548803605069569895421135768610909788610100354950443090671187685639440833626664022837048889581233303331091926986371268329597240816114*alpha^70-2954737440205618670731430440209154014624713138089451761541151947483693579158533332198089315546869814619718278163102154974850734611840238435902109*alpha^69+1224184446410505080723595957177813362209807894877879938806139222900929857335815188301188302084771491614637015421673010641559830040341710280018355*alpha^68+11282340689853108711024848050169823694655231330010721261297652133236010950427725044173367171828776026893855915059128456955225692539817414197754328*alpha^67+18374614624740563926667537580295104483427274646591732860787718985379619171575802692322364885551444124159947582096688976727573087883703737201018481*alpha^66+3517860181412527502037130230681789715323254047204607133319460641460034684349166596544047639299217734120100466891592389267536740858961582276153953*alpha^65-45284652428353686464146372408348352565917115465580202431910597459745525172428981622435523074917699974639725148490904773629364353316199023418928466*alpha^64-100519187927088701067800510313806947073167629263413189206868763327972311842467585620825803721497822037980088231600915727321966498966753193624350507*alpha^63-77834385775643625753860941262328669008521188290270858744039629096233428487459112968001871153287157391346631256694416021406816370663007728888201059*alpha^62+113566033733358939374731576499715960978061492604562488451803979994743964679828485419177408873826903379076295923539577047614470691740985969434340576*alpha^61+431252583766707283290776305278132626827037383332597459410260612729605234554007136501895023739916539520934828481288119867681617509738398615358856295*alpha^60+564989160479135681200953173068021200455814989032150457190549366363399614420281719198096916643981333147306418160036024798938879795047073723022985959*alpha^59+35880062946508861835097346825837786237824054526850768878542002780990024867176913607969122088170574604266842053709072722953155330992312284285439035*alpha^58-1296546554271266989344828714328372005313060339203449103873005539793018693131425254626507649352478398866382093977401221966069855903367721849133446036*alpha^57-2570030907958451669483053707247628736769553319126279043608121028438953141147631652577457118858428502120179611510691950978628856845698549794279711765*alpha^56-1926713854042465354649533831764338089476584976903522895212746283683545640380667100717417379302075586324246278326269035236812561516977004188036313597*alpha^55+2016004939307815318109327171905069818023246516953852886037843209769549207153646456957593334147661456592976765038478731212725622632297837276884644177*alpha^54+7751166492118358592201474548051828043128817021803210458597369563112997183186433656726669254484507834398905067479499742711385233591835972050562384822*alpha^53+9957446762218169024196035035889473918261336582679765381975401415035828135172946769781857712425348223274000257573140866550593520045366962932751811857*alpha^52+2715895151787664057280951837919728814534977890479230400447518072320278372556054633959774415488353329732187107702454974564963521217214084104056882451*alpha^51-13787883699712338071517361432776440967921205167081887558353512516607887606012541095263872038728675021895204422117686950073278938077931311679439080475*alpha^50-28788360857856278016903024960672742313852408365059290647423624660669994895789431998300691468353637570876853277864705503118381572462551036635252667926*alpha^49-25651676063747344689258168504397016461919201128323374731265674765554478353067590998059955130092466515351141080751055656086578966851810930113966905209*alpha^48+3946734059841389596874460402200616512925999148778819830172810008719682545691185787167829433415982340924111880014497485815969928603038471549036344745*alpha^47+46936692441658110487957051734576138662106110564841252637504724469742671540315983149179201413581680184634055402945315472523987626722988777943841698303*alpha^46+71409332376856623742790177853182167336273830535204268427637710666081268338913964342454262094661312404098639193267370223006136445885799848268680796734*alpha^45+48753953156119001499420140553682275556813596625043456706120895869183711028371506434574608273726522648740703006422078978200250814338284699265145490991*alpha^44-19564560098173655797526728833942497493791671537246323932151667266937042946670880394971543026267247896018477786087552014999029824226918286016599144943*alpha^43-94746579003362347981413371601286978460757336848792816040039621845637033708071081157994635502720349518097225006240152067050455406410344278071700228485*alpha^42-124213814847984222243448818893651981117469086621541233937401487643427684906717413559128591331882931091174812716106424530848693012489082983196648404190*alpha^41-80647319157354084369057506414476749885416909377510006330006032745929330917299948986714864088828027264495590819622382291524450416523632285649579328527*alpha^40+15029723147234193240505901503935518121832006197738527844373373682254103003615390980491100510152686782723846060724253062341080738052219516835554968635*alpha^39+106997743081068144543551532896881700806112337136152020076526901171043564362225019147332870466898436631630838497222149780230797350435539377399262320617*alpha^38+144168761597567675409431417103220420730478290368948900232406195296804896797788655952746282048826859761267978318728240668565407041635493947896726915286*alpha^37+113967452218638446630393744333192960803885619582057299427797230012671012115431149033507328747219887107819919983967415865208517253539130762443209071225*alpha^36+44405524483032929329421994582197842299735226484671164535466423868790402728065297992792304184251221822570329463683192097661860638771761460770547898651*alpha^35-23233989841591876215015477607053177834522448849510960661034976341992162457727065067056117134319049424844759154206774222114290324313859422158954640177*alpha^34-64988552940942265710432315088323143427421159276678166112890266293072140938495212022360811708100485807452126355623161440711890794475330864951747095012*alpha^33-83179919694687963231390650402552087303465046182057180203641198598653427975961992775057393850043968102801516774124353435395559577940331626706669306233*alpha^32-91355466599912141529414933222146941746410263681097952079333137398608270952363079192834314998965780117724500079612650039116059378071290349818283423601*alpha^31-94096255176165644218642825708226146333578163158317592239237062773508381810129744514884244296669190135148974457889974322147565977613568823160605527697*alpha^30-81810313177313329120077530417966933429842882903383339856224151232078320626889190418524093878684256383910804119700242792246012679771967377957232324440*alpha^29-43460917430569183028927563455176390033012773252494148017834837355823655772149125877851573628286155614884763626891205424772453308467617005140924378043*alpha^28+17268985022727635109983142730276906233018319801272772325205648401754389327896022746853889077163735598893735635871834371980277663103867003074345330845*alpha^27+78726294090986816404418948029210194439160033270035162206990260242823189989935875088156363517016866429842695771526476744806617218251437848642330615986*alpha^26+114066120261868728690016026925301610163353712239028394653057347350800763296987544601935389998174134568157962715092136009108267630329741278794929815749*alpha^25+108818415629023984588047630568674417295309156093421783222835170587860347572397742745786945078567865525354903587486483659806575665893115876764687881717*alpha^24+69202558937159202623287745524178835986427300875372413029697890283744543330006195580372154313985288416646474954934235701487337931833134595608982553208*alpha^23+16282119045910496542424712227663539675224034392682234234807735960842952804187712737163429724091216590390086527681474367243824812716513747074021312983*alpha^22-27692663349783126546028767605773792273241958383707583774010303802213596446250212523325330476017542297215744345489643611296416164477160891624858552153*alpha^21-50390286963826339460325969368810299331291976691099829964072109992470198641010392548123796690207413987680797228863165818905198130679256787453220068798*alpha^20-52014297837516861684075331588417849869226070468631979754465663058941013501115025145322859015243979391485753166308310968088223204803052476967518762541*alpha^19-40670967026532424233850936924726479017098248054351649903937358738650334536743566626220971572626901708747316069502570923143938244871139955479930127163*alpha^18-25678560674044432335376537472902765080771014910162968235925792984758791398021817580224522707266413989601772634450339162038602267905996335240607776550*alpha^17-13184201647787379312887047523108605174260193964801245193880257702947932518757188531658020840168446674470922003250899265413686557795535750531404731751*alpha^16-5285105403784286029766685114545383704220236804712740880989009783462726620249197497089845827204285031037786520281112390277071931030566469821764569593*alpha^15-1382563102699866284536757402433886802878732991341908654204512583632937250629444266935138133064091194407045586339907910059388479568136615953980923886*alpha^14+48802995837124459527056106236539995946424706089162748338179563184025636969103777639517275346807704698963277777734754518166191215522657005320864859*alpha^13+335173789776467717989240517105340119934331339231040568252793344661093468589823883579472380745652085706922237182052369828621218470237848182918276975*alpha^12+254046510404406996543593920041442518881890265212856022266026839116243266988583030334968980038267074375969673289640370985521106914994440761527456172*alpha^11+132295404767993993115509066172449067395190010297139721014297887757123202711841429141139430115145778969533957873097153676720558048240074979760520352*alpha^10+55044089933020927242377279045104319025062740282436665146122129574588245932415139056331492349569366149090104268012166077668057471807726256501616340*alpha^9+19130421033594630891649533356363634499372028132900393397691292011383641017142349490932726185558080767141037500268194043160979612845001556894919454*alpha^8+5631283557479294056675799984723428888066022189095077235404693302110310806324671927567856833599675979431172153770451727961531208126243099031304262*alpha^7+1402499361444744894647470192762994219252049465414556100996711233963108757929197977993596238702517056146894455096477509304069796558434182169347285*alpha^6+291972276791588803089519227074557644933451000884210582712232365880023245081677147935819063601595699956683531250123626882421078665403085313218935*alpha^5+49622360976005540576254382606603119503310592240967795782328569154438635525966319885738084183273258678688250914744035341865070661708977834777960*alpha^4+6622936298173736970618444758067659245640344912066626858161056704239801209336463442517442414202924830216465431758163107469240767097046216863025*alpha^3+651047887670888811739422053767254089666533238463193041905547380992191813563472891812788582518619001124940844765905078314687665098716926456100*alpha^2+41883160408909378591316398433454562105310101406065730613901006265876741757877812628782638340816134090884051063172510814059227789119484200675*alpha+1321601460481776113106409615226939810484782506571579086867002072690021952681706125872998670669734453778036163428435776214227113128590836575

B := 227392757313346541965767477563766483716477443667983080361351630461571418375598504139712976209405988045093733132458019679006285378099149088509959498375*alpha^75+387155973820536341046225755647631959705047012612893159221731242697242301449344671875083059940222302500914237550345483449636110089230744197462355442250*alpha^74*beta+462391977757888444957910337467123071213836089668797079195030150092694443979961933534416551931121934321267844672148802249373677106573198348726897705125*alpha^74+631875270205075289750337050420173040337959848815548322790020458183959823165445417309969860770839903610599267240893667949474681766479204821997489038000*alpha^73*beta+1748677438906542413586761021557573043697834383175010931384262546018962107483739799309414612067523028172774448998028749956326517735854006293233449041875*alpha^73+4168702988786322088369900187180664711689320425063916743871959024567828987988761573514565482554536011710219368842333300300101100502063424268947550922850*alpha^72*beta+3696549127691717217812759012758918703455090265229459440140168972779343056291653449712339264176437391087397930598324674643076539763376135711363592236625*alpha^72+6291664977906103236336806237896315176567013606918758904106605743824300473316012338962206827374554278782290464014748103637067039862018088275746289965200*alpha^71*beta+10606934738588881549620207522708147373788369431588698634719426526661708384583975495638043830171809957122069209322667131515083654847156673905317430505350*alpha^71+16633596828980899763454777381849151754014988179480895065431261449433771311843849660896324691915456803185336277657761818296334446244001546002564639037900*alpha^70*beta+13030042688302442628466654148625759448337293292519304811879337421617820252124307947097953171092975012077020468065503014669991482245201917292644390499750*alpha^70-14157543447129064400884982372216651195905494426318124967522149349962574786671705572835046301993425358373584247770904439324264940476595152804538760427760*alpha^69*beta-30847816878147866379756334759601062847333398292158164611370705083413423350655299647948587887573245524697197428229520006082199027768898434219938561136650*alpha^69-104376539940765596316115574990728697086433845277705132100884800632759046324521083685275239617408221541485478149248168816514657391891213637348767021623460*alpha^68*beta-190183093766121215944634590831915636637192458200853528608873409040694597407103675505416897510463372888561074616747595916201089726957359289350602201141810*alpha^68-340259787769777501723960731742622775211037620854363095629842743600604299914438183861629169714258328734422710160976478426366969663993341852673236273207440*alpha^67*beta-444011447501760031681880869036621882607444999035147948282991178668779311915831034566798212376729640518090757005915577700471081058784636910715678754689765*alpha^67-402472675448775422190940645387468152541110865625954687630542892177886108811686100590714259773380543511997985957056362452841003684606367952045023060277190*alpha^66*beta-269756489053722065919517744792267302619843338145056480887218044855488026613530484262773154228083644442600511916686758046372053193578126143474246416819555*alpha^66+435764880417794197500644033441887792532941906029085322680220790541804409781296280748781912963174755866286571679562040061922223504822575101855916887737280*alpha^65*beta+1372190679688009914828134760075558191488137120053113592946204251097866276383011704347056423429496469746265483943735492493365772153592383771132095574462095*alpha^65+3371128052257053459167886581786610908569829662906074935096271137287490884433832786085951769555000928215658257833198735377339129484537548949258671209801010*alpha^64*beta+5204964405082124769580487794210268384797690060736822319157094579963592113064324393802580406664153692702576049450813243468037712587682557205169952477525145*alpha^64+7684902338381005910503015687276891657218708449610833286510735911998991347495867437281057974462935910899943084424207689669030116190266101156116612301159040*alpha^63*beta+8294111990731973638856026694950782877943047676610667550778060959558557395903891627265238726403314861707115000646038368010645793534956735601711374442465360*alpha^63+6855804292728678718689279829709843615782378610766881811501175761415941410605927294305832837521237799547845160906449264368402055912568224577881483421352480*alpha^62*beta+1244674775934798122907977210424585494526659844763039736793838386681787016214915564458587785263389990829371561600152816141455338736717165092380064420656912*alpha^62-12627811599719905054008830776203972164138724963785106759369398834294250831274555839947394535031840588749675157597324276742651983006667979332299290612763520*alpha^61*beta-27780138881296802657190086502557980876874757860592556321510322036060705783660795299028735929819739611160062726317255040295632757446913504105048967365435184*alpha^61-58273127989902026285732759759073573068038268823784980090671368469433038773763853174480442912773485552558060724560935363042456059771176955338080313699866848*alpha^60*beta-72425550449873196962511171920432755196084070965886241461538706135980108054971486786938207472400716058203545391025299731965559289279221428987075608596544240*alpha^60-96563507642267613528207691916276911678508922521542510322564988185599740762104611808007638437218222178327690288204509711665987021600024651468296799724445824*alpha^59*beta-78000660176095542815569564055910009953682796204875389826482721724846249140745069884741399139225965743080706751400105215469391615315106359320261086587658228*alpha^59-28886846274191961739350514961317571079512002955154157180202942494606395852033416757586521422827087506564999348770702334338023847673687646902736736421544056*alpha^58*beta+52787240903702439728982166195170433361900885134077913074783386667611654640831036992656336151176380899901901496992307726663399313223423390932497600162598084*alpha^58+245068254011726352124032158062304283792070918799957347483359274998648689478756127851203607900323436816437317125058279921916574421468832158769586713015982144*alpha^57*beta+356068185754840548597778100408245401326397661341414237564803543026376930331843465344161465478584774797492576066277569255621209754579856015458955586700464700*alpha^57+623646219329764112031849412020116271369762405518245882517870367591950561314625543026478458768008238213743208809418711799592971442250049985536900915577405672*alpha^56*beta+618203291174594121579206644089159223831355171573621268854105533056850290115180302715971693437894370453534184190870127569674606884391615475602124956077154164*alpha^56+619455789612291539571882741961096142456804189938854485094387810359005118122140696924694789114243558763407275015704284605293820909804316088273994203304646848*alpha^55*beta+323461541236305063809306125242604666783326929616707565850856581360360758381318765633158210006595785847933058991409098177724175645346257729070379640481623656*alpha^55-403070372326687962708343081415425566333692477660609158483212460175208345067661787917964041291740128998735731286924036715718961430639414788801582581394638512*alpha^54*beta-934919337275122549804593739027323481529907349273923486814239762546789042631520322992457207616288267791218845100022215569014238297263326608956801280210685016*alpha^54-2337230937900574937047132009383434669360763086345738914016389280015233873057051082167162304950344662325155342178744686345800300396794087003464183116419885888*alpha^53*beta-2599409844374498563847361432761139201523203451491823779340598589664275712918447553242147601268986522764255025611560032775537516206445877779998114406720382296*alpha^53-3440395836558803100514937684352434168180483417600585196207030078123471059842190141739522978044566756588837549647560884795222180610593795739333737994551962480*alpha^52*beta-2705181857162725882513564434282374512089247491089772249611230892601568838183711886951812033929550354612627019621197729634330605876704877422819944065755282872*alpha^52-996379575662031836182277567870917615937511522881141840286954778352919468632853387979788171025887503874365058088902061748466303593999492229192793512118924992*alpha^51*beta+851243016463095646028271027440341847351945091925692985918517785349296190951031363528348503062279433997459418764622661688353863763387030489216469699767677356*alpha^51+5656482695793776916100528985718988614393377534898536237481990402039321889669256442263545027786199867336174434886828017326884195790277412622525866081031811368*alpha^50*beta+7305363448190614356538518308833220435997808355838002451271139351457745603946748016762337455657210019699094567428291296168283115591305172017586413393654267796*alpha^50+11894001296902318952392150992793658293262081709856258447594793890031567190199508113214998630478697370192943447009742067401600226222114157585475140650173862272*alpha^49*beta+11012720800471362729934734330611187530519817745269554379853334852998896680153409512572171977303215305182310756093840550120867520455550185768600846538785569980*alpha^49+9100693761741863818381773729976040021636011733438063248651601245903599474922628137944746717333660553136909971552161636884359560859685736216164526178003001992*alpha^48*beta+4468645940706844119312473334804254804836533380604294900366576307521454000140904132337284302011098393298083367886234986087634936724142396036618897265804008388*alpha^48-7218575706363105366840678538875965152680056203021312127813450723990350994007399657186657448991417338436343268514497205327852401251154949584100075237216585856*alpha^47*beta-13302337698287248578920629356281352924647246150526878378795464647345807930054944662758077472486171398971139692501626567196738689909682016828072295276908710992*alpha^47-28207706888311796176692352441250753740871209519122830750529198749869185455592778057804813471356752752414646468353874345108061998857931428585175197156196751648*alpha^46*beta-30062583261512905470244229191139206744521844804117364418310918072371627519298215216250198964418235923683108641457589501385444238665870125818587154839660777104*alpha^46-32867290290660289143680442041221818183661084801060373871208434301504900594343876800010101566596522018326407071217843937561872017690701726684002958621147434624*alpha^45*beta-25563934129592609592250327271259362693372880598878739610860801958416955318019383902292951383013821084305246658287901673144770836420812026491554263970170275024*alpha^45-5105396682932799149432899714841212372915534079262386722015180991112377438412344765480578860312318877344782396056045748925091875705840182503054815333945511200*alpha^44*beta+9866204401394194066216064334196262276222062704713219177713549526523361860054076624749056350017071026210996701383093092865395526348762713505871577188061070064*alpha^44+45090101227317089038413564858831064679857870233150788711114847669838376355555786940194963094651779825946089016061152200079602271059153013045734355802271992448*alpha^43*beta+58007064901391856472061115167505071402583688885785813388864541327417250092498093070516979458612480213736306968706992935970285494119145916606792834599694352290*alpha^43+79262641250841177623896859143279825742069019867557784469859972843812579005434348927446504216349428256377080285646868609084653406601732719709533663878566583244*alpha^42*beta+77750547495584794197333252851960672502101260044883019004124632124462274498617952491953087915658832430971881903556844626942518423287283457142907589107345542630*alpha^42+57879703660314948296313758953074218041388786851026167630429461704465391244923972625100421128492484409520634055326087430001858875680821442991466864649714306336*alpha^41*beta+37149196628082628295591492937623570040693186989141480588329096335028697670445660768790946454854053356353374615413164134633557838700292039715869822508469783178*alpha^41-21054056942348448796812125358982298251454624581130570730595555548800239447335229833866107666080201617411358136495416323235494191535911392800783772605905553252*alpha^40*beta-51501838236390366320040408600668530281839828667854906965321086171057749736104897293393469008021439286814251611320280947763791083477452540289763173003803539826*alpha^40-108815451614777308738771258453039046362363350856157470659806666572353084493320530314478403393979287313233872194890386834373788907965630351038839761336793993120*alpha^39*beta-129115275042227138382122119403627495462592105475666847236351314823964078557261833549940722704358663718412895180269826741401990626200971048303939644973208578588*alpha^39-137656770541012751166231359811238346406683302626779613016217821681135639392048597497213463376420692166395332494514919604418658233960548326221205344859204801080*alpha^38*beta-131220837973950363371768861758551746197776652839369834797446024616553258296609875425800690644818053817287000951388854663658855002823588112569323003385769516700*alpha^38-75699456578296703142035600366339140827159424545405444315219689873083136398744107304112948977985051020005708892171486359654116200750886972339224638444171319968*alpha^37*beta-42836069097820682034291149739832837618169998747797932473146673692512085055772422275300679138896458196814721329693404761651143431547539605031978903615107239804*alpha^37+42062460632937105540131976015146519142290517303642979835155853747326953335659240474575927320739641535482720134711513846557149410353583512279557372623110997160*alpha^36*beta+82080502004726378529859227288909824073092904348843837627024333026618668796231426789134111314273183361326416420473601857173375747890097628511631090090770141588*alpha^36+136201679071710351959115178520379652346025888571918060182325169141987704080983965956994418711045826611694640966565285782237391575164807588266732296561550588320*alpha^35*beta+158081955306495826299412144500641751291427625714517131868881756227723863325953418491685575080366191299779209065476346041633413579463239950354741903908722088266*alpha^35+142510840992578446970711169489217294027720059088232153298863380804235561634986370133352876346905066755874154948281958904034305144476760087096866677008823254988*alpha^34*beta+133901048542146520485550499450583803200915017179767798265680585377871586362249330087747429905227581616747258809719767262872085558192295757420251505864967876582*alpha^34+60729494587429583697287238158973998581301138789714624198911205344786258483408175207314936046874946077883718006575864325443159868093585812606588848641760779776*alpha^33*beta+31787483483775809906776253694525980212165038242877405714247596064281379867446512304537108017945035129419436148569794255057990482259451013678487639499599367970*alpha^33-46168490835986262688150720358477535182716589065932485756264978874892174786975466100402368280512365607501329161200484170238386712293005301508546398875076292772*alpha^32*beta-71430659735516018154161463040806540466491573288321883609397426529736517275963103530739940879952281934940305174551352290026659225240410726700492295419367935442*alpha^32-100137579719249039818596572754695262452742591046178012388456520566873753758638746574659292017558510404094876771960234911642047496268140270352012833363398556288*alpha^31*beta-104088389409560597129547595308019309418398701779063725721003864333683481932542663156853643770623597226136124133035304789985817671710750917656851350883543565520*alpha^31-65253175536733312126185984666771671996066326563868524238857546478112375379902541862353601691163611053482247840482987482088408826161348883181041061125401208096*alpha^30*beta-50960673008419187332843282040764160476484234280924808973538742856542600390550433223824647570214463564541452822340173726335960428987108893603878384540462604432*alpha^30+29073709939913755718711230000771558012324281836809571533428388707128030421453657995513955933788173931090216243916678237553395296887093843310288234005403886464*alpha^29*beta+42090497515337608636526302366731732618755335760161173906456522910875726859497494485316999862948402514730198908342665675075232162997746134320944441257858162352*alpha^29+113710777494788034034106124561561053775339411463506071227656444481068014404052786220434104438141815008719866307924683434930992892964065703105432147053894688736*alpha^28*beta+107948453965915778974748403550652613600244211882696969519380657406465288430814033383822668590461214484882315706534292118280274312089689188138784740760737552496*alpha^28+131558672452622270675522091037142547171969200023152556021945187342150315126443584145660620932301032413973037296807674930552557908519959836173383062449011280000*alpha^27*beta+106935397767397028538059844213295527995668409643034226807181615461835818935770208523055475302983340145765964924252799464165790541468035005984911386405042002236*alpha^27+75023506494750411513119088904438428907188877133251014479847978682330277025562681047764443854342649609950972843978704694368067629219485175866956946857079854888*alpha^26*beta+47781903142701649328456424818989070572458118864372400392038480436641101453584538899091311986091715293012741840251068471891898121305708168179172508756176324244*alpha^26-16259004841507404907379612201147272379487585832040500236935290309080932079938904850849004561020243561897056947508263529106877198769567602696218035045013708224*alpha^25*beta-28408670055932761896367529544810316274657455814032698952301996655531106787210440549359965631343838531244134551891758314556413194259281769271675130509154087764*alpha^25-89512745188898227147839553900679771388364430787943745064475296624776585649219265436450939124243355447820077147912462373537223634777636121344552799432739735800*alpha^24*beta-81360390310718483772444619370434923012690802382088722234316601633480398414403778915926869647499034788557595466456515321177945803577642142276674437458766833276*alpha^24-114196208311206690515765162614761209936123859604433157472578548779872741368551370987403670788398400423879026115060077088102670953587733079312909532097047842112*alpha^23*beta-94643033331294251015559828354139824512011350273607997173551759464333117907107591495783514993142795335983066915065722553756798137492103202885907934806758683416*alpha^23-93668838493974672557906998667248773614586086541166702981656091842876517827870344133241468316263460171616004509766283460192847783600511313001114440222167810736*alpha^22*beta-76345989179108414968009221841290752237232454750054476068553511344651190888784992792335089683157194524141027671563814841132048494663844517103076174003326475864*alpha^22-52061547115301608061613202207469912413790303336675742347540748522499129049646104403447923087627056051882356211951818667836074745650750417494522581488066299200*alpha^21*beta-45076570690261806213253174410963519681625236736209939995827872863623771553975397185657681029251332917982928604615706926370928849847349572259670968283217120984*alpha^21-13467010596289137418270264397365908472792955607014181798777066767297095577664062154819688291181311491628303459640093432559320164563061133923227842821183729776*alpha^20*beta-16226163219058847095885570817282382753174244175879870375698989189657159692231334822328577626598144658886574577257352954294490833787559810692825518329457082168*alpha^20+10192247697796748843168486885874400089273240673150711951002326816926574891591418617679682653823102047210989416756891250457074738511664646822680025500023026496*alpha^19*beta+3224637657090111351302050046373885697716793347971141210613965691733607108049755051811659291216036216773497751377750151257695523855089964090933378962341186620*alpha^19+18931933840016068920638965927886462222747176875648398697152983241175042612905056241334146598542291193086541404359955156318160847741860117725458874402270410120*alpha^18*beta+12855575112511559764344758286005250748505061346752404515290518623648365983464131386538720988177792046935993561647016485662287694607317072129310665742164630468*alpha^18+18334938804134062154495692409179215584311964084141260876731273551279797948298636182543082890275509596083528918261589539812731060725262438055761056557497980032*alpha^17*beta+15157160559548843446485364642927519878318359255062737268559871777787922052419284131481470172754509626966021481483782800567156330748607667988078936958553921164*alpha^17+13998702632473743013794325337916615862042098157674927891530778166106769164613286481163614062288685371793752792881019207186057874845438611958950076063539359848*alpha^16*beta+13169056317359946498786728091856070666583161137207237031678016717431620074395007412985551018709111321897895530535571577358615657586817131604181160225131752372*alpha^16+9327369478295204923652677421241663785558200457756015755725813148985074082781356097144390884008103770087722608588191823654061368428520295024460381601405091968*alpha^15*beta+9496326685719322213287954959565687543367365185213017549632657762961111504270630508241319071819536398509629524061518248940719673619827581488830162087307333072*alpha^15+5682848280842246356572284046955170975419169412963955918352578434066337129066623278831943715714304364659345191943902189907765837035829051777495059502116783648*alpha^14*beta+5913089144108366388386592848654346685337787620835148066486692156431941357716136168236624318263194628671092064347648526142591918574077488801056127522247294224*alpha^14+3253521322418619280214129809990870474087853352003537198398067868061641954748770585312437016138784876597982016210480127265146186838505775218913377266386153088*alpha^13*beta+3255502346994537636647259409157636977044429048600425836473031208802290007024893272250046199926222027524963810374178453358855080002542237374034945686786298448*alpha^13+1774295082960264919949824435036694817854560808625635194915913795858437309122618135886312760580371110996277858311057655064771865428149032154039950237335513120*alpha^12*beta+1620931063320723767377921637628855457671226532949015919408564719758054948219886846553098238379925178894094719566876074905347352309013396668482096167011451024*alpha^12+919235625521924127009021262446737956008928412530262299987872278722136002812342820583722728212541304378506994642207634544963243969331601746197315372033725824*alpha^11*beta+745424973691594449975089013478741072033306786404857367838444007111315840458657857505803538141695658307783314225251146143847170667613583551899387390608246415*alpha^11+443889215424983250177391288029887090226819493549800510817747281489400725385307628584040500639602809139303765914840316346877207286025804140671616256429642554*alpha^10*beta+319740311810476462588510313477241645598793764637221328376855720044824436244372586882654703073571064204666198718247349513694932235382935283500095759714450973*alpha^10+194055879410182600923279314604335184333078696095694970866878664265959621086187818894976736363513643108917483205432457978172521351139629132116187186343464368*alpha^9*beta+126446531632429932791234735629259642483387777107782674330372406815423755405458033637743151772613235262304913863701872748715691405547835988620162730300251323*alpha^9+74435720866349901327218514469232095035305051423328238426260831458449153096589468259427511246422276722505952988532916298987628935276032495310075978679957266*alpha^8*beta+44615092479872393304979618642297569783969099085555196223338983366865911971916054377714679975695085022012156551093196713671350151136313466409681005463464489*alpha^8+24308397045423506786594782632446078044591050110166771304854991001610214935028027170034867322007264307269667250660137714301376799308811620565987292262101904*alpha^7*beta+13410096335991364339996961597586109994237149261098751138234401826806454500705680845303777103373108577879317852690056111091780946960851271194289477074762310*alpha^7+6552495036161527768453724641359543003024470916825287487518719391786616523992013223410792566108939626556801509039981162825348209622844884303039229311039436*alpha^6*beta+3238244675382359439928732798470950070749019172790647780258367051072721133470875692605667437480407868069304259688144656233853756749091966468115514828459686*alpha^6+1402924129575193859091350795516605499653462878727249091328024612771904493756866412106062591882733663803765555048503839216018857290656690483202347412278288*alpha^5*beta+572115350074852014511441401075694722127307970383611092732779893623180473574990290206274706663731890290668386914438839149876087544602619650742160301952694*alpha^5+224767579677511016723926906904615147336606194647802446005282025128900674020802752340828755756326502642553446942215220106680272743561398510207694054219228*alpha^4*beta+57060769155601252879693890424729656290511053897927125528499230112963531370408088180028195594752013474654820421286068578105467704993710013260102973627534*alpha^4+23930910958635891209429456710280701653010685746140617221628136380666582276580359284354153471291788777334122474452497485699957729680133362664592956922480*alpha^3*beta-2232439843921309367213623257071202520590783053165275646367914318912086649190236080121425454249365624098952336173550277526083227170075289568650257755725*alpha^3+1150439958238989390152669133268388672510736783917280234836459130540561635521913873633972164331965018180847688575615211459293612202830364028178318889290*alpha^2*beta-1795242783631527864720655381962558056973833415265915082965802720025824176625765102092656855647626434475254469012326098315158838780633500142207716951515*alpha^2-56715727062038207601258767062415646448500471856786304690445022549399864910290997378609849802633116660621888532649855929753538255690716962195533184960*alpha*beta-268179017086491966502524487824777935727661502649985652449764663730621366250681121901535981257401046572417041472279470442624481148882183262197546907385*alpha-8090453910707172753406461675043197381456007354751262000911243112169417301903848003651695832287848806396627812346818461659921419127286284214984529790*beta-15301217625815173942522045792988912005783634231459769409298241809227517976398421250996455313393109985189797264285960541040594117922378392427389077055 = 0:

fsolve({A, B});

{alpha = 7.125419891, beta = -4.193846472}

(1)

 


Download two_equations.mw

here is an example : please create a folder and save this work sheet there, and create a file named example.txt there. just run the worksheet,it will save all the data there.good luck

 

NULL

restart:

L:=[seq](i^2,i=1..20);

[1, 4, 9, 16, 25, 36, 49, 64, 81, 100, 121, 144, 169, 196, 225, 256, 289, 324, 361, 400]

(1)

for i to 20 do
FileTools[Text][WriteFloat]( "example.txt", L[i] );
writeline("example.txt","    "):
od:
FileTools[Text][Close]( "example.txt" ):

 

NULL

 

Download write.mw

example.txt

here is a preocedure which i had defined, "n" is input of this procedure,by defining n, it will be answer

restart:

P:=proc(n)  local f1,f2;
f1 := expand((a1*x^2+b1*x+c1)^n);

f2 := a1*x^2+b1*x+c1;

 

solve([coeff(f1, x, 4) = coeff(f2, x, 4),

coeff(f1, x, 3) = coeff(f2, x, 3),

coeff(f1, x, 2) = coeff(f2, x, 2),

coeff(f1, x, 1) = coeff(f2, x, 1),

coeff(f1, x, 0) = coeff(f2, x, 0)], [a1,b1,c1,d1]);

end proc:

P(5);

[[a1 = 0, b1 = 0, c1 = 0, d1 = d1], [a1 = 0, b1 = 0, c1 = 1, d1 = d1], [a1 = 0, b1 = 0, c1 = -1, d1 = d1], [a1 = 0, b1 = 0, c1 = RootOf(_Z^2+1), d1 = d1]]

(1)

 


Download input_n.mw

.


restart:

int(1/1-exp(a*x)*erfc(a*x),x); # indefinite integral

x-(exp(a*x)-erf(a*x)*exp(a*x)+exp(1/4)*erf(a*x-1/2))/a

(1)

int(1/1-exp(a*x)*erfc(a*x),x=0..10);

(erf(10*a)*exp(10*a)-exp(1/4)*erf(-1/2+10*a)-exp(1/4)*erf(1/2)-exp(10*a)+10*a+1)/a

(2)

evalf(%);

(erf(10.*a)*exp(10.*a)-1.284025417*erf(-.5000000000+10.*a)+.3316649274-1.*exp(10.*a)+10.*a)/a

(3)

eval(%,a=5);

10.00000000

(4)

 

 


Download integration_range.mw


``

restart:

with(Finance):

with(Statistics):

X:=RandomVariable(Binomial(nn, pp));

PDF(X, t);

_R1

 

sum(binomial(nn, k)*pp^k*(1-pp)^(nn-k)*Dirac(t-k), k = 0 .. nn)

(1)

 

``


Download use_PDF.mw


restart:

a := Vector(5, i -> i+1 );

b := Vector(6, i -> i^2 );

 

a := Vector(5, {(1) = 2, (2) = 3, (3) = 4, (4) = 5, (5) = 6})

 

b := Vector(6, {(1) = 1, (2) = 4, (3) = 9, (4) = 16, (5) = 25, (6) = 36})

(1)

A1:=plot([seq]([m,a[m]],m=1..numelems(a)),color=blue,gridlines=false):A2:=plot([seq]([m,b[m]],m=1..numelems(b)),color=yellow,gridlines=false):

plots:-display(A1,A2);

 

 


Download use_plot.mw

i changed your x to x[k] so that u can know your x in every loop. good luck

restart:

 

a := Matrix([1, 2, 3, 4, 5]);

 

for k  to 5 do

 

x[k] := rhs((op(op(3,(DirectSearch:-SolveEquations(a(1, k)*x[k]+2 = 0))))))

 

end do;

 

a := Matrix(1, 5, {(1, 1) = 1, (1, 2) = 2, (1, 3) = 3, (1, 4) = 4, (1, 5) = 5})

 

HFloat(-2.0)

 

HFloat(-1.0)

 

HFloat(-0.6666666666666666)

 

HFloat(-0.5)

 

HFloat(-0.4)

(1)

 


Download use_op.mw


restart:

restart;  local `+`;  `+`:=proc(a,b) :-`+`(a^`~2`,b^`~2`) end proc;

proc (a, b) :-`+`(a^`~2`, b^`~2`) end proc

(1)

`+`(a,b);

a^`~2`+b^`~2`

(2)

 


Download parse.mw


restart:

q := a*mu^4+b*mu^3+d*mu^2+e*mu+f = 0;PARAM := [a = -54/c^2-1269*A[1]/(8*c^2), b = 108/c^2+5013*A[1]/(8*c^2), d = 27-693/(2*c^2)+117*A[1]-7113*A[1]/(4*c^2), e = -27+585/(2*c^2)-111*A[1]+20439*A[1]/(16*c^2), f = 1-3*A[1]-18/c^2-8*A[1]/c^2];

ans:=solve(eval(q,PARAM),mu);solve(eval(q,PARAM),mu,parametric=full);

a*mu^4+b*mu^3+d*mu^2+e*mu+f = 0

 

[a = -54/c^2-(1269/8)*A[1]/c^2, b = 108/c^2+(5013/8)*A[1]/c^2, d = 27-(693/2)/c^2+117*A[1]-(7113/4)*A[1]/c^2, e = -27+(585/2)/c^2-111*A[1]+(20439/16)*A[1]/c^2, f = 1-3*A[1]-18/c^2-8*A[1]/c^2]

 

RootOf((2538*A[1]+864)*_Z^4+(-10026*A[1]-1728)*_Z^3+(-1872*c^2*A[1]-432*c^2+28452*A[1]+5544)*_Z^2+(1776*c^2*A[1]+432*c^2-20439*A[1]-4680)*_Z+48*A[1]*c^2-16*c^2+128*A[1]+288)

 

`[Length of output exceeds limit of 1000000]`

(1)

ans1:=series(ans, A[1]=0,  2);ans2:=series(ans1, c=infinity,  3);

series(RootOf(108*_Z^4-216*_Z^3+(-54*c^2+693)*_Z^2+(54*c^2-585)*_Z-2*c^2+36)+((1/2208)*(89856*c^6*RootOf(108*_Z^4-216*_Z^3+(-54*c^2+693)*_Z^2+(54*c^2-585)*_Z-2*c^2+36)+153144*c^4*RootOf(108*_Z^4-216*_Z^3+(-54*c^2+693)*_Z^2+(54*c^2-585)*_Z-2*c^2+36)^3-71424*c^6+1242468*c^4*RootOf(108*_Z^4-216*_Z^3+(-54*c^2+693)*_Z^2+(54*c^2-585)*_Z-2*c^2+36)^2-4299420*c^4*RootOf(108*_Z^4-216*_Z^3+(-54*c^2+693)*_Z^2+(54*c^2-585)*_Z-2*c^2+36)-1932624*c^2*RootOf(108*_Z^4-216*_Z^3+(-54*c^2+693)*_Z^2+(54*c^2-585)*_Z-2*c^2+36)^3+2223508*c^4-25730820*RootOf(108*_Z^4-216*_Z^3+(-54*c^2+693)*_Z^2+(54*c^2-585)*_Z-2*c^2+36)^2*c^2+58185324*RootOf(108*_Z^4-216*_Z^3+(-54*c^2+693)*_Z^2+(54*c^2-585)*_Z-2*c^2+36)*c^2+5288922*RootOf(108*_Z^4-216*_Z^3+(-54*c^2+693)*_Z^2+(54*c^2-585)*_Z-2*c^2+36)^3-23450550*c^2+130487517*RootOf(108*_Z^4-216*_Z^3+(-54*c^2+693)*_Z^2+(54*c^2-585)*_Z-2*c^2+36)^2-240569955*RootOf(108*_Z^4-216*_Z^3+(-54*c^2+693)*_Z^2+(54*c^2-585)*_Z-2*c^2+36)+82918908)/(108*c^6-3280*c^4+32871*c^2-108891))*A[1]+O(A[1]^2),A[1],2)

 

((1/108)*RootOf(_Z^4-5832*_Z^2)+(1/2208)*((208/27)*RootOf(_Z^4-5832*_Z^2)+(709/629856)*RootOf(_Z^4-5832*_Z^2)^3)*A[1])*c+O(1)

(2)

 

 

 

NULL


Download eval.mw

1 2 3 4 5 6 7 Page 2 of 9