Computerprogramma voor de berekening van enkele
verspaningsgrootheden
Citation for published version (APA):
Vossen, L. F. (1973). Computerprogramma voor de berekening van enkele verspaningsgrootheden. (TH Eindhoven. Afd. Werktuigbouwkunde, Laboratorium voor mechanische technologie en werkplaatstechniek : WT rapporten; Vol. WT0310). Technische Hogeschool Eindhoven.
Document status and date: Gepubliceerd: 01/01/1973
Document Version:
Uitgevers PDF, ook bekend als Version of Record
Please check the document version of this publication:
• A submitted manuscript is the version of the article upon submission and before peer-review. There can be important differences between the submitted version and the official published version of record. People interested in the research are advised to contact the author for the final version of the publication, or visit the DOI to the publisher's website.
• The final author version and the galley proof are versions of the publication after peer review.
• The final published version features the final layout of the paper including the volume, issue and page numbers.
Link to publication
General rights
Copyright and moral rights for the publications made accessible in the public portal are retained by the authors and/or other copyright owners and it is a condition of accessing publications that users recognise and abide by the legal requirements associated with these rights. • Users may download and print one copy of any publication from the public portal for the purpose of private study or research. • You may not further distribute the material or use it for any profit-making activity or commercial gain
• You may freely distribute the URL identifying the publication in the public portal.
If the publication is distributed under the terms of Article 25fa of the Dutch Copyright Act, indicated by the “Taverne” license above, please follow below link for the End User Agreement:
www.tue.nl/taverne Take down policy
If you believe that this document breaches copyright please contact us at: openaccess@tue.nl
providing details and we will investigate your claim.
•
techni6che hogeschool eindhoven
vakgroep procMlietechnoiogie
~---~ ... pport van d. sectie:
titel:
Computerprogramma voor de berekening van enkele verspaningsgrootheden
outeur(.):
L.F.Vossen
Ir J .. A.W.Hijink
hoogl eroor:
Prof. Dr Ir A.C.H. v.d.Wolf
somenvotting
nit vers1ag omvat toe1ichting bij,en tekst van ean computerprogramma dat is opger::teld in het kadez;/van een 1-1 opdracht.Lr wordt een kart overzicht gegeven van de diverse ~r<>otheden,die bjj een draaiproces van belang zUn.De onder1inge relaties worden vermeld,en
.
~
er is aangegeven hoe een en ander in het programma
1s verwerkt.De FORTR~f-tekst van het programma is toege11cht aan de hand van een arultal flow-charts.
Het progr":'lJ:lZl'la b1edt de moge1ljkhe1d ont, na invoer1ng van oen beperkt aantal gegevens omtrent proces-.omstandighedentsnel informatie te verkrljgen omtrent
gunstige ,waarden voor aanzet,slankheid,toerental etc. en de daarbjj te verwachten waarden voor sn~kracht en standt~d.
progno.e
U1t'verder testen in de praktijK moet blljkenof dit programma eeu hulpmiddel kan zUn bij de werkvoor-bere1d1ng in een draaier.ij.
bIz. 1 vail 43b1z. rapport nr.310 codering: trefwoord: datuM: januari '73 oonta\ biz. ge.chikt voor publicotie in:
Inhoudsopgave
In1eiding
Het draaiproces
Het computerproerru~Ja
ueschrijving programma opbouw Invoergegevens Berekenine;en Data Principe schema J!'low-chart hoofdprogramma 1/ subroutine OP'lI,LEES 1I suoroutine COiI;S'r? II subroutine SPEC II subroutine CO~fSTV 11 subrotrtin~ .BEITEL,NOifF1:-:R II subroutine VBANK fI subroutine CON'l'nV fI subroutine BHKI1EX, TJ: PBHK \I subroutine TABLE II subroutine 'l'AYLOR
"
subroutine VE."TIGLFortran tekst van het prograruT.'la Toelichting blj het data-gedee1te
e
Voorbeeld van een borekening'l'oelichting bij de gebruikte symbo1en Bronvermelding 2
3
3
78
8
8
10 1113
16
17
18
19 20 2l22
23
24
25
26
2733
35
37
43Inleiding
Uitgebreide onderzoekingen van de verschillende verspaningsprocessen hebben geleid tot aanzienlijke vorderingen,zowel wat betreft procesbeheer-sing,als ten aanzien van constructie van de gereedschapvverktuj.gen en ont-wikkeling van betere snijmaterialen.Dit geldt in het bijzonder voor het
draaiproces.De diverse grootheden die hierbij een rol spelen zjjn via fysische relaties met elkaar in verband gebracht.Dit biedt de mogelijkheid om betrouw-bare voorspellingen te doen over het procesverloop onder gegeven onstandig-heden.De complexheid van de diverse rele.ties,alsmede de veelheid van faktoren waarmee rekening dient te worden gehouden,is voor de praktijk echter vaak
e
bezwaarlijk.In dit verslag wordt een kort overzicht gegeven van de verschillende groot-heden,die bij een draaiproces van belang zijn.Vervolgens wordt een conputer-programma toegelicht,dat aan bovengenoemd bezwaar tegenmoet komt.Het is opge-steld aan de hand van de klassieke kennis omtrent het draaiproces en biedt de mogelijkheid om snel informatie te verkrijgen over gunstige waarden voor de diverse grootheden onder door de gebruiker vast te stellen condities. Het draaiproces
De beslissing om een bepaald produkt verspanend te vervaardigen,met welk gereedschapwerktuig,welk snijgereedschap en welke bankinstellingen,wordt bepaald door faktoren als kostprijs,productiviteit,gewenste
oppervlaktebnali-teit en maatnauwkeurigheid.De verschillende relaties tussen de verspanincs~
grootheden bieden de mogelijkheid om betrouwbare uitspraken te doen omtrent genoemde faktoren.Hiertoe is informatie benodigd over:
a) economische aspecten: gewenste kostprijs en productiviteit,
b) werkstuk: een gegeven vorra,gewenste maatnauwkeurigheid en
oppervlaktekwaliteit,
c) werktuig: constructie,stabiliteit en instelmogelijkheden,
d) snijgereedschap: beschikbare soorten,geometrie.
Is het gereedshapwerktuig eenmaal gekozen,dan heeft men,naast de keuze van het snjjgereedschap,alleen nog de mogelijkheid tot variatie van spaandoorsnede
en anijanelheid.Met deze twee variabelen beinvloedt men faktoren ala kost-prijs,oppervlaktekwaliteit etc.Er bestaan echter geen direkte verbanden
tussen de laatstgenoemde faktoren en de spaandoorsnede en snijsnelheid.Daarom volgt men de omweg van het berekenen van de standtijd van de beitel en de
beit~lternperatuur,en komt aan de,hand daarvan tot uitspraken omtrent kost-prija,produktiviteit en oppervlaktekwa11teit.
Het vormen van spanen door het snijgereedschap is op te vat ten ala een ru1m-telijk afschu1fproces dat plaats heeft in een smal gebied voor de snijkant van de. beitel.Spaandoorsnede,snijsnelheid,werkstuk- en beitelmateriaal alamede beitelgeometrie zijn bepalend voor de hierbij optredende krachten,de benodigde energie en de levensduur van de beitel.Bij spanen met een slankheid groter dan 5 geschiedt de vorming hoofdzakelijk door de hoofdsnijkant.Voor dit geval zijn de hierna volgende relaties van toepassing.Ze bevatten de belangrijkste
e
grootheden die van invloed zijn op het ver'spaningsver1oop .. De diverse konstanten die in de ze relaties voorkomen staan doorgaans in tabel vorlll ter beschikldng; ze zijn afhankelijk van werkstuk en beite1materiaa1 en faktoren zoals t~ek~_ sterkte,hardheid,toepassing van koelv1oeistof,beitelgeometrie etc.V~~r de hoofdsnijkracht Vlordt a1gemeen gehanteerd de volgende relatie:
o/s (p A ~~!>
Fv
=
Cf-"(5co?li'cos>,)' ~JA
hierin is! a: snedediepte T: standtjJd
~~: beitelhoeken
(Kronenbergerrelatie)
(Taylorrelatie)
s: aanzet ; A: spaandoorsnede (:: axs).
~,o,c,y; materiaal- en/of bewerkingskonstanten.
Met behulp van deze re1aties,of grafische weergaven ervan,kan men komen tot uitspraken omtrent wense1jjke \vaarden voar aanzet en snjjsnelhe1d.Nen client echter rekening te houden met de veelheid van beperkingen die werktuig,
gereedschap en werkstuk stellen aan gewenste of haa1bare waarden voor aanzet en snjjsnelhe1d.De belangrjjkste beperkingen staan hieronder vermeld;niet al-tijd zu1len a1 deze kriteria in acht behoeven te worden genomen en vangeval tot geval kan hun be1angrjjkheid verschil1en.
Beperkingen ten aanzien van de spaandoarsnede kunnen zjjn: de door __ het V1erkstuk voorgeschreven snedediepte,
de maximaal instelbare aanzet,
: max. toelaatbare aanzet i.v.m. vereiste oppervlaktekwalite1t, : instabiliteit ten gevolge van te slanke Bpanen,
maximaal toelaatbare krachten op werkstuk en werktuig. De snijsnelheid wordt beperkt door faktoren zoals:
: beschikbare maximum en minimumsnelheden,
beschikbare vermogen,alsmede gewenste gunstige benutting van het vermogen.
Bovendien is het gewenst .dat de berekende vlaarden van aanzet en sn1jsnelheid ook bij benadering instelbaar z1jn op de gekozen bank.Vooral i.v.m. het
expo-nentie~le karakter van de snUsnelheidsrelatie kan een geringe afwUking tussen
gewenste en beschikbare snelheid een aanzienl1jke standtUdsvariatie opleveren. In onderstaande figuur zUn de genoemde beperkingen weergegeven;het werkpunt verschuift ten gevolge van de versch111ende beperkingen van I via 2 en 3 naar 4. max.mstelbare snl)snelheld
v·
I mlfl.lnstelbare sr'lljsnelheld777.'m7 begre nzl ng lv.m ,..-besc.hlkbare vermogen ---;-1 4·I,
.
I :
.
I :
I I I optlmvm.afhankeh)}< van cnterJum~m~f kOSlen .Jm:lx, produ ktlvltelt\--: Sj max.aamet max,lnstelbare aanzet
mn. rnstelbare Inabewerkrng} (snl)krachtl
aanzet ... AANZET
"
De afleid1ng van de,in de f1guur weergegeven IUn 'optimum' staat in de diverse handboeken uitvoerig beschreve.n;hieroIider vo];gt een bekuopte weergave van
~
deze afleiding.Indien men de bewerking tegen minimale kosten wenst uit te voeren,is de redenering:
De totale kosten 'KIt voor de bewerking van een werkstuk worden bepaald door de volgende faktoren:
Rl=
kosten van 'machine bediening overige',kosteneenheden/m1nuut.R2= gereedschapkosten per snijkanttin kosteneenheden. Tl= tljd waarin niet verspaand wordt,in minuten.
Twg=tljd,benodigd voor het verwisselen van een snijkant,in minuten. ~ = standtUd van een snUkant,in minuten.
4 "'," t < -\ "!\ i, ; > ~ 1 ' / '
Dan i s : K; RI lC (Tl+Tc+Twg+Tc/T)", R2xTc/T.
minimale kosten wordt gevonden door de totale kosten K naar aanzet en snJjsnelheid te differentie~rentdus* en ~ te bepalen.Het blijkt dan dattbij gelijke aanzet,de voorwaarde~~o steeds een lagere snijsnelheid I oplevert dan ~:.o. Dit betekent dat dan ook de kosten lager zullen zJjn;
aIleen de voorwaarde :~::o is dUB interessant. Uit deze voorwaarde volgen echter geen eenduidige waarden v~~r aanzet en snUsnelheid,waarvoor de kosten minimaal zijn.De kosten nemen continu af met toenemende aanzetjdaar-om. moet de aanzet gekozen worden op basis van de diverse beperkingen.De bjjbehorende snJjsnelheid Vlordt gevonden m.b.v. de Taylorrelatie.Hierin krijgt de standtjjd T dan de waarde die voIgt uit ~::lH 'r=(I/y-I,C.J:i:2/RI+'rwg). Het verband tussen aanzet en snijsnelheid is drul zoals weergeseven door de lijn 'optimum' in de figuur op de vorige pagina.
Indian men'niet geinteresseard is in een minimale kostprUs,doch aIleen een zo kort mogelijke bewerkingatjjd wenst,d~~ is de redenering ala voIgt:
De totale bewerkingstijd Tt is samenGesteld uit de reeds cerder genoemde faktoren volgens de relatie: Tt= 1'1+ 'I'c+Twgx'rc/T.
Ook deze relatie is weer afhankel :jk van aanzet en snUsnelheid.Minimale bewerkingstijd wordt gevonden door ~ en ~ te bepalen.Het bl1jkt. dat, bij geljjke aanzet t de voorwaarde ~::o steeds een hogere snJjsnelheid en
dk. dh
dus ook een hogere proEiuktiviteit oplevert dan -gs:::0 .Alleen W=o is dus interessant.Ook hier wordt geen eendnidige waarde voor de aanzet gevonden. De bewerkingstljd neemt continu at met toenemende aanzet;de aanzet wordt
zodoende gekozcn op basis van de diverse beperkingen.Het de, uit
#-::0
vol-gende atandtjjdr",
(l/y-l)xTwg kan vervolgens de snjjsnelheid worden bepaald. Het verband tussen aanzet en snjjsnelheid is dan zoals weergegeven door dee
Ijjn I optimum I in de figuur op de vorige pagina.De ligging van de bovenomschreven Ijjnen is in de tiguur moeilJjk exact weer te geven.In de praktjjk maakt men daarom gebruik van diagrammen,waarin de aanzet horizontaal op een logaritmische schaal is uitgezet;verticaal zijn dan op een lineaire schaal uitgezet de snjjsnelheid,de snjjkracht,het benodigd vermogen en de spaanproduktie.De rechtlijnige verbanden die dan verkregen worden bieden de mogelUkheid snel en nauwkeurig geschikte waarden Vodr aanzet en snjjsnelheid te bepalen.Een dergeljjke gra.fische weergave (draaidia.gram) is echter slechts geldig voor een bepa.ald werkstlunuateriaal met nauwkeurig omschreven mechanische eigenschappen, dat bewerkt vlordt met, slechts enkele beitelmaterialen.Er bestaat derhalve behoefte aan een meer uitgebreid systeem, dat voor een veelheid van werkstmc- en beitelmaterialen van toepassing is. Een eerste aanzet hiertoe vormt het hierna te bespreken computerprogramma •
z
Het computerprogramma
Het pro0ramma werd geschreven in de programmeertaal 'fortran' en is via een terminal te gebruiken;het bevnt gegevens van enkele draaibanken en van een aantal werkstuk- en beitelmaterialen.Afhankel.ljk van de wensen van de gebruiker bepaalt het programma geschikte waarden voor de diverse ver-spaningsgrootheden.Globaal z.ljn de verrichtingen van het programma als voIgt te omschrjjven:
Nadat de gebruiker via een vraag-en-antwoord-systeam z.ljn wensen aan hat programma kenbaar heeft gemaakt,wordt de aanzet gecontroleerd en eventu-eel gew.ljzigd,zodanig dat hij toelaatbaar is m.b.t. max. sn.ljkracht,koppel,opp. ruwheid etc. Vervolgens wordt de snljsnelheid be:9aald en v:ordt een
banktoerental zocht.Door een geringe variatie van de aanz,ct wordt be';" reikt dat b.lj dit toerental bij benadering de gewenste standt.ljd Vlordt ver-kregen.lndien nodig,stapt het programma gedurende de berekeningen over op een andere draaibank of een andere beitelmateriaalkwaliteit.De diverse tussenstappen '\'lorden door het progr2cr::3. uitgeprint;het geheel wordt afge-sloten met het uitprinten van de delinitieve v~'aarden voor aanzet, snijkracht , toe:::'ental, standtijd etc. In hetvoL:e~lde principe schema zljn de ver-schillende stappen v:eergeD8ven (pag. 11
Em
12).Beschr~v1ng van de progrruuma opbouw.
Het programma bestaat uit een hoofdprogr~lma,waarin de berekeningen worden uitgevoerd,en uit een aantal subroutines,die hoofdzakelijk __ _ benodigd zjju voor het bepalen vall de diverse constanten en voor het controleren van de berekende grootheden.
Invoergegevens
Via een'conversational-modefgedeelte verschaft de gebruiker aan het programma informatie over zjjn weusen en over de waarden van de diverse grootheden.lngevoerd moeten worden:
l) gewenste draaiba~~;keuze uit enkele banken,waarvan het vermogen is aangegeven
2) werkstukmateriaal;staal,grijs of nodulair gietjJzer,koper,messing, brons of aluminium.
3) trekvastheid (staal) of hardheid (gietijzer).
4) gewenste beitelmateriaal;de volgende soorten zjJn beschikbaar: voor staal: POl,PlO,P20,P30,P40,SSl,SS2,SS3;
overige metalen: KOl,KlO,K20,SSl,SS2,ss3.
5) beitelgeometrie:spaan-,snijkants- en vrjjloophoek,neusradius.
6) diameter van het werkstuk. .. 7) snedediepte en aanzet. 8) gewenste standtjjd.
Indien optimalisering gewenst wordt,moet het gewenste kriterium{minimale kostprjjs of maximale produktiviteit),alsmede de grootte van de diverse
deelkosten worden opgeg~ven.lndien het nabewerking betreft,moet de maximaal toelaatbare oppervlakteruwheid worden opgegeven.
De berekeningen.
Gestart wordt met €len controle van de opgegeven aanzet .. De absolute max. waarde hiervoor bedraagt 2.5 mm.In het geval van nabewerking wordt de max. toelaatbare aanzet bepaald uit de opgegeven waarden van neusradius
(REPS) .en oppervlakteruwheid (HUH) volgens de relatie: Sl-iAX:
Vex
HIIH)(REPS.Het de eventueel gewjjzigde waarde van de aanzet wordt vervolgens de hoofd-snjjkracht FV bepaald volgel1s: A/$ )~d'F( :,\I-~
FV,::; CfV J'(S~"'K""A. ~ A~PMN/
De hiervoor benodigde constanten worden bepaald door subroutine CONSTF,in afhankeljjkheid van werkstukmateriaal,trekvastheid/hardheid en spaanhoek.
De grootte van de sn:ijkracht wordt beperkt door de maximaal toelaatbare kracht op de hoofdsp11 van de draaibank en door het maximaal te leveren koppel.Deze max. waarden worden m.b.v. Bubroutine TYPBNK verkregen u1t tabel BANK,waarin voor de verschillende draaibanken de volgende gegevens zUn opgeslagen:max. hoofdsnljkracht,max. koppel,besch1kbare vermogen, grootte van het neg. re~le deel van de overdracht van de
draaibank,regel-faktor en het laagste en hoogste beschikbare toerental.De grootte van de snUkracht en van het Itoppel wordt verge1eken met de maximumwaarde;indien nodig worden sn:ijkracht en aanzet verlaagd.Vervolgens worrlt doo~subroutine
-...j..~
BEI'rEL de aanzet vergeleken met de maximum-en miilimumwaarden van het
gekozen beitelmateriaa1;indien nodig wordt een ander beite1materiaal geko-zen.
De stabi1iteit van het procea wordt gecontroleerd aan de hand van de over-dracht
irc.
die '/ordt verkregen door differentiatie van de sn:ijkracht naar d e a an t 'd"t ze, ~ gee ft··1 . C" CFV* Sc-'lKG<I>-j,i. (- Als)YF
JI.(/-tJ.F-rp)
~A J-Il(F If~ l"'-O<"Ala kriterium wordt genomen: TC=l/2RN,met tRN' de grootte van het neg. re~le
deel van de overdracht van de bank.In het geval van 1natabi1iteit springt het programma terng naar het invoergedeelte en kan de slankheid verlaagd 'Worden.
Hierna \Vordt de snlJsnelheid bepaald m.b.v. de relat1e:
V::
CFV~ (s~/~~;>,)~V¥.(ASPAAN):Y~?
De benodigde constantEm worden bepaald door subroutine CONSTl", in
afhanke-l~khe1d van werkstuk- en beitelmateriaal en trekvastheid/hardheid.Het
be-nodigde vermogen volgt uit: FV~V.Indien de draaibank dit vermogen niet be-sehikbaar heeft,wordt subroutine BNKHEX aangeroepen en worden de volgende twee wegen aangegeven: 1) verlaging van de snijsnelheid tot: 'max.vermog./FV', en met deze verlaagde snelheid verdeI' rekenen. 2) geschiktere bank kiezen, en de berekeningen vanaf het begin opnieuw uitvoeren.Afhankeljjk van de wens van de gebruiker wordt een van deze wegen bewandeld.
Indien het benodigde vermogen beschikbaar 1s,wordt door subroutine CONTRV geeontroleerd,of de snijsnelheid toelaatbaar is voor het gekozen beitel-mater1aa1;eventueel wordt een ander beitelma.teriaa1 gekozen.
Subroutine VB.A1~K bepaalt vervolgens de snelheden ·vbanki en ~vbank2',in de omgeving van de berekellde snelheid V,zodanig dat vbankl~V~vbank2.Indien
de afwijking tUBsen gewenste en beschikbare snelheid meer dan 2% bedraagt, wordt de aanzet enigzins verlaagd,zodanig dat bij de snelheid vbank2 vrij-wel exact de gewenste standtijd wordt ver!cregen.Hiertoe moet het programma echter wel vanaf het gedeelte waar de snUKracht wordt berekend opnieuw wor-den doorlopen.De bovengenoemde 2% grens is gekozen op basis van het glo-bale verband tUBsen aanzet en snUsnelheid.Het verband tussen snelheids- en
standtijdsvariaties is voor snelsta,al ::J~~{I{)~(Ij-8en voor hardmetaal =::-:l)(IrJ)lIill-;' •
Uit deze relaties blUkt,dat variatie van de snijsnelheid met 2% kan leiden tot standt:ljdsvariaties van enkele tienden procenten bij hoge snelheden; 'bij lage snelheden daarentegen kunnen standtijden worden verkregen die dertig of meer procenten van de gewenste waarde afw:ljken.
In het geval,dat alleen vbankl beschikbaar istdoordat bij snelheid V het volledige bankvermogen benodigd is,kan alleen door aanzetvergroting
bereil~t worden,dat gewenste en beschikbare snelheid aan elkaar gelijk worden. Indiell aanzetvergroting niet mogelijk iSt bljvoorbeeld doordat de aanzet
gelUk is aan zijn maximumwaarde m.h.t. nabewerking of belastbaarheid van de draaibank, dan wordt de 2% grens gepasseerd;voor dit geval (volledige
. benutting van het bankvermogen, terwjjl de aanzet gel:ljk is aan zijn maximum) kan d~~ een standt:ljd worden verl~egen,die aanzienlijk afwijkt van de gewenste waarde.
Net behulp van subroutine TAYLOR worden standtijden bepaald voor verschil-lende combinaties van snijsnelheden(vbankl en vbank2) en beitelmaterialen
(de soort waarmee het programma tot nu toe heert gerekend,alsmede de naa.st-b:ljgelegen lagere en hogere kwaliteit).Hiermee verkrijgt de gebruiker een indruk van de invloed van w:ljziging van sn~snelheid en beitelmateriaal.Uit de bovengenoemde combinaties wordt door subrout~~e VERGL die combinat1e gekozen,waarmee de gewenste standtUd het beste wordt benaderd.
Het programma wordt a.fgesloten met het uitprinten van de uiteindel~ke
waar-den v~~r aanzet,snedediepte(wordt door het progr. niet
gewijzigd),slank-heid,spaandoorsnede,hoofdsnukracht,snijsnelheid,toerental(een discrete waarde uit de reeks beschikbare toerentallen) ,nummer van het beitel1Jlateri-aal en standtijd.
De data
B~ het programma hoort verder nog ean data-gedeelte,wa.arin de waarden van de diverse constanten zijn opgeslagen.Het betreft materiaal- en bewerkings-constanteu,ma.ximuu- en minimumwaarden voor aanzet en snijsnelheid in af~ hankelUkheid van het beitelmateriaal en gegevens van de diverse
draai-banken.Uitbreiding van het aantal getallen is altljd mogel:ljk;hiertoe behoeven slechta geringe wijzigingen in het programma te worden aangebra.cht.
•
PRINCIPE-SCH:i.:HA PROGRAHIvrA 'PTU;W'.
1
in te voeren gegevens:2
3
-gewenste draaibank; no 1,2,3 of
4.
-voor- of nabewerking;b~ riabewerking opgave max. ruwheid.
-werkstukmateriaal;staal, brons of aluminium.
of nod.giet~zer,koper,mess
-beitelmateriaal;voor staal:P01,P10,P20,P30,p40,SS1,SS2,SS3. overige metalen:K01,K10,K20,SS1,SS2,SS3.
-beit ometrie (spaan-,vr~loop- en snijkantshoek,neusradius) -werstukdiameter.
-indien ontinalise gewenst wordt,opgave gewenst criterium;
opgave van de grootte vari tle diverse deelkosten en van de gereedschapwisseltijd.
-gewenste standtijd. -aanzet.
-snedediepte.
(indien optimalisering gewenst wordt, bepaalt het progralilma
geschikte waarden voor aanzet en standt~d)
e.!'PAtING l;/iw;;Nsri $iAN!>'t!)P e.NMNur I3Ei'Al.n\IG VAN Oi 'roE/.AAT-fiMtlif MNzU 112> •• OPPEllvl. QUWHEH) IIEIeLAClNc VA'" I-IC>cI'bloHI)UItAC/.i' SN AAN<:.Ii.T rOT )l«J(. ViE(?LA(;/NG W4N I<O"~L EIoI MAl2£.7" 7"0" I1A)(. Pl!oU. I(lEGT ..qNOU I>CJrn-"' .... 'tf IlIAAL V/TPRINT!N VAN DE GE:GEVENS VAN DE <;E~O~EN DRAAIB
4
SLANJ.<HtlD .;>--_IJIo....IIIERLAbEN BEREKEN/NG .sN!l~NELHE'D.
Lite
)4-v(A'itV(T)':) V=-C~V ¥1.5 kC<rlJl * jli;,J ., To 2 HOGEL!JKJ.j£Df >-_-lil-.lPRO('~. LAJIT kEU<'E MI\I DE GfBRull{!R ~o(,~. Klf~r DR 4A !I? ANI< I1EZr GR.Oi£Q. VEnt'10bEN PR06R. VER.-lAAGT DE S/ll' SNELHflCl Tor NI1A'I./FV P~DC.R.kJ"'$T >---IIMAN Dl:R 8fITEI:t---..I. MATI::: rvAt>.l. N VLAGER Gi;"l DAN I---II"",DE Sf ~(HJ!< BMfl--_--' SNELHEOEI\',JAJ-1I0FR W!)~J(j£N.B£RFKFNING 5TANDT!JDEN I/OoR DE GEVALLfN:
Y B£ITELMATEI<IAAL 'L-1'~' SNIJSNHl-lflD'V1"
'2) 'L· ; '. 'V1 ,.
3 . t . , • L" ; 'V1 "
If) oLd ~ "\12" (OI'1i3/NATIE 01(,; Of SH.TE: BENADERING VAN DE GE~ENSTE STANDTVO OPL£VEt<T BEPAAL1
DfFI-NITI€IIE B£ITELNAT&RlAAl eN SNIJSl\lfU-IEJO
VIlPRINTEN VAN.: ~AAN~ET
-SNEDEDrEPTE - S LAMmEI D - SPAANDOORSNEDE -l-/oomSNI)KRACHT -$N 'J5NHHErD - TOEr<fiN.AL -NO.BEITHI1AT. -$7ANDT!JD. NA~R 1 NAAR ~"
21
Flow-chart.
">-_ _ -lbRVS· 0> NDDVLA,If(
&1£7 !l21:~ iHA~O~E:IU~
ReAD GRNOO"f1k!1
NVMI1E~ ~"/.I" BEI'E./:
">--_IIIo-i'1A 7 E QIA4L ? ((tAo l CALL OPT 13 39
304
305 2 END P7iuRN17 1 5 CALL CON$.T~ 4 CALL BEIT~L 22 LeMA}:l >---a--.J CALL CI-I.4.IN(1)
18 100 12 1t.S 150 10 CAt COl'4Sl"V 16 20
CALL 21 CONTf\V 15 30 CALL vBANK lel-lAt: 1
CALL C/-IA IN (I)
GO TO 100
LCI-IA1",
CALL C/-IAIN (I)
:>-:----1 GO TO i4-S >--~ GO To 14-5 Co To Ilr5
u.s
25 26 VEI\Gl E.N 0 P'lTvt:{N t. C~Al"1 CALL C~AIN(I)SUBROUTINE OPT(L,SV,ISV,JSV,TOPT,S)
OPT wordt door het programma aangeroepen,indien optimalisering gewenst, wordt.Afhankelijk van het door de gebruiker gewenste kriterium(minimale kosten of maximale productiviteit)worden enkele vragen gesteld omtrent de diverse deelkosten en de gereedschapwissel tijd. Het deze gegevens berekent de subroutine de faktor TOPT,die in het hoofdprogramma nog met
'(1/IJ-~)'moet worden vermenigvuldigd,om de gewenste standtijd T te
ver-krijgen; de aanzet wordt gelijk gesteld aan: 10.95 Hax. toelaatbare aanzet
voor het gekozen beitelmateriaal'.
HOE GROOT 2 !,I N: A) GERfED5CHAPKOSi£N
PER SNUk4NI ($)~(~Rl) ~ 0) KOS7'IN VOOtZ'
"MACHINE + 8EDIEN'N6~OVi!R'6f .. (t/MIN)~ (= R'l.) R;;AD R,1 • K'l. _ _ _ ...J
END
SUBROUTINE LEES (ARRAY, HBIG ,NBIG, 11.ARRAY ,NARRAY)
Met behulp van deze subroutine worden de getalwaarden uit het data-gedeelte ingelezen.Hiertoe worden telkens eerst de absolute grootten van kolom- en rijlengte van elke tabel ingelezen,en vervolgens de werkelijke
grootten ervan: MARRAY en NARRAY. Daarna wordt l'1ARRAY keer een reeks van
NARRAY ~etallen ingelezen,waardoor aan alle elementen van tabel ARRAY
smmOUrINE CONSTF (I, ~1ECEI3:, GA!'-1M.4., ALFAF, GArINAF , CFV, AF ,CF, DF, HCF ,NCF, HDF, NDF ,
*ICF,JCF,IDF,JDF)
CONSTF bepaalt de waarde van de onderstreepte faktoren;deze zijn nodig voar de berekening van FV volgens de relatie:
I. A /S . \GAIIMF I-ALFA~
FV-::
C fV «-rS=Cot.'1I(APPA ("§lAMBOA) ..{A.
5)
voar non-ferro metalen (I grater dan 2) worden deze bepaald uit tabel AF.
voor staal(I=1) en tijzerC=2) uit tabel CF resp D:?, in afha.nkelijkheid van spaanhoek GANHA en trekvastheid/hardheid l1ECEIG.
CAL"
SPEC(..a ... ) RETURN
CALL
S pt;C("O~,) RETURN
10
de variabele I bepaalt,welke tabel gekozen moet worden;X geeft hierin het rtinummer aan,waarna ALl"AF,GA;·'lHAF en CFV bepaald worden uit de 1e, 2e en Ye(voor 1=1,2) of 3e(voor I=3,4,510f 6) kolom.
SUBROUTINE SPEC (NECEIG, Q, Q,START ,M,N ,HBIG ,NEIG, IJ,
- - -
,GJ.NHAS, CFV)SPEC wordt aangeroepen door CONSTF en CONSTV. Net behulp van de diverse ·tabellen wordt door SFEC aan de onderstreepte faktoren een waarde
toege-kend.Voor CONSTF bepaalt SPEC deze waarden uit tabel CF(voor staal) of DF( voor giet:ijzer) en Vlel in afhankelijkheid van spaanhoek GAHI·IA en trek-vasth. /hardheid JvIECEIG.Voor CONSTV worden ze door SPEG bepaald uit tabel
B(voor staal),C(voor giet:ijzer) of D(voor nodulair gie ) in
af-hankelijkheid van beitelmateriaalno. L en trekvastheid/hardheid J'.3CEIG. Hieronder is schematisch de opbouw van de tabellen weergegeven:
tabel CF en DF tabel B,C en D.
0 0 4.00 If.¥.D .. , ... Boa 8so 0 <> 0 14000 *",,"0 &0 8SO
2.'1-0/> ~IO" 6.$ f.8 V""I '-600
t'titi
<1\51
~ ~~t
"
S:'l.fm
\!'I <I'>~t
!t
!:;>~ <!J~., (i{~l t:i{.?> ". ~~I'/ /{'" 1 1i''''2, G;?> G/'" '+ . . . 4 .. /11
LGSTARt"3 L(,lf>TART:O+
R:ij 1 van de tabellen bevat vanaf kolom QSTART een aantal opklimmende waarden voor trekvastheid/hardheid.SPEC bepaalt tussEm welke v/aarden'in daze reeks MECEIG zich bevindt.Aan de hand daarvan wordt in r:ij P via interpolatie de bij }TECEIG horende waarde van CFV bepaald.1Us NECEIG klei-ner dan het kleinste,of groter dan het grootste getal in
dit uitgeprint en stopt het programma.
1 is,wordt
ALF AS en GAH11AS worden gesteld aan het eerste resp. tweede getal in
r:ij P.B:ij CONSTVis :~START=4,en in dit geval wordt ook aan IJ een waarde
toegekend, en wel die van het derde getal in rjj P .De waarde van P wordt bjj CONSTF bepaald door spaanhoek GAHMA, bij CONSTV door bei telno. L.
- CFY=A (P.Q-O f(t1ECm;-A(I.Q-J))~
(ACP.Q)-ACP'G-r))/(A( I.Q)·AlI.Q-/))
WRITE:: TRtl<VA~THEIP RESP. HARI)J.·lfID
NIEr 81NN£N DE GRE.NZGN 4-00-8£)D NIM~
RfS . JOoo -'1800 NI \
JJ= A(P.3)
SUBROUTINE CONSTV(1,HECE1G,L,GRNOD,ll,=c...:.::..:. *MB,NB,I>1C,NC,HD,ND,IB,JB,IC,JC,ID,JD)
,B,C,D,E,F,G,H,
CONSTV bepaalt m.b.v. SPEC waarden voor de onderstreepte faktoren.Deze zijn benodigd voor de berekening van de snijsnelheid volgens de relatie:
( A.ls :\G-JlM"'AV "\ IIU'AV
fTZ
~-l)V ;:
CFV:.I 5'C<>s'tl(API'ACD\>LAMB/>AJ i< (A. S,'* \
1,60;V~~r non-ferro metalen worden ze bepaald uit t~bel
Be
) ,F( ) ,G(1=5) ofH(I=6) ,in afhanke11jkheid van beitelmateriaalno. L.
Voor staal(I=1) ,grijs gietijzer(I=2,GRNOD=1) en nodulair gietijzer(I=2,GRIWD=O) geschiedt bepaling van daze constanten uit tabel B,C of D,in afhankelijkheid beitelmateriaalno. L en trekvastheid/hardheid l:f.ECEIG.
3 7 CALL SPEC(S .. ) 8 CALL NONfERlF.) RSTUR.N CALL SPEe(e .. ) 6 CALL 10 CALL NONFER(r..J SPEC (0. .. ) 11 CALL " NDNFEt{~ R!?TURN RETURN
V~~r I groter dan 1 is de constructie met LL nodig,omdat dan
beitelmateriaal-nummer L een waarde heeft,die tussen 11 en 18 ligtjdoor ~eze waarde gelijk
te stellen aan LL en vervolgens LL met 10 te verlagen,kan LL gebruikt wor-den als rijnummer,terwjjl L zijn oorspronkeljjke waarde behoudt.
20
-SUBROUTINE BEITEL(I,L,S,SV,NB,HC,HE, )
BEITEL controleert of de aanzet toelaatbaar is voor het gekozen beitel-materiaal.Hiertoe wordt de aanzet vergeleken met de maximum en minimum- . waarden,zoals die vermeld staan in tabel SV kolom 1 en 2.Indien de aanzet niet toelaatbaar is voor de gekozen beiteImateriaalsoort,wordt een
ge-schiktere soort gezocht;komt geen van de beschikbare soorten in aanmerking,
dan voIgt de mededeIing:'aanzet te extreeml en springt het programma terug
naar het invoergedeelte.
2
3
?ROGR.REKENT VE RDER MET BEITEl:
MAT.: UI-IIERVOOR flO
5MI N,:,sV{L:n; .sMA):: SV{L ,1 . CALL TABLE CALL TABLE L-=L-1
SUBROUTINE NONFER(A, X, Y, I~, ALFAV ,GJlJ:nvIAV t QiX)
NONFER wordt aangeroepen door CONSTV indien I groter dan 2 is.De waarden
van de onderstreepte faktoren worden door NONFER bepaald uit de door
CONSTV voorgeschreven tabel.Dit geschiedt door in deze tabel het eerste
getal geIjjk te stellen a',l1 IJ ,het tweade aan llFAV,het derde aan GAHI'IAV en
het vierde aan CFV. V~~r koper(I:.3) wordt gekozen : tabel E;voor messing
1-
1..1 ' 21i/
rt~~.~ t1Nk ~
tlv,
~\.
tvVV'L
Vvl wU\M.Vf-
~·t~
hr<"
-SUBROUTINE VBANK(ROTH, RSTA, REND, RF ,DIAN, VB1, VB2, TT ,SS,KKV)
~~ l.M.. ~~, ~
Vlq
VBANK bepaalt uit de reeks beschikbare banksnelheden,die snelheden,waar-voor geldt: VB1<V<VB2jhierbij is V de m.b.v. de Taylorrelatie berekende snelheid,en VB1 en VB2 zijn zo goed mogelijke benaderingen van deze snel-heid m.b.v. de op de draaibank beschikbare toerentallen.
Er zijn echter de volgende uitzonderingen:
-indien V buiten het gebied van beschikbare banksnelheden ligt,worden aan VB1 en VB2 geen waarden toegekendjhet progr. springt dan terug naar het invoergedeelte.
-als KKV=1,d.w.z. bij snelheid V is het volledige bankvermogen benodigd, dan wordt aIleen de laagste snelheid meegenomen;dan is VB1=VB2<V.
-als gewenste en beschikbare snelheid aan elkaar gelijk zijn,dan stelt het progr. :VB1=VB2=V.
VB'l,31b.YPIAI1. TOfR/6
VB1~VB1
RETUR.N
END
11 \tIRlirV KLE1J\iE-R DAN
>---~----_tao_1 MIN. BANKSNELH.
V B)o3.11t>DIAf1,70ERI6two VBl"VB1
RSTA:laagst beschikbare toerental.
55::1
RETURN
TOER=RSTAjTOER=TOER*RF etc.jm.b.v. de regelfaktor RF worden de bank-toerentalle? berekend.Hierna worden ze vergeleken met ROTM(=theoretisch toerental) en REND(=hoogst beschikbare toerental).
22
SUBROUTINE CONTRV(V, I, L, DDD ,LDD, SV , r18 ,HC ,HE)
CONTRV controleert of de berekende sn~snelheid toelaatbaar is voo~
het gekozen beitelmateriaal.Hiertoe wordt de snelheid vegeleken met de
maximum en minimumwaarden,zoals die vermeld staan in tabel SV kolom
It
en 3.Indien de sn~snelheid niet toelaatbaar is,wordt met een ander
beitelmate-riaal het progr. opnieuw doorlopen vanaf het gedeelte waar de sn~snelheid
berekend wordt.
20
+
RfTURN
RETURN
De integer variabele DDD wordt ~ gesteld,indien de sn~snelheid voor het
gekozen beitelmateriaal niet toelaatbaar iSjLDD wordt 1 gesteld,indien geen beitelmateriaal aanwezig is,waarvoor de gewenste snelheid toelaat-baar is.Als DDD=1,wordt teruggesprongen naar het gedeelte van het progr., ,
waar de snijsnelheid wordt berekendjals LDD=1 wordt teruggesprongen naar het invoergedeelte.
SUBROUTINE BNKNEX(V, VMAX,NOBANK, BANK, I,J ,MBA,FOi'i ,FVHAX, Tl·1AX,N14AX,RNHAX, *RSTA,REND,RF,LANEX,LBNEX)
BNKNEX wordt aangeroepen,indien het beschikbare vermogen van de ge-kozen bank te gering is. Afhankelijk van de wens van de gebruiker wordt
, door de SUBROUTINE een geschiktere bank gekozen,ofwel de sn~snelheid
wordt verlaagd,zodanig dat het bankver~ogen weI toereikend is.
RETURN
4
CALL
NOBANK=NO TYPBNK LANE.X~ I R.£1URN
END
POW:benodigd vermogen.
BANK(NO,3):vermogen,dat draaibank nummer NO be3chikbaar heeftjzie TYPBNK. MBA:kolomlengte van.tabel.BAiIK(=aantal beschikbare draaibanken).
SUBROUTINE TYPBNK( IX,FVlv1AX, THAX,NHAX,RNHAX, RSTA, RElrD ,RF' , Bl\:NK, I ,J)
TYPBNK kent waarden toe aan de hieronder genoemde grootheden,in afhanke-Ijjkheid van het nummer van de gekozen bank(=NOBANKjdeze variabele draagt hier eehter de locale naam IX).
FVMAX=BANK(IX,1) :max. toelaatbare hoofdsnjjkracht (N) ; TMAX=BANK(IX, 2) : max. toelaatbare koppel (Nmm) j NHAX=BANK( IX,3) :beschikbare vermogen;RNHA.'C= BANK(IX,4):grootte van het neg. reele deel van de overdracht van de draaibank(N/mm)jRSTA=BANK(IX,5),REND=BANK(IX,6):resp. laagst en hoogst beschikbare toerental(omw/min)jRF=BANK(IX,7):regelfaktor.
SUBROUTINE TABLE ( I,L
,r-ffi
,HC ,ND,L1 ,L2 ,L3)TABLE controleert of de waarde van beitelmateriaalno. L nog verhoogd resp.
verlaagd kan worden,of dat deze reeds gel~K is aan zijn naximum resp.
mini-mumwaarde.
TABLE wordt aangeroepen door de volgende SUBROUTINES:BEITEL,CONTRV en TAYLORjhet betreft dan telkens een van de tabellen:B,C,D,E,F,G of H.
L geeft het rijnummer aan in tabel Bjondergrens: 2,bovengrens: NB.
LL geeft het rijnummer aan in tabel C,D,E,F,G en Hjde ondergrens voor LL is steeds 2,de bovengrens voor LL is in tabel C,D,E,F,G en H steeds MC.
RtrURN
SUBROUTINE TAYLOR(I,L,MCG,SPA,VB1,VB2,GR,SLHFV,T1,T2,T3,T4,MB,NB;MC,Ne, *MD,ND,IB,JB,IC,JC,ID,JD,B,C,D,E,F,G,H)
TAYLOR berekent standttden voor de volgende combinaties van snjjsnelheid en beitelmateriaal:
-beitelmateriaal 'L-1f,sn~snelheid VB1 standttd T1 t
-beitelmateriaal 'L' ,sn~snelheid VB1 standt~d T2,
-beitelmateriaal 'L' 1 ;-,,-.;:i d VB2 standtjjd T3,
-beitelmateriaal 'L+1' ,snijsnelheid VB2 standtijd T4.
Tl: 0 CONf.TV CON£Tv
RETURN
(AU END CON51VDe construe tie met SUBROUTINE TABL:; en het nul stellen van T1 en T4 is
nodig voor die gevallen, waarbjj de waarde van L geljjk is aan z~n
SUBROUTINE VERGL(T1,T2,T3,T4,T,V1,V2,L,DIA)
,VERGL bepaalt,welke van de door SUBROUTINE TAYLOR bepaalde standtijden T1,
I T2, T3 en T4 de beste benadering voor de gewenste standtjjd T vormt. bij
. deze standtijd behorende waarden voor snjjsnelheid en beit:)lmateriaalnummer zijn de definitieve uitvoergrootheden van hat programma.Deze waarden,alsmede de waarden voor toerental en standtijd worden vervolgens uitgeprint.
A ~ ABS(Tl-T) B • A B ,$(12 -T) C ~A BS (T.3-T) D ,AS S(T4-'r) OPT=B wRrTF·.V1,Ron,LL, T2. 1....---li~\vP\liE V2, RoT2,LL, /.3
"WRITE :V2,ROT2,LL,TJ;.
RrTURN
RETURN
-; -":';. .. 0020 - OO~O :0040 0050 0060 >",i. 0070 0080 0090 0100 0110 0120 0130 0140 0150 0160 0170 0180 0190 -~~0200 .~ 0210 .. .. . INTEGER W£RKMA-.GERMAT .DDD't55.GRNCD REAL JA,KAPPA.LAMBDA,NMAX,MECEIG.IJ.LEES
COMMON· AI' 18.3) ,(F(ll.121 ,DFIll.l2l .8(10,11) ,C(10,12).
*1,; ( 10 ,12) ,E (8.4) • f (8.4) • (, 18,4) ,H I 8.4) ,eAt\K 14.7) , *SVI20,4}.IAF,JAF,MAF,NAF.ICF.JCF.MCF,NCF.IDF.JDF,MDF.NeF. *18.JH,MU,NB,IC,JC,MC.NC.ID.JD.MD,ND.IE.JE,ME,NE.IF •. JF,~F.NF. ·IG,JG.MG'NG.IH.JH,MH'NH.IBA.JBA,~BA.NBA,ISV.JSV.MSV,NSV. ANOBANK.LHH.HHH,L.I,GRNCD.MECEIG,GAMMA,KAPPA,LAMBDA,AEPS.LOPT. *GIAM.A.S,T,TOPT,LeHAI [~UIVALENCElwERKMA.II.IGERMAT'LI INTE~ER YN1.YNN.WlRK~A,GERMAT,AAA.BAB,CCC.CDD,SS,TT,RR.GRNOD HEAL JA.KAPPA.LAMbDA.N~AX.MECcIG.IJ.LEES I,;ATA JA/2hJAI IFILCHAI.EG.I) GO TO 2 CALL LEESIAF,IAF.JAF.MAF,NAF} CALL LEtSICF.ICf.JeF.MCF.NCF) CALL LEESIDF.IDF.j~F.MCF.NDF) CALL LEL5(H.IR.Jb.~8.NB) CALL LElSIC.lC.JC.MC.NC) CALL LEESID.ID.JD.MD.ND) .CALL LEESIE,IE,JE.Ml.NE) CALL LEES(F,IF.Jf,~r,NF) CALL LE[S(G.IG.J~,MG.NG) CALL lEcSIH,IH.JH,MH,NHI CALL LEESI~ANK,IBA,JeA,MbA'NBA) (ALL l(t~ISV.ISv.JS~,MSV.NSV) 0220 ·0230 ·0240 0250 C260 0270 0280 0290 ·29 FORt,1Al «,2) "RITE I I,ll ·0300 0310 0320 0330 0340 0350 0360 0370 03Ao' 0390 0400 0410 0420 0430 0440 0450 0460 0470 0480 0490 0500 0510 0520 .. 0530 0540 0550 ·:-< .. 0560. ..
1 fORMAl 145HPkOGRAM~A GERtKENT ~E VQOR EEN CRAAIPROC~S RE
blHHLEVA'iT~ ~kOOTHtCt~/33HMBV. HIEHUNDEH IN TE VCERtN GE~EV
('3hEf'tSIIII
I~ILChAl.NE.l) GO TU 4
2 I'<RITE <1.3)
3 FURMATI4~H~lN51 U ALLEEN AANZtT.5NEDEDIEPTE EN/Cf STANCTIJD
.14H TE ~IJZIGEN? )
READi1,2\1)XA
IF(XA.EQ.JAJ GO TO 21
4 \~kITtll,5)
5 FQRMATI49HWELkE DRAAIBANk KIEST ~1 (1,2,3,4; RESP. 3.12,25.
%8h60 K\>;l :) f{(AD (2) MJBANK
i>.kITE (1.6)
6 FORMAT(30HBETREFT HEr HIER NA!:lEWf::RKING? )
HI:.ADIlt2'J}XA
IF(XA.lQ.JA) ~HH=l IF (LHH.NE.l) ~o 10 8
ilRITE(l.7)
7 FORMAT(49HWAT IS DAN DE MAX. TOELAATBARE OPP. RUWHEIDI"I?:)
HEADIZ} HHH
.8 I'<RITEI1.9}
9 FORMAT~33HNUMMER VAN HET WERKSTUKMATERIAAL?/8HSTAAL:l.
5~2HblETljZER=2.KOPER=3.HESSING=4,6RONS:5.ALUMINIUM=6. :) ·READIZ)1-UII.GT.ll GO-TO 50 wR IT E ( 1 ,.10 I 0570···10 0580 fORMATI~2HWAT 15 ~E TREKVASTHEIDCN/MM2)? :) Ht:AD(2~··MECEIG i
I
I
!
I
I
I. 059.0 ···0600 0610 0620 0630 0640. 0650 0660 0670 06BO 0690 0700 0710 0720 50IfaE"Z) (,0;0 12 .. v.RITE 11.11)11 F0RMATI49HGRIJSI=I) ,OF NODULAIRt=OI. EN WAT l~·DE BRINEIL-H
116HARDHEIDIN/MM2)?:)
R~AD(2) GRNOD,MECEIG
~ 12 wfdTE(1.13)
13 FORMATI29HWELK BEITELMATERIAAL KIEST U?)
IFII.GT.l) GO TO 15 ...ld1£I1.l4) 14 FORMATI49HP01=2,PIO=3.P20=4.P30=5.P40=6.SSl:7.SS2=~.SS3:9.:, i<!:.AD(2) L GO TO 17 15""dT[(1010) 16 FORMATI44HK01=12,KIO=13.k20=14.SS1=15,SS2=16.SS3=17. :) 0730 HEADIZ) L 0740 17 ~kITll1,18)
0750 18 FORMATI4~HHOE ~ROOT ZIJN SPAANHOEK.SNIJkANTShCEK'HElLIN~SHO
0760 b29hEKI~RADEN) EN NEU5RADIUS(~MI?I/)
0770 ~tAD(2) LAMMA,KAPPA.LA~BCA.Rt~S
u780 KAPPA:KAPPA/IHO.*3.14
0790 LA~UDA:LAM8DA/IHO •• 3.14
0800 19 ~RITEIl,20)
0810 20 fOPi'1AT(42HWAT IS 1.11:. DIAr'IUER VAtl Ht::T WERKSTUK?(/t'M) :)
0620 READC2}UIAM
0830 21 wRITlIl.22)
0840 22 FORMATIl3HWENST U OPTIMALISERING?)
0850 RtAD(1,2~)XA
0860 IF IXA. .JA) LOPT::1
01370 If (LUI-' .HL.l) GG TO 23
0880 lAlL UPTIL,SV,ISV.J5V,TOPT.s) 0890 23 ",kITEI1,24)
0900 24 /-ORlfo/l T (34MH0E GROuT IS [;E SNEDED r [PTE IMM)? :)
0910 READ(2) A
0920 IfILUPT.LQ.l) GO fO 27
0930 ~hIT 11,25)
0940 25 fURMAT(Z9HHOE ~kOOl IS DE AANlETIMM)? :)
0950 kEAD(2) S
0960 nkIlll1,261
0970 26 fORMATI35HWELKE 5TANDTIJD KIEST ~(MrNUTEN)? :)
0980 READ(2) T 0990 27 CALL CHAINIZ) 1000 END 1010(1/1/1 1020 SUBROUTINE LEES(AkRAy,MbI("NBrG'~ARRAY,NARRAY) 1030 HtAL LE[~ 1040 CI~ENSION ARRAY(MGI~.NBIGI 1050 kEAD(4) MbIG'N~IG 1060 READ(4) MARkAY,NARRAY 1070 CO 10 I=l,MARRAY 1080 Do 10 J=l.NARRAY 1090 10 READ(4) AHRAYII.JJ 1100 RUUFN 1110 Et.D 1120(1/111
1130 sveROVTINE. OPTIL.!:>V.ISV,JSV,TOPT.51 IN.
1140 . CIMENSION SVII5V.J5V) ~
.1150 ~kITEI1.1)
1160 1 FQRMATC20HWAT IS UW KRITERIUM?123HMINI~ALE KOSTENf=II.CF ~
1170 &3UHMAX!MALE PRODUCTIVITEIT(=Z)? :}
1190 ", ~-: 1 ZOO 1210 1220 1230 . 1240 1250 1260 ' 1270 1260 1290 1300 1310 1320 1330 1340 U,O 1360 If(LCRI.EQ.21 GO TO 3 _ WR IrE (1.2)
:2 FOR~\AT(15HHOEGkOOT ZIJN:/29HA) HRFE05CHAPKCSTEN PFR SNIJ &8HKANT?(iI/37HBI KOSTEN VAN "MACHINE.SEDIENING+CVER
613h1GE" ?(l/MINI/I READ (2) kl.R2
3 wRITECl.4)
4 ~ORMAT(49HHOEVEEL TIJD KOST VERWrSSELEN VAN SNIJkANTIMIN)? )
HE:AD(2) TWG
S=0.95*SVIL.l) \\ok I 1 E ( 1 .5)
5 fQRMAT(47HAANZEr EN STANDTIJD WORDEN DeoR PRO~R. BEPAALb II
lr ILCRI.(Q.2) G0 TO 6 T(jPT:::: (Rl/R2+TWG) kt:.T!';RN 6 TOPT=TW(, HE: TUkr. E.f'.;D 0020 0030 0040 0050 0060 0070 0080 0090 0100 0110 0120 0130 0140 0150 0160 0170 ol80 0190 0200 0210 0230 0240 0250 02'5 0260 0270 0280 0290 0295 0300 0310 0320 0330 0350 0360 0370 0380 0390 , 0400 i' 0410 I,
ti
0420 f' 0430 I 'I , 0440 0450(j
0460 0470/'
0475 0480 i' 0490 I: 0500 0510 0520 \.~ 0530 " 0535 " P 0540 0550 0,60 0570 0580 0590r~ER
wt:.RKMA,GERMAT.DDD.5S.GRNCD RLAL JA.KAPPA.LAMbDA.NMAX.M~CEIG.IJ.LEES COMMON AF(8.3).CFIll.12).DFI11.12).BllO.11).C(10.12)t *[;(10.12) ,[:(8,4) ,F(8.'t).G(8.4) .H(8.4) 'llANK(4.7). *SV(20.4),!AF.JAF.MAF,NAF.ICF.JCF.MCf.NCF.IDF.JDF.MDF.NCF. *lb,JB,MU,Nb,lC,JC,MC.NC,ID.JD.MD.ND.IE,JE,ME.NE.IF.JF.~F.NF, *lG.JG.MG.NG.IH,JH,MH.NH.IllA.JUA.MBA.NBA.ISV.JSV.MSV,NSV.*N()BANK , LliH. HHH. L • 1 ,,,RNOi-.1"lLCE.! G ,C:AMMA. KAPPA. LAMe DA • REPS .LOP1
*CIAM,A.5.T.TOPT,LCHAI tu()IVALE~(EIWLRKMA.II,(Gf:RMAT.L) CATA JA/2HJAI AANZ(FVF)=IFVF/«(~V*(A/I~.*(OS(KAPPAI**2*CCS(LA~eCAI) .* &~A~MAF*A**ll.-ALFAfl) 1**11.1 (l.-ALfAF-GAMMAFI I Wk I 1 E ( 1 .13 )
13 FLRMATllbHEXTHA TUSSENUIIVOEk GEWENST?1 Rt::.ADI1.2'fIXA
n IXA.E.G.JAI LklTI:::q
39 (ALL TYPbNK(NOBAN~.FVMAX.1MAX.NMAX.Rf'.;MAX,RSTA.REND.~F,
*!::ANK. IlIA, Jt3A)
SFIPST=S LCHAI:::v 29 FuRHATIAlI 3045i-!AX:::2.;' Kuf<=O II-(LHri.l".Ul GO 10 305 ~~AX=S(JK r (S.*HHh*kf:FSI 305 H (~.LT.::;'\AX) GO TO 2 S=S!~,AX Kul<=l y,ldl to (1);'(;1 5
50 ~UkMATI3bH1VM. UPP. RUWhEID,AANZET VERLAAGC TCT:F5.2)
2 t;t,l TJ\=A/::> A!;,PAAr,=':"*S K>_ V=O
(ALL tU;.~TF(I.MLClI~,GA~MA.ALPAF.GAMMAF.CFV.AF.CF.UF.
*f'Cr '''U- .h[,F ,1\1)1' ,IU ,J(F, lUF .JDF)
l~(LRITt.lQ.ll ~RITt(l,lll (FV.ALFAF.GAMMAF
11 FuHr,AT ("hCFV=F6.1.2X .6HALFAF=F4.2 .2X,-(hGAM~AF=F4.2)
SLHFF=It;~LTA/15.*COSIKAPPA) •• 2*CCS(LAMt3CAII)**bAM~Af
fV=CFV* ( I (A/S I I (5.
'*
I COS (KAPPA) **2) *COS (LAt-i8DA) } } **bAMMAF)*
&1(A*SI**ll.-ALI'AF)\'.kITE(ld7) FV
17 fvRtAAT(31HSNIJKHA(Hl IKHGNENBERG REUiTIEI :1-7.1)
If-(FV/2.*~IfWi.L 1. TMil,XI GO TO ,
FV= TMAX*2 ./DIr'~1
S=AANZIFVI
KuR 1
Wfd T E ( 1 ,e) F V. S
8 FCRMATI27ItlvM. TMAX,VERLAGING Fv TOT:F6.0,12H.AANZET TCT:F6
IfIFV.Ll.fVMAX) Gu TO 4 7 IFIFV.lT.FVMAXI GO TO 6 FV=FVI",AX S:::AANZ(FV) I~ KCR::::1 WkITEIl.9) FV.S
9 FuRMAT(2!lHIVM. FV~.Ax.Vt:HLAGII'IG FV TQT:F6.0.121-:.AANZET TOT:F,
(,0 TO It
6 ~MAX=AANLIFVMAXI
v.FdTU 1.:.) SI~AX
~ , " 0000 0610 0620 0630 0640 0650 Ob60 0070 0680 0090 0·700 0710 0720 0130 0740 0'50 0760 0770 0780 0·,90 0800 0810 0820 0830 0840 0850 0860 0870 0880 0890 0900 0910 0920 0930 0940 0950 0970 0980 0990 1000 1010 1020 1030 1040 1050 1060 1070 1080 1090 liOO 1110 1120 1130 1140 1160 1170 1190 1190 1200 Ill\! t! 1 4 CALL BEITEL€1.L,5.SV.MB.MC.ME,LsEIT) IFILBEIT.EO.l) LCHAI=l
IFIlCHAI.EO.l) CALL CHAINIl) A5PAAN=A1IS CELTA=A/S ~RITEI1,22) DELTA,ASPAAN 22 FORMATII0HSLANKHEIO:F5.2.16H SPAANDOCRSNEDE:F5.21 SLbFF=IDELTA/15.*(OSIKAPPA)**2*COSILAMBCA)).*GAMMAF T(=CFV.SLHFF1I(1.-ALFAF-~AMMAf)*A.*ll.-ALFAF1*S*.I-AtFAF) TCMAX=1./(2.*RKMAX) IFIT(.lT.TCMAXI GO TO 100 wklTEIltlS)
18 FuRMATI38HPROCES IS INSrABIEL.SLANKHEID VERLA~EN)
LCHAI=l
CALL CHAIN(l)
100 CALL C0NSTVII,MtCtlb,L.GKNUD,IJ.ALFAV,GAMMAV.CFV.
*B.C,D.E.F.G,H.Mb,~b.MC.N(.MD.ND,I6.J8,IC.JC.IC.JD)
lFILRIT~.lQ.l) ~RIT~ll.12) (FV,ALFAV,GAMMAV,IJ
12 FORMATI4HCFV=F6.0,7rl AlFAV=F4.2,8H GAMMAV=F4.2.4H IJ=F4.2)
IF ILOPT.NE.ll GO lU 149 T=ll./IJ-l.)*TOPT
~,RITEI1.148) T
148 f()RMAT!3'iHGEwEN;;Tl STANUIIJDIUIT OPT. KRITERILf'/;) :F8.11
149 5LHFV=IUlLTA/I~.*(GS(KAPPA)**L*CCSILAMeDA)I)**GAhMAV 150 v=CFV*SLHFV*(AS~AAN).1I(-AlFAV)*11/60.)*·(-IJ) wkITElltl9) V 19 FURNAT(L9HSNIJS~ELHEID(lAYLOR RFLATIE):F4.2) F0w=FV*V v.kIT[(hlO) POw 10 fORMATIIUHUlNODIGG VERVCGEN:F9.1) IFIPUW.LT.NMAXI GO Te 21 "I'IAX=NrlAX/FV (ALL BNK~lXIV.VNAX'NOBANK,bANK'leA.JbA.f'lBA.PCw,FVMAX'Tf'lAX. • ~NAX,RNMAX,R;;TA.REhU.Rf'LAN~X,LbN~XI
.if (LtlNEX.lQ.ll LChAI=l IfIL(HAI.tQ.ll CALL CHAINll)
IFILANEX.~E.l) ~O TO 16 :,::SFIR;;T (:0 TO 304 16 K",V=l V::VIIAX ",RlTUloZOI'v
20 FuRMATIZ3HV VERLAAGD TOT NMAX/FV=F6.2)
21 (ALL (O,HRV (V, WE:R"~1A. GlR~A T • ODD. LDD. SV, ~\6. ~C. f'EI IFlLDD.E.G..ll LCHAl=l
IFILCHAI.EQ.l) CALL CHAINIl) IF IODD.E.O.I) GO TO 100 kGTM=V/13.1411DIAM)*6000G. ... RITE! 1. 15) ROTN 15 FURMAT(17HTHEOR. TOERENTAL:F7.1) (ALL VBANK(ROTM.RSTA.REND.RF.DIA~.VBANKl.V6ANK2.TT'5S,KKVI IfIS~.~U.l) LeHAI=l
IFILCHAl.EQ.l) CALL CHAIN(l)
IFIKKV.EU.l.AND.KOR.EO.ll GO TO 145 X=ABSIVdANKlIV) If (X.GT.O.98.AND.X.LT.l.02) GO TO 145 X=ABSIVuANK2IV) IFIX.GT.0.9S.AND.X.LT.1.02) GO TO 145 V=VLJANK2
~=(V/(CFV*(A/(5.*(OS(KAPPA)**2*CCS(LAMBDA»)**GAMMAV*A**(-1220 &:!..V) * IT 160.) U (-I J) I ) ** (-1./
(GAMMAV+ALFAV)~)
1230 ',RITEll.30) 5
1240 30 fQRMATI33HIVM. V'VBANK,AANZET GE~IJZIGD IN:F6.21
1250 uU TO 304
1260 145 CALL TAVLORlhERKMA.GERMAT,MECEIG.ASPAAN.VBANKl,VBANK2
1270 *.GRNOU.~LHFV.TL1.TL2.TL3.TL4.MB.NB'MC.NC.MC.ND,
1280 *!b.JB,IC,Je.ID.JU,e,c.U.E.F,u,H)
1290 ~kITEll.11;;.A.DEL1A.A5PAAN'FV
1300 1 F~RMAT(/4H** •• /20HAANZET: F5.2.3h M~I
1310 *ZUHSNlDlUIEP1E: F5.2.3H MM/20HSlANKHEIC: F
1320 *5.2/20HS~AANDOUR5~EUE: F5.2,4H MM2/10HHCOFDSNIJK
133U *6HRAChT:~7.0,4H h)
1340 (ALL VE~(L(TLl,TL2,TL3.1L4.T,VBANKl,VBANK2.GENMAT.UIAMJ
1350 ~kITEll.i5)
1360 25 fuPMAlI15HEINO[ V. ~ROGk./29H~JLT U DE INVOER wIJZIGEN.EN
137() *31HVlf,:[)t:HE elREKUdl,GFN Ul1VOER(I'.?)
1380 kEA[)( it2';!) XA 1390 IFIXA.Nl.JA) GO fO 26 1400 LChAI=1 1410 CALL (HMINIll 1420 26 SlOP 9 1430 U,Q 1440(/ I I I I 1450 ~uekOUTiNt (ON51Fll.~[ClIG.~AMMA,ALFAF.GAMMAF,CFV.AF.Cf.CF. 1460 .M(F.NCF,MOF.~Gf.lCF,JC~,ID~,JUF) 1470 l~lfkNAL SPEC . 14bO l~llGLH x.V.V:,TARl 1490 kLAL ME(~IG.IJ 1500 [,II<'LN&lul; AHbd).tF(lldZ),DFIll,12) 1~10 X=(AMMA/~ • • ~. 15iO Y&TAkT=~ 1530 ¥=YSTAkl 1,40 If(I-ZI1.'>.1O 1550 1 CALL ~PL(IMllLIG.(F.X.Y.YSTART.MCF.NCF,lCF.JCF,IJ.ALFAF • 1560 *~A~MAf.(FV) 1570 ~~ TO 100 1580 5 lALL SP[((M~([lG,~F,X.Y.YSTAHT,MCF.NDF,lDF.JCF.IJ.ALFAF. 1,90 .~A~MAF.(FV) 1600 Gu TO 100
1(.10 10 I<LF AF=M (I.ll
i. 1620 ~~MNAr=AF(I,2) 1630 CfV=AF(1.3) 1640 100 kLTUKN 1650 [r.D 1660(11/11 1670 S~BkOUTIN~ SPlCIMlClIG,A.P.Q.QSTART.M.N.MBIG,NBIG,lJ.ALfAS. 16S0 *GA~MAS,CFV) 1690 DI~ENSIO~ AIMblG,~GIGI 1700 RlAL MECEIG,IJ 1710 INTEGER 0,QSTART.P 1720 20 I~(A(l.u)-MLCEIG) 1.2.3 1730 1 IfIU-N+il 4.4,6 1740 4 G=C.l 1750 Gv TO 20 1760 3 Ir (U-QSrART) 6,6,7 ~ 1770 6 wkITEIl.8)
1780 8 FURMATI49HHARDHEID,RESP. TREKVASTH. NIET 6INNEN DE GRE~ZEN:
1790 .35H 1000-2800N/MM2.RESP. 400-850N/MM2.1
1800 STOP 1
1820 1830 1840 1850 1860 Id70 1880 1890 1900 2(AC1.Q)-A(1.O-1» <:'0 TO 10 2 CFV=A(P.Q) 10 ALFAS=A (P.1} GAMNAS=A(P.21 IF(QSTART.EQ.41 GG Te 12 R !::TUH N 12 IJ=A(fJ,3) RETuRN I:i'iD 1910 192UC/111 1930 SUBROUTIN~ CUNSTVII.MEC~I~.L,GRNCD,IJ.ALFAV.GAMMAV.cFV. 1940 1'150 1960 1970 1980 199() 2000 2010 2020 2030 2040 2050 2060 2070 2080 2090 2100 2110 2120 2130 2140 II :'0 2160 -b.C,D,E.F,G.H.Mb,NB.MC,NC,MD,ND.ID.JB,lC,JC,IC.JCI Rf::Al r,1ECt.I G.r J INTEGER X.J.JSTARl.GRNCD EXTERNAL ~PLC.N0NtLk (;H'E~,SI\,;I, O(10.111.C(10.12J.[)(10,12),E(8,4).F(8.4J IJH'U1SIUfl G(Clt4) .H(b.4) JSTART;:4 ,J=JSTAHT IFCl-2) 1,2.3 (ALL SPL(MI:CEIG.U,L.J.JSTART.MB.Nb.IB,JB,IJ.ALFAV,CAMMAV,CFVJ RETuRN 2 LL:::L LL=LL-IO 1~(GRN00.NE.l) ~o TU 6 (ALL ~~LCIMlCEIG,(,LL.J.JSTART.M(,NC,IC.JC.IJ,ALFAV.GA~~AV.(FVI RE.TURN 6 CALL 5PtCIMECEIG,G,LL,J.JSTAHT,NC,ND.!C,JD,IJ.ALFAV,GAMMAV,(FVI KI::TUR~ 3 LL=L LL=LL-IQ IF ( 1-4) -r. B ,9 7 CALL NO~fER(E.LL,J,lJ.ALfAV.GAMMAv.(Fv) k!:.TURN
2170 8 CALL NOhf-LR IF ,LL .JdJ.ALI'AV ,GAt>H'lAIi .(FVI 2180 KtT0RN 2190 9 IHI-o) 10.11.11 2200 10 CALL ~ONf-lRIG.LL.J,lJ.AL~AV.GAMMAV.CF\i) 2210 RETURN 2220 11 (ALL NONFERIH.LL,J.IJ,AlfAV,GAMMAV.cFV) 2230 klTURN 2240 E.ND 22.50(11111 2260 SUBROUTINE NONFER(A.X,Y.IJ.ALFAV.GA~MAII.CFII) 2270 GIMENSION AIB.4) 2280 REAL IJ 2290 INTEGER X,Y 2300 IJ=A(X.l) 2310 ALFAV=AIX.2J 2320 GAMMAV=A(X,3) 2330 CfV=A(X.4) 2340 RETURN 2350 END 2360(11111 2370 SUBROUTINE 6EITElII.L,S.SV.MB.MCtME.LBEIT) 2380 EXTERNAL TABLE 2390 GIMENSION SV(20.4) 240Q LBEIT=O 2410 2 IF(S.LT.SV(L.ll) GO TO 3 "- ..
-2420 CALL TA~L~II'L.MB.MC.M['Ll'L2.L31 2430 1~(L2.EQ.l.OR.L3.f::U.ll ~o TO B 2440 L=L .. 1 2450 ~u TO 2 2460 3 IfIS.GT.SVCL,2) GO TO 4 2470 CALL TA6LLII,L.Mb.MC.ME.Ll.L2,L3) 2480 IFILl.E"'.l) GO 10 8 2490 L=L-1 2500 Lv 10 3 2:'10 4 ~kITE(l.l) L,SVIL.l).SVCL.212520 1 Fufl~lAT(39HPRO("R.kEKENT VERnER MET BEIH.LMAT.NO.:121 2530 *27HVOUk DIT MATLklAAL IS SMAX:F4.2.7H .SMIN:F4.Z} 2540 HLTUkt-;
2550 8 ~HITE(l,l)
2560 7 FuR,-IAT (lllH/lANZI:.T Tt EXTkEEM!) 2570 LuElf=l
2580 I~L TURt. 2590 U.C
2600C/IIII
2610 ::;uBI\uUT IllE. VBAi~r, IROTl'.RsrA,Rf::ND.RF .CIAj'II.VBl.VE2.TT.sS.KKV) 2620 H,TLGlk 11.55 2630 55=0 2640 TOEk=RS1A 2650 10 if- (lutH-RUTf'II) 10203 2660 1 TLEk=TULR*RF 2670 11 (Tu[H.G'[ .R!:J.D) ('0 TO 5 26BO (C 10 10 2690 2 ~b2=3.14*UIAM.T0ER/60000. 2700 Vhl=Vb2 2710 GU TO 4 2720 3 l~ (TOlk.l~.RSTA) GO TO 9 2730 H IKy,v.LlJ.l) GU 1(; 13 2740 IIbl=3.1~.UIAM·T0LR/kF/6UOOO. 2760 (u TO ~ 2770 ~kIT~(l 11)
2780 11 ~uRMATI49HV KLlINLk CAN MI~ bANKSNELH.;SPAANOCORSN. EN/C F T 2790 *16HOULLIF~ VEHLAGLh)
2800 8 55=1
2810 RETuRN 2820 5 ~kITE'1.12)
2830 12 ~ORMATI44HV GROTEk DAN NAX ~ANKSNELH.;SPAANDOCRS~. rN/CF TO 2840 *15HOLLIFL VERH0GE~) 2850 G0 Tv B 2860 13 IIbl=3.14*DIAM*TUEk/kF/60000. 2870 Vb2=Vbl 2880 4 ~kIT~ll.l~)VBl.~tl2 2890 15 FQRMATll2HBLS(H1K6ARE S~lLHEDEN:F5.2t4H.EN:F5.2) 2900 RLTURi~ 2910 I;:I,C 2920CIIII/ I
2930 !:lU8R(JUT Ir,1;: 8NKrlr:X (V. VMAX. NQ8ANK .tlANK. I • J ,MBA. POw. FVMAX. T"'AX, 2940 .NV~X.RNMAX,kSTA,RtND.RF.LANEX.LBNEXI 2950 kEAL NMAX.JA 2960 EXTERNAL TYPbNK 2970 GH'EfJSlu" BANK (I ,JJ 2980 ~ATA JA/ZHJAI 2990 LA~EX=O 3000 LUNlX=O 3010 "iilTUltl) V.Vt'lAX
3020 <1 FORMAT (ttTHBESCHIKBARE
VERM06~N
TE GERING;Z_GELIJI<.I-<EDEN:I3030 -18HA) V VERLAGEh VAN:F5.2.5H TOT:F5.2t6H M/SEC/9HBI GESCHI
3040 *17HKTERE BANK KIEZEN/13HU KIE5T "AU 71
3050 READI1.Z) XA 3060 2 FURMAT(A2) 3070 IFIXA.EW.JAI RETURN 3080 NU=NOBANK 3090 4 NO=NO+l 3100 I~IPOW.GT.BANK(NO.3)1 GO TO 6 3110 NGBANK=NO 3120 CALL TYPONKINOBANktFV~AX.TMAX.NMAX.RNMAX.RSTA.REND'RF. 3130 *dANK.!.J) 3140 LANEX=l 3150 R!::TURf, 3160 ~ IFIMHA.GT.NO) 60 TU 4 3170 ~kITtll.r)
3180 7 ~LRMATI~8HBlNODIGD VERMUGEN 15 WEL ERG GROCT! INVOER WIJZ.)
3190 LbNEX=1 3200 "ETURf, 3210 tNC 3220(11111 3230 5UBROUTl~E CONTRVIV.I.L.DDD,LDD,SV.~B.~(.ME) 3240 INTtGER UDD 3250 EXTERNAL TAblE
326U CH'ENSIU;; SVI20.4)
3270 L;DC=O
3280 LDD=O
;,290 ..,RITEll.LU) L.S\i!L.3hSVIL.4)
3300· 20 fURMATI16HVOOR bEITllMAT.:IZ.9H IS VMIN:F4.1.6H.VMAX:F4.1) 3310 1~IV.GT.SVIL,3» ~U TO 1 3320 (ALL TAHlEII.L,kH.MC.~E.Ll.L2.L3) 3330 If IL2.E.w.l.OR.L::l.lQ.l) LDD:l 3340 L=L+l 3350 CDD=l 3360 ~kITEIl,3)
3370 3 f0RMAT(~5HV Tl LAAb VOGR BLITEL~AT.)
3380 IF (LDLl.cU.ll GO lL !:> 3390 Rl TURn 3400 IFIV.LT.5V(L,4») RETURN 3410 CALL TAbLEII.L,MB.MC.~t.Ll.L2.l3) 3420 IF ILl.£u.l) LDD=1 3430 L=L-l 3440 GDD=1 3450 AkITEI1.4)
3460 4 FORMATI25HV IE h00b vOOR BEITtL~AT.)
3470 IfILDD.E~.ll GO TO 5
3480 HlTuRN 3490 5 ~kITEll.61
3500 6 ~0RMAl (49hGEEN GtSCHIKT BEITELMAT. AAN~EZIG.INVCER ~IJZIGEN)
3~>l0 RETURN 3520 tND 3530ClIIII 3540 SUBROUTINE TYPBNKIIX.FVMAX,TMAX.NMAX,RNMAX.RSTA.REND.RF, 3~50 *eANK.!.J) 3~60 ~I~ENSION BANKII.J) 3570 REAL NMAX 3580 FVMAX=BANKIIX.IJ 3590 TMAX=UANKIIX.2) 3600 hMAX=BANKIIX.3)
il
:1 :1 ! \~
3610 ~N~AX=HANKIIX.4) 3620 RSTA=BAWdIX.5) 3630 kt.ND=tiAilK (I X .61 3640 H~=BANK(IX.7) 3650 ThM=TMAA/I000. 3660 ~~AT=NMAX/IOOO. 3670 ~HITE(1.3) !X.a~AT.FV~AX.TNM3680 3 fURNAT(32HGt.GEVtN5 VAN DE 6EKOZEN BANKINO:lz.lHI/5X.5HVER'O
3690 *19bGEN:... F5.1.3H KW/5X.19HMAX TeEl. SNIJKRACH
3700 *3HT:.F7.1.2fi r,/5X.22HMAX TOEL. KCPPEL: ••••• F1.1.3h ;Jt~lI)
3710 ~kITf:.(1.5)RSTA,kEljD.RF
3720 5 ~URMATI~X.17HTOERLNTALLEN VAN:F6.1.5H TCT:F7.1.9H;kEGELFAK
3730 *4HTOR:F4.2/11 3740 ktTUkN 3750 EI.D 3760ClIIII 3770 SL~kOUTl~l TAGLE{I.L.~U.MC.MU.Ll.L2,l3) 3780 Ll:::U 3790 LL=l! 3800 L3=() 381 U H ( I • (, T • 1) Gl! TO 2. 3820 1 IFIL.LO.2.0R.LL.E~.2) Ll 1 3830 lFll.l0.M8) L2=1 3840 IF (Ll.U..i.fiCI L3 1 ~ii:'O kl Wkl, 38bO 2 LL=L 3870 LL=LL-lu 388U ~u TO 1 31190 kl TURfi 3900 lhG 3910ClIIIII 3920 5~S~UU1I~t lAYLUR(I.L.MC~,5PA.Val.Ve2.GR.SLHFV,Tl,T2.T3.T4, 3930 3940 39~0 3960 3970 3980 3990 4000 4010 4020 4030 4U40 40:;0 4060 4070 4080 4090 4100 4110 4120 4130 4140 4150 4160 4170 4180 4190 4200
jl;i' b, \f3 ,i'IC ,1,( ,/"10 ,;,0. I L , JG ,Ie, Jl. 1(; • JD ,tl. C , (;, E , r .G. H)
kUL flCGdJ
LXTLk~AL ~P~C.NUN~Ek.CCh5TV.1ABLE
TOCL (V) ::bU, jI; (VI (U V*SLHrv *!::>PA*!! I~AU )) ** (-1./1 J)
CAL l TlIW L t I I ,L , r; b • r'i <.. • i~ E , Ll • L <: • L 3 )
H (Ll • b •• 11 (,e T 0 4
L=L-l
CAL L CUI,;;:' TV ( I , hC G ,L ,CR , I J • A L • GA. CFV • B • (, [; • E • F .6. H, t-~i;. NE • Ife,lI;(
*~(;'~D.ru,JB.IC.JC,I0.JD)
Tl=TUUL<VLJlI
~kITE{l,2) L.Vbi.TI
2 FUFH·jAl (,2hL=!2,3X.iHV=F5.2,3X.1BHLi:VENSDUUR IS DAN:Fa.l) L:oL+l (iU Tv 3 4 Tl=u. 3 CALL CU~SrVII.M(G'L.GR,IJ,AL.GA.CFV.B,(.D,E.F,G'H.M~.NB."C.M< !!~U,NU.lb,JH,IC,J(.ID.JC) T2=TOULIVU1) \ v,RITf:(I,2) L.VohT2 B=TOuLIViJ2) :"hlTEI1,2) L.V!32.T3 ~ IFIL2.Eu.1.UR.L3.LW.1) ~u TO 10 ~ L=L+l CALL CONSIVII.~(G.L,GH.IJ'AL.GA.CFV.8.C.C.E9F.G.H.MR.N8.~C.N~ *~U,ND.lb.JB,IC.JC,IU.JCI T4 T00L<VE,2) ~kllLll.2) L,Vb2.T4 L=L-l
-4210 RtTURN 4220 10 14=0. 4230 RETURN 4240 EtlD 4250c/11// 4260 SUBROUTINE VERGl(11,T2,T3.T4.T.Vl.V2,L.DIA) 4270 A;ABS(TI-T) 4280 e=AbS(T2-T) 4290 (=AKSIT3-11 4300 ~=ABSIT4-T) 4310 LL=L 4320 ~UTl=Vl/(3.14*DIA)*60000. 4330 R~T2=V2/(3.14*DIAI*60000. 4340 IF(A.~T.B) GO T0 2 '.350 (.PT:::A 4360 ~v TO 3 '.370 2 Cf'T;B 4380 3 l~ IO~T.GT.CI OPT=C 4390 If (OPT.GT.D) GO T0 5 4400 If(OPT.lU.A) ~U 10 10 4410 IFIOPT.EQ.BI GO Te 12 4420 ~RIT[ll.4) V2,ROT2.lL.13 4430 4 f-OH(~AT(2uHSNIJSt',E:UIEID: F5.2.6H /,/SE:CIlOHTOERHHAL: 4440 *7H F7.1,9h GM./~I~/20H~O BE:rTEL~AT.: 121 4450 *16HSTANDTIJD: F8.1.9H MINCTEN/4H****/) 4460 RETURN 4470 5 LL=LL+l 4480 ~kITE(1.41 V2,k012,LL.T4 4490 «[TURN 4500 10 LL=LL-l 4510 .hITEI1,41 Vl,RUT1,LL,Tl 4520 kE1URN 4~30 12 ... fdlUl,4l Vl,R(;Tl.LL,T2 4!>40 RETURr, 4550 t;.(,D
"
-5000 3 6 3 5005 5010 5015 . 0.20 0.16 0.0 0.14e
0.0 0.18 150<; AI= 0,':1.0,I,
0 ~I£ TAllft .. c-,.., ~·t, ... 5020 5025 5030 o .j)! 0.2 750 0..,24 o '. .<. 750 0.24 0.2 500 "'1 : .JiI
U
;5 « 503~ 1.2 11 12 501,0 ~OLtl/ 5050 1;>055 / ' :'060 ~Q6r; • / 5070 ~/ ~07~.i SOtlO,on,
0 0 400 450 50C 550 600 650 700 750 800 850 u.20 0.16 2700 2!J40 2990 3100 3240 3380 3490 3600 3700 3810 G.2U U.16 2600 2720 2880 2990 3120 3250 3360 3460 3560 3660U.20 0.16 2490 26iO 2760 21:HlU 3000 3120 3220 3320 3420 3520 CF
G.20 0.16 2400 .<51u 2(.50 2760 2880 2990 3090 3190 3280 '3390
U.2U 0.10 V&O ;;400 2:'3C 2&40 2"r40 2asO 2950 3050 3]50 3230
c.20 C.Ho 2180 2290 2420 2520 2620 7730 2820 29I(J 3010 3090
1J.20 0.16 ?e'eo <:1':10 2310 240D 2 ')00 2600 2690 2780 2B60 2940
0.20 0.16 1980 2010 2190 2280 2380 2480 2560 2640 2720 2800
0.20 0.1t. 1660 1950 2UbU 2150 2240 .2330 2410 2',90 2560 2640
STAAl. - $NIJk~A(}{r I - 1'REl<\'tlSTI1Ell!N N/HI'lZ
....
II 0 0 14-00 4$0 .,. lJiJiJ'860
-';'~11 0,'20 0 . .'6 f100 '484-0 "" ~t/l()
... -,~~ '3 : , poo
:.: -5' ~
~ o· 5 I : ...
Ii> s· ,I <t.
t
I . CrY ·S~c. SJ<yo~""lN"",';I~'O' ~ I ~ ~ I , !!5 IS" 8 I '?i= I~ 1.0: 9 ~ ~
~
I
I~ ~ :~I ~ 5090 0.20 0.1 t. 1750 1830 1940 2(;20 2100 2180 2260 2330 2400 2470 5 9:;, U 11 Sit ,10,:> 5110 ':> 1 1:> S12u 5125 5130 12(;0 1400 1600 IHllO 2000 2200 2400 2600 2800 12(,(J 134(J 1'+1 u 1480 1550 1620 1660 1710 1780 1230 1290 1370 1It40 1500 1560 1610 1660 1720 1190 12'JO 1330 1390 1450 1500 1550 1610 1660 11't(J 1210 1280 1340 1390 1450 1490 1550 1600 10<,0 1160 1220 1280 1340 1390 1430 1480 1530 1tJ40 11O() 1170 1220 12 rO 1330 1370 1420 1460 G,,,,nEI1.-!>N1)I(IIA'kT L LI 0 ! 0---I
Cf=\h $i'\U, !;"!J1>t'tJI«N/",,,,') 1_BR1I~/'H!ARD"'Ol1N 'II"',,' _ .!OOO 1'260 16~ '2 800 ilaO n60 11-80 /i~o 513';' 1 uLIU lO5() 1120 II 70 1220 1270 1310 1360 1400 5140 9'.() 1(,00 1()6V 1110 1160 1200 1240 1780 ]330 5145 BljO q4() 1000 10,,0 1090 1130 1170 1;>10 1250 5150 770 b3V (jao 930 'lbO 1030 1060 109(; 1130 1170 5155 5160 5165 5170 517~ ;'180 518':> 5190 5195 10 0 0.32 0.28 0.28 0.2t; u.20 0.2b Q.2S O.~H G.24 (;.28 0.10 0.20 (J.lO 0.2H \; 40U '<40 530 610 700 790 870 96C 0.14 6.b 5.il 4.8 3.9 3.1 2.7 2.3 2.2 0.14 :>. ;;. It.6 ':5.9 3.2 2.5 2.2 1.9 1.8 0.14 j . t i 3.6 3.0 2.5 Z.O. 1.7 1.5 1.4 0.14 c2.u ~.6 2.1 1.8 1.6 1.5 1.4 1.3 (J. 14 2.(J 1.6 1.3 1.1 0.9 0.8 0.7 0.6 0.14 1.:' 1.2 1.0 0.9 0.7 0.6 , o.~ 0.5 0.1'. 1.3 1. I (J.u5 O. 'ro 0.55 0.50 0.45 0.40 BSTAAL -$Nf}I>NELH/iIi> ~T~.KVA&rHEvEN ~/~~1
-I II 0 0 0 4-00 4-~lJ 5'30 ''H> 9;0
~1;1'O'?>2. o:l/l o.l~ 6.8 !is ~.3- 2,:1.
10: 31 ,,"'I. 10' t,. '" i
---,1'3051.
Pt
f
CFV. Sl'iic, >~!lSHlUJ.'D ~D.' ,it
" 11,I
>t (111"'9 I~>Q 5» 9 8 ~ « ~ .;: ,200 0.10 O.i& 0.14 1.1 (J.9 0.70 0.51) 0.45 0.40 0.35 0.30 5205 5210 52i5 5220 ;,22,> 5230 5235 52'.0 10 12 7 12 0 0 D.25 0.15 u.23 0.15 0.22 0.15 0.15 0.20 (J.15 O.2U 0.15 0.20 0 1000 1250 1500 1750 2000 2250 2500 2750 3000 0.06 11 7.0 5.0 3.4 2.4 1.8 1.4 1.2 1 .1 0.06 H.5 6.5 4.~ 3.0 2.0 1.5 1.2 1.1 1 .1 0.06 6.7 4.7 3.2 2.2 1.6 1.2 1.0 1.0 1.0 0.10 1.0 (J.B,) 0.70 0.60 0.50 0.40 0.20 0.1 0.1 0.10 0.8 0.7 0.6 0.5 0.4 0.3 C.15 0.1 (J.I 0.10 0.6 0.6 0.50 0.45 0.35 0.20 0.10 0.1 0.1 CG:.RyS C'H!lH~-$N!J;NIiL"'" 1_6(INE/.L·NARDH60J;fo/ "'11'1,.,1. ....
r LUI 0 0 0 I/X>O 1~'iO 1~" 3000
iKOll2 ~! \11 f.. 0 .':1: /./ '1</0 ',3\
i~
.IU; ...- 1./ !l(201~ 4 J0:
In
: C/=V: sPEC ,I<gSN!U<Glt),f;ni~'
"( (k~EC) $531)'1 <C \!) 524') 10 1~ 7 12 5250 0 0 0 1000 1250 1500 1750 2000 2250 2500 2750 3000 5255 5260 0.25 0.22 0.23 0.22 0.12 4.5 3.4 2.9 2.4 1.9 1.5 1.2 0.9 0.7 0.12 4.0 3.0 2.5 2.1 1.6 1.3 1.0 0.7 0.6 D 5265 0.22 0.22 0.12 3.5 2.5 2.2 1.9 1.8 1.1 0.8 0.6 0.5 5270 -, 0.15 0.20 0.10 1.0 0.85 0.7 0.6 0.5 0.4 0.2 0.1 0.1 5275 0.15 0.20 0.1 U O.ll 0.7 0.6 0.5 0.4 0.3 0.1 0.1 0.1 5280 0.15 0.20 0.10 0.6 0.6 0.5 0.45 0.35 0.2 0.1 0.1 0.1:>285 ·8 5290 - 5295- --·5300 5305 5310.
"
5315 5320 5325 8 5330 ::>335 5340 534:' ,350 5355 :'360 5365 -8 5370 5375 5380 5385 5390 5395 5400 5405 5410 5415 5420 5425 5430 5435 5440 5445 5450 54:'5 5460 :".65 5470 5475 5480 5'tb5 5490 5495 5500 5505 5510 :'515 5520 5525 5:'30 :'~:d5 5540 :'545 5550 5555 20 4 7 , :{;! 0.15 0.13 0.11 0.15 0.13 0.11 4 7 o 0.28 0.25 0.22 0.28 0.25 0.22 4 7 o U.28 0.25 0.22 0.28 0.25 0.22 4 7 U 0.44 0.41 a.3d 0.45 O. '_1 0.37 "{"
413 It3 101::.3 15U"
17 U 0.3 u.7 1.2 2.0 .... 5 1.0 1.5 2.5 o· 0 0.2 1.0 1.0 1.0 1.5 2.5 4 4 4 4 .0 7 0.10 0.10 0.10 0.23 0.23 0.23 0 0.10 0.10 0.10 0.31 0.31 0.31 u 0.10 0.10 0.10 0.23 \;.23 u.23 o v.10 uolO v.lO l) ;29 0.29 u.29 4[5 6L5 12E5 24L5 4 0 0.05 0.1 0.15 0.2 0.4 0.2 0.3 0.4 0 0.1 0.1 0.1 0.1 0.1 0.1 0 0.1 .0.1 0.1 0.1 0.1 0.1 0 0.1 0.1 0.1 0.1 0.1 0.1 o 0.1 0.1 0.1 0.1 0.1 0.1 3[3 12[3 25[3 60t3 u 4.2 2.1 1.3 0.6 0.5 0.6 0.5 , 0.2 0 0 v 0 0.1 1. ') 0.2 1.0 0.2 0.8 0 • .2 O.b o .~--
o.~ .,0.4 0.2--
-, 0 16 14 E 12 1.0 0.7 0.6 0 20 16 F 12 2.0 1.6 1.2 0 t l . 9. G 7. 1.2 1.0 O.B 0 30 27 H 24 I.A 1.3 1.0 7t.-4 20 1200 102 8l~4 2:' 2000 1.25892 9 l ":4 20 11;'00 1.2 It- 5 20 2000 1.3 u &.4 6.7 5.5 SV 4.1 2.7 <:'.0 1.5 1.0 0 0 2.7 2.5 1.5 2.0 1.5 1.0 ,. t _~. T ' L LL 0 0 0 0~DII'J. lI. 0.1, o./!,) 0.1 Iii It!O!,!.
,
0.1'3 !C'l.OI't +bt
~fit
~f
,,1'5 s !f..l.16 6 -J <t IJ £S>, I} "1 <{: <.!l L LL 0 () 0 (;) /(01 '1 '1. o.W (7,/0 0./ 1.0 1('0 13 3 o.~.ft
!xlV II, ~Rl
~t
~t
;';1 1$ !; So!>ll' I -.J'"
'-I "'HI;•
! <t' <.!l L L! 0 0 0 0 /(Oll'l. 'l. 0.2-J 0.10 0.1 II ~IO 13 30.;:
~t
~,[t
1120 I~..
$'>1 I,•
~f >$'/.14 Ii"
'!> \.I $:', '1 ]. I) L u 0 0 o I { / KG! 12 t (HI-If 0.10 0.1 13C KIO ' " S O~lt ~t ~Lt
1120 II; ~~II ~
$~I I , £"1 ~ ~I ,S2 t6;\
~ ~ l ' - l I >,,3 aFVMAX N TI1AX Nfflj NHA-~ I,lm RNI'1A~ % ... R"TA ""':6:", R.ENO""",%,N 1(1' I J./oo;:!JS.N!jkl2. kOPPEL "'<:"'06." HE6,RtfGf.E U·,. MIN, r"flt';NT. MAX. r.E"~T. flliGf:l.r:A>t.'I'CII
t
+!
s ~~"O y..OQOCO 3000 O,Qoo7- 2.0 1200 I-:J..",'i'
'.1.. ~lfAx 5J1IW i!I'IiN I!I'tA~
