Hello Frosti.

Your posting sounds like stories of [url=https://en.wikipedia.org/wiki/Baron_Munchausen]Baron Munchhausen[/url]. :shock: :D :D

This strip accumulator needs strips with a bit of flexural strength.
Strips like bandages for mummies and living patients should be too soft for this process.
Even paper (up to 200 g/m²) or similar plastic stripes should be a bit too soft.

Main application is accumulating metal strips for [url=https://www.youtube.com/watch?v=pfDWlZ__jr4]continuous rollforming[/url], [url=https://youtu.be/4hS3VfjQ4xo?t=31s]strapping[/url] (together with plastic strips) and applications with similar requirements.

Thanks for your unbelievable story about the american president. Sounds like fake, but his hairstyle is really unique and amazing. Maybe a turban could help?
Please tell him, I would have a solution for him. :mrgreen: :mrgreen:

Hallo Herr divanebaba,

Yes it’s an unknown flying earth (UFE) technology. I build this to drop endless bandages at the position of Mr. Gesundheitsminister Spar alias Spahn. Mr. Trump promised me the exact position data and the best time to submit. Some time ago, when he was not yet the president of united states, he had cut his finger and used a german plaster. And because he has to go through his hair with his hand now and then, he now has this "fucking shit" hairstyle. Mr.Spahr has personally prevented a lawsuit against the manufacturer. So can you help me too?

By the way, have you called the X-Men from the iron industrial complex. Maybee they like it.

---fu..... Missed some chars here .... Lost in ISpace maybe

Here strip-accumulator with continuous output and discontinuous input.

EDIT: animation deleted :D :D
Later I'll show them again.

#SingleInstance force
return

first:
seApp := ""
counter = 0
pi = 3.14159265359
R = 2500 ; outer Ø outside winding
Rr = 2495 ; inside Ø outside winding
iR = 1800 ; inside Ø inside winding
aR = 2295 ; outer Ø inside winding
Drehwinkel_O := 0.01
Drehwinkel_U := 0.01
Schenkel := 0.01
L := 10000 ; strip output [mm/pic]
Lin := 30000 ; strip input [mm/pic]
s = 5 ; sheet thickness
n = 100 ; windings [-]
L1_Tangente := 3450 ; only for displaying
L1_Rad := 2295 ; display help
Tangente := 3390 ; length of tangente [mm]
gosub Goedge
return

$F8::
	counter++
	if (counter < 30)
	{
		L1_Tangente := L1_Tangente - 2
		L1_Rad := L1_Rad + 6.83333
		Drehwinkel_O := Drehwinkel_O + 15
		Drehwinkel_U := Drehwinkel_U + 30
		gosub Goedge
		return
	}

	if (counter > 65) && (counter < 75)
		Tangente := Tangente + 6
		
	PhiIn := Lin*360/(2*pi*iR)
	Phi := L*360/(2*pi*R)
	Schenkel := Schenkel + 60
	Drehwinkel_O := Drehwinkel_O + L / 1000
	Drehwinkel_U := Drehwinkel_U + Lin / 1000
	R := R - s * Phi / 360
	Rr := Rr - s * (PhiIn - Phi) / 360 ; ~ ok
	aR := aR - 1.25 * s * PhiIn / 360 * aR / iR  - s * Phi / 360 ; 
	iR := iR - s * PhiIn / 360
	
	if (counter = 75)
	{
		iR := iR * 1.15
		aR := iR + 5
	}

	if (counter = 76)
	{
		iR := iR * 1.15
		aR := iR + 5
	}

	if (counter = 77)
	{
		iR := iR * 1.1
		aR := iR +5
	}

	if (counter = 78)
	{
		iR := iR * 1.1
		aR := iR +5
	}

	if (counter = 79)
	{
		iR := iR * 1.05
		aR := iR +5
	}

	if (counter = 80)
	{
		iR := iR * 1.05
		aR := iR +5
	}

	if (counter = 81)
	{
		iR := iR * 1.05
		aR := iR +5
	}

Goedge:	
	SetTitleMatchMode, 2
	if winexist("ahk_class EngineFrame ahk_exe Edge.exe")
		seApp := ComObjActive("SolidEdge.Application")
	else
		seApp := ComObjCreate("SolidEdge.Application")
		
	seApp.Visible := True
	{
	seApp.delaycompute := True
	seApp.ActiveDocument.Variables.Edit("R", R)
	seApp.ActiveDocument.Variables.Edit("Rr", Rr)
	seApp.ActiveDocument.Variables.Edit("iR", iR)
	seApp.ActiveDocument.Variables.Edit("aR", aR)
	seApp.ActiveDocument.Variables.Edit("Antrieb_obere_Rolle", Drehwinkel_O)
	seApp.ActiveDocument.Variables.Edit("Antrieb_Winkel_untere_Rolle", Drehwinkel_U)
	seApp.ActiveDocument.Variables.Edit("Schenkel", Schenkel)
	seApp.ActiveDocument.Variables.Edit("L1_Tangente", L1_Tangente)
	seApp.ActiveDocument.Variables.Edit("L1_Rad", L1_Rad)
	seApp.ActiveDocument.Variables.Edit("Tangente", Tangente)
	}
	seApp.delaycompute := False

	; Keystokes valid for Solid Edge V12 eng. version.
	send {alt down}f ; here I'm sending keystrokes like beginner
		sleep 200 ; REASON: It is fast and I do not know the COM-command for
		send i ; "Save as Picture" ...
		send {alt up} ; If you know, you can tell :) me too :)
		sleep 200
		send A%Counter%
		send !s
