Force2

model Force2 "Input signal acting as torque on two flanges"
    extends Translational.Interfaces.PartialTwoFlanges;

    Modelica.Blocks.Interfaces.RealInput f(unit = "N") "Driving force as input signal"
        annotation (Placement(
            transformation(
                extent = {
                    {-20, -20}, 
                    {20, 20}},
                rotation = 270,
                origin = {0, 60}),
            iconTransformation(
                extent = {
                    {-20, -20}, 
                    {20, 20}},
                rotation = 270,
                origin = {0, 40})));
equation
    flange_a.f = f;
    flange_b.f = -f;

    annotation (
        defaultComponentName = "force",
        Documentation(info = "<html>\n<p>\nThe input signal \"f\" in [N] characterizes an <em>external\nforce</em> which acts (with positive sign) at both flanges,\ni.e., the components connected to these flanges are driven by force f.\n</p>\n<p>\nInput signal s can be provided from one of the signal generator\nblocks of Modelica.Blocks.Source.\n</p>\n\n</html>"),
        Icon(
            coordinateSystem(
                preserveAspectRatio = true,
                extent = {
                    {-100, -100}, 
                    {100, 100}}),
            graphics = {
                Text(
                    extent = {
                        {-150, -40}, 
                        {150, -80}},
                    textString = "%name",
                    lineColor = {0, 0, 255}), 
                Polygon(
                    points = {
                        {90, 0}, 
                        {60, -30}, 
                        {60, -10}, 
                        {10, -10}, 
                        {10, 10}, 
                        {60, 10}, 
                        {60, 30}, 
                        {90, 0}},
                    lineColor = {0, 127, 0},
                    fillColor = {160, 215, 160},
                    fillPattern = FillPattern.Solid), 
                Polygon(
                    points = {
                        {-90, 0}, 
                        {-60, 30}, 
                        {-60, 10}, 
                        {-10, 10}, 
                        {-10, -10}, 
                        {-60, -10}, 
                        {-60, -30}, 
                        {-90, 0}},
                    lineColor = {0, 127, 0},
                    fillColor = {160, 215, 160},
                    fillPattern = FillPattern.Solid)}));
end Force2;