return	

$F9::
gosub first
return	

Hallo Herr Doktor.

Your advanced flying ding looks like space technology or like a balloon.

[color=#0000FF][b]EDIT 20190312:[/b][/color] [deleted silly stuff :D ]
[spoiler2=Here the automating script for Solid Edge - ATTENTION ROOKIE CODE][code]#SingleInstance force
return

first:
seApp := ""
counter = 0
pi = 3.14159265359
R = 2500 ; outer Ø outside winding
Rr = 2495 ; inside Ø outside winding
iR = 1800 ; inside Ø inside winding
aR = 2295 ; outer Ø inside winding
Drehwinkel_O := 0.01
Drehwinkel_U := 0.01
Schenkel := 0.01
L := 10000 ; strip output [mm/pic]
Lin := 30000 ; strip input [mm/pic]
s = 5 ; sheet thickness
n = 100 ; windings [-]
L1_Tangente := 3450 ; only for displaying
L1_Rad := 2295 ; display help
Tangente := 3390 ; length of tangente [mm]
gosub Goedge
return

$F8::
counter++
if (counter < 30)
{
L1_Tangente := L1_Tangente - 2
L1_Rad := L1_Rad + 6.83333
Drehwinkel_O := Drehwinkel_O + 15
Drehwinkel_U := Drehwinkel_U + 30
gosub Goedge
return
}

if (counter > 65) && (counter < 75)
Tangente := Tangente + 6

PhiIn := Lin*360/(2*pi*iR)
Phi := L*360/(2*pi*R)
Schenkel := Schenkel + 60
Drehwinkel_O := Drehwinkel_O + L / 1000
Drehwinkel_U := Drehwinkel_U + Lin / 1000
R := R - s * Phi / 360
Rr := Rr - s * (PhiIn - Phi) / 360 ; ~ ok
aR := aR - 1.25 * s * PhiIn / 360 * aR / iR - s * Phi / 360 ;
iR := iR - s * PhiIn / 360

if (counter = 75)
{
iR := iR * 1.15
aR := iR + 5
}

if (counter = 76)
{
iR := iR * 1.15
aR := iR + 5
}

if (counter = 77)
{
iR := iR * 1.1
aR := iR +5
}

if (counter = 78)
{
iR := iR * 1.1
aR := iR +5
}

if (counter = 79)
{
iR := iR * 1.05
aR := iR +5
}

if (counter = 80)
{
iR := iR * 1.05
aR := iR +5
}

if (counter = 81)
{
iR := iR * 1.05
aR := iR +5
}

Goedge:
SetTitleMatchMode, 2
if winexist("ahk_class EngineFrame ahk_exe Edge.exe")
seApp := ComObjActive("SolidEdge.Application")
else
seApp := ComObjCreate("SolidEdge.Application")

seApp.Visible := True
{
seApp.delaycompute := True
seApp.ActiveDocument.Variables.Edit("R", R)
seApp.ActiveDocument.Variables.Edit("Rr", Rr)
seApp.ActiveDocument.Variables.Edit("iR", iR)
seApp.ActiveDocument.Variables.Edit("aR", aR)
seApp.ActiveDocument.Variables.Edit("Antrieb_obere_Rolle", Drehwinkel_O)
seApp.ActiveDocument.Variables.Edit("Antrieb_Winkel_untere_Rolle", Drehwinkel_U)
seApp.ActiveDocument.Variables.Edit("Schenkel", Schenkel)
seApp.ActiveDocument.Variables.Edit("L1_Tangente", L1_Tangente)
seApp.ActiveDocument.Variables.Edit("L1_Rad", L1_Rad)
seApp.ActiveDocument.Variables.Edit("Tangente", Tangente)
}
seApp.delaycompute := False

; Keystokes valid for Solid Edge V12 eng. version.
send {alt down}f ; here I'm sending keystrokes like beginner
sleep 200 ; REASON: It is fast and I do not know the COM-command for
send i ; "Save as Picture" ...
send {alt up} ; If you know, you can tell :) me too :)
sleep 200
send A%Counter%
send !s
return

$F9::
gosub first
return [/code][/spoiler2]

Looks [color=#000000]link[/color][color=#FF0000]ed[/color][color=#FFBF00]in[/color] stuff but is [url=https://de.wikipedia.org/wiki/Lehrerempfehlung#Studie_der_Universit%C3%A4t_Mainz]linkedout[/url] :crazy:

Interesting, this is what I'am searching for. I need it to store medical bandages in my not yet named patent pending flying ding thing !

[img]http://4.bp.blogspot.com/-x_M6fozLesQ/Tnf4cSMSXlI/AAAAAAAAB84/pYQKRkQpNAw/s1600/UFO%252C+UFOs%252C+orb%252C+orbs%252C+probe%252C+probes%252C+sighting%252C+sightings%252C+alien%252C+aliens%252C+ET%252C+location%252C+Germany%252C+town%252C+gold%252C+golden%252C+MUFON%252C+odd%252C+september%252C+2011%252C+nuts1.png[/img]

Hey, Mr.Düsentrieb , gefällt mir! I like it!

[color=#0000FF]EDIT 20190312[/color]:
Hello, friends of AHK.
My patent has been recently "official disclosed" and now it is really "[color=#0080FF]patent pending[/color]"
and now I can pose like a superposer without endangering the invention.


[attachment=0]beispiel555.gif[/attachment]

For interested people, [strike]please visit [/strike][url=https://www.wipo.int/patentscope/en/]Patentscope[/url] [strike]on website of The World Intellectual Property Organization or german patentserver named [/strike][url=https://depatisnet.dpma.de/DepatisNet/depatisnet?window=1&space=menu&content=index&action=index]DEPATISnet[/url] [strike]and search for DE102018XXXXXXA1.[/strike] Please send PM :D

As my search for an entrepreneur was not succesful, the reloading of the accumulator seems beeing something hard to visualize.
But I don't need only an entrepreneur understanding the principles of the invention.
He or she must be exited and maybe even thrilled by the genius principle and the superiority compared with existing other types of strip accumulators.

Any questions? Send me PM.
Really interested? Send me PM or contact german patent office in Munich (München).

The patent shows only the simplest version for the easiest operation-mode for narrow strips.
For wide strips, one more outer winding and one more upper roll for hanging up the winding is necessary.
A technical expert will be able to see.
Such a technical expert and entrepreneur I'm needing